/[gcl]/gcl/o/number.c
ViewVC logotype

Diff of /gcl/o/number.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.8 by camm, Wed Feb 26 22:21:37 2003 UTC
# Line 76  DEFUN_NEW("ALLOCATE-BIGGER-FIXNUM-RANGE" Line 76  DEFUN_NEW("ALLOCATE-BIGGER-FIXNUM-RANGE"
76    
77    
78  object  object
79  make_fixnum(long i)  make_fixnum1(long i)
80  {  {
81          object x;          object x;
82    
83          if (-SMALL_FIXNUM_LIMIT <= i && i < SMALL_FIXNUM_LIMIT)          /* In a macro now */
84                  return(small_fixnum(i));  /*      if (-SMALL_FIXNUM_LIMIT <= i && i < SMALL_FIXNUM_LIMIT) */
85    /*              return(small_fixnum(i)); */
86  #ifdef BIGGER_FIXNUM_RANGE  #ifdef BIGGER_FIXNUM_RANGE
87          if (bigger_fixnum_table)          if (bigger_fixnum_table)
88            { if (i >= bigger_fixnums.min            { if (i >= bigger_fixnums.min

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26