# HG changeset patch # User jwe # Date 783786464 0 # Node ID 3896bd1fdda4c96e5b3b37e0d093d1380c511195 # Parent b6b78f85743ab9b851c6667a53b38e76b9b414b7 [project @ 1994-11-02 14:25:29 by jwe] diff --git a/src/sysdep.cc b/src/sysdep.cc --- 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" { diff --git a/src/variables.cc b/src/variables.cc --- 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");