/[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.9 by camm, Sat Mar 1 22:37:37 2003 UTC revision 1.9.4.1 by camm, Wed Jul 16 02:02:51 2003 UTC
# Line 47  fixnnint(object x) Line 47  fixnnint(object x)
47                  FEerror("~S is not a non-negative fixnum.", 1, x);                  FEerror("~S is not a non-negative fixnum.", 1, x);
48          return(fix(x));          return(fix(x));
49  }  }
50    #if 0
51    object small_fixnum ( int i ) {
52    #include <assert.h>    
53        assert ( ( -SMALL_FIXNUM_LIMIT <= i ) && ( i < SMALL_FIXNUM_LIMIT ) );
54        (object) small_fixnum_table + SMALL_FIXNUM_LIMIT + i;
55    }
56    #endif
57    
58  #define BIGGER_FIXNUM_RANGE  #define BIGGER_FIXNUM_RANGE
59    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.4.1

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