From: Gerd Moellmann <gerd@gnu.org>
Date: Sat, 6 Oct 2001 23:25:26 +0000 (+0000)
Subject: (most_positive_fixnum, most_negative_fixnum): New
X-Git-Tag: ttn-vms-21-2-B4~19689
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e6190b111d69b998fe7a2d3224616ab6eb7d392b;p=emacs.git

(most_positive_fixnum, most_negative_fixnum): New
variables.
(syms_of_data): DEFVAR_INT most-positive-fixnum and
most-negative-fixnum.
---

diff --git a/src/data.c b/src/data.c
index 85a5980d1c1..527edc4ec35 100644
--- a/src/data.c
+++ b/src/data.c
@@ -96,6 +96,8 @@ static Lisp_Object Qsubrp, Qmany, Qunevalled;
 
 static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));
 
+int most_positive_fixnum, most_negative_fixnum;
+
 Lisp_Object
 wrong_type_argument (predicate, value)
      register Lisp_Object predicate, value;
@@ -3166,6 +3168,14 @@ syms_of_data ()
   defsubr (&Ssubr_arity);
 
   XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;
+
+  DEFVAR_INT ("most-positive-fixnum", &most_positive_fixnum,
+    "The largest value that is representable in a Lisp integer.");
+  most_positive_fixnum = MOST_POSITIVE_FIXNUM;
+  
+  DEFVAR_INT ("most-negative-fixnum", &most_negative_fixnum,
+    "The smallest value that is representable in a Lisp integer.");
+  most_negative_fixnum = MOST_NEGATIVE_FIXNUM;
 }
 
 SIGTYPE