Mercurial > emacs
changeset 39632:8cd74f2aa6e2
(most_positive_fixnum, most_negative_fixnum): New
variables.
(syms_of_data): DEFVAR_INT most-positive-fixnum and
most-negative-fixnum.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sat, 06 Oct 2001 23:25:26 +0000 |
| parents | 3d61dd23854a |
| children | a0bf0cb8ff3e |
| files | src/data.c |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/data.c Sat Oct 06 23:25:06 2001 +0000 +++ b/src/data.c Sat Oct 06 23:25:26 2001 +0000 @@ -96,6 +96,8 @@ 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 @@ 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