/[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.6 by camm, Tue Jan 7 06:20:49 2003 UTC revision 1.7 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 54  fixnnint(object x) Line 54  fixnnint(object x)
54  struct {int min,max;} bigger_fixnums;  struct {int min,max;} bigger_fixnums;
55    
56  struct fixnum_struct *bigger_fixnum_table;  struct fixnum_struct *bigger_fixnum_table;
57  DEFUN("ALLOCATE-BIGGER-FIXNUM-RANGE",object,fSallocate_bigger_fixnum_range,  DEFUN_NEW("ALLOCATE-BIGGER-FIXNUM-RANGE",object,fSallocate_bigger_fixnum_range,
58        SI,2,2,NONE,OI,IO,OO,OO,"") (min,max)        SI,2,2,NONE,OI,IO,OO,OO,(int min,int max),"")
      int min,max;  
59  { int j;  { int j;
60    if (min <= max); else {FEerror("Need Min < Max",0);}    if (min <= max); else {FEerror("Need Min < Max",0);}
61    bigger_fixnum_table= (void *) malloc(sizeof(struct fixnum_struct)*    bigger_fixnum_table= (void *) malloc(sizeof(struct fixnum_struct)*

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

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