[project @ 2003-09-04 18:48:13 by jwe]
author |
jwe |
date |
Thu, 04 Sep 2003 18:48:13 +0000 |
parents |
124c137af3db |
children |
093e39f03506 |
files |
liboctave/ChangeLog liboctave/lo-specfun.cc |
diffstat |
2 files changed, 10 insertions(+), 0 deletions(-)
[+]
|
line diff
--- a/liboctave/ChangeLog
+++ b/liboctave/ChangeLog
@@ -1,3 +1,7 @@
+2003-09-04 John W. Eaton <jwe@bevo.che.wisc.edu>
+
+ * lo-specfun.cc (xlgamma): Require nonnegative argument.
+
2003-09-04 Petter Risholm <risholm@stud.ntnu.no>
* ArrayN-idx.h (maybe_delete_elements): Implement function.
--- a/liboctave/lo-specfun.cc
+++ b/liboctave/lo-specfun.cc
@@ -153,7 +153,13 @@
{
double result;
double sgngam;
+
+ if (x < 0)
+ (*current_liboctave_error_handler)
+ ("xlgamma: argument must be nonnegative");
+
F77_FUNC (dlgams, DLGAMS) (x, result, sgngam);
+
return result;
}