/[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.5 by camm, Fri May 17 04:23:15 2002 UTC revision 1.6 by camm, Sat Mar 1 22:37:37 2003 UTC
# Line 56  typedef struct Line 56  typedef struct
56  #define MYmake_fixnum(action,x) \  #define MYmake_fixnum(action,x) \
57    do{register int CMPt1; \    do{register int CMPt1; \
58     action \     action \
59     ((((CMPt1=(x))+1024)&-2048)==0?small_fixnum(CMPt1):make_fixnum(CMPt1));}while(0)     ((((CMPt1=(x))+1024)&-2048)==0?small_fixnum(CMPt1):make_fixnum1(CMPt1));}while(0)
60            
61  #define addii mpz_add  #define addii mpz_add
62  #define addsi(u,a,b) (a >= 0 ?  mpz_add_ui(u,b,a) : mpz_sub_ui(u,b,-a))  #define addsi(u,a,b) (a >= 0 ?  mpz_add_ui(u,b,a) : mpz_sub_ui(u,b,-a))

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

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