/[gcl]/gcl/h/mp.h
ViewVC logotype

Diff of /gcl/h/mp.h

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

revision 1.8 by camm, Fri Oct 29 20:27:27 2004 UTC revision 1.9 by camm, Sat Nov 27 22:19:35 2004 UTC
# Line 6  Line 6 
6  /* define to show we included mp.h */  /* define to show we included mp.h */
7  #define _MP_H    #define _MP_H  
8    
9  #define MOST_NEG_FIXNUM (-2147483647-1)  /* #define MOST_NEG_FIXNUM (-2147483647-1) */
10  #define MOST_POSITIVE_FIXNUM (2147483647)  /* #define MOST_POSITIVE_FIXNUM (2147483647) */
11    
12  #define MP_ALLOCATED(x) MP(x)->_mp_alloc  #define MP_ALLOCATED(x) MP(x)->_mp_alloc
13  #define MP_SELF(x) MP(x)->_mp_d  #define MP_SELF(x) MP(x)->_mp_d
# Line 56  typedef struct Line 56  typedef struct
56        } while(0)        } while(0)
57    
58    
59  #define MYmake_fixnum(action,x) \  /* #define MYmake_fixnum(action,x) \ */
60    do{register int CMPt1; \  /*   do{register int CMPt1; \ */
61     action \  /*    action \ */
62     ((((CMPt1=(x))+1024)&-2048)==0?small_fixnum(CMPt1):make_fixnum1(CMPt1));}while(0)  /*    ((((CMPt1=(x))+1024)&-2048)==0?small_fixnum(CMPt1):make_fixnum1(CMPt1));}while(0) */
63            
64  #define ineg(a_) (sizeof(a_)==sizeof(unsigned) ? (unsigned)-(a_) : (unsigned long)-(a_))  #define ineg(a_) (sizeof(a_)==sizeof(unsigned) ? (unsigned)-(a_) : (unsigned long)-(a_))
65    

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

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