Mercurial > hg > octave-lyh
changeset 868:3896bd1fdda4
[project @ 1994-11-02 14:25:29 by jwe]
| author | jwe |
|---|---|
| date | Wed, 02 Nov 1994 14:27:44 +0000 |
| parents | b6b78f85743a |
| children | 05428c0044cc |
| files | src/sysdep.cc src/variables.cc |
| diffstat | 2 files changed, 6 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/src/sysdep.cc +++ b/src/sysdep.cc @@ -495,26 +495,6 @@ return retval; } -DEFUN ("realmax", Frealmax, Srealmax, 0, 1, - "realmax (): return largest representable floating point number") -{ - Octave_object retval; - - retval = DBL_MAX; - - return retval; -} - -DEFUN ("realmin", Frealmin, Srealmin, 0, 1, - "realmin (): return smallest representable floating point number") -{ - Octave_object retval; - - retval = DBL_MIN; - - return retval; -} - #if !defined (HAVE_GETHOSTNAME) && defined (HAVE_SYS_UTSNAME_H) extern "C" {
--- a/src/variables.cc +++ b/src/variables.cc @@ -1486,6 +1486,12 @@ "true", 0, 0, 1, propagate_empty_matrices, "operations on empty matrices return an empty matrix, not an error"); + DEFVAR ("realmax", SBV_realmax, DBL_MAX, 1, 1, 1, 0, + "realmax (): return largest representable floating point number"); + + DEFVAR ("realmin", SBV_realmin, DBL_MIN, 1, 1, 1, 0, + "realmin (): return smallest representable floating point number"); + DEFVAR ("resize_on_range_error", SBV_resize_on_range_error, "true", 0, 0, 1, resize_on_range_error, "enlarge matrices on assignment");