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

Diff of /gcl/o/gmp_big.c

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

revision 1.10 by camm, Tue Nov 30 02:58:25 2004 UTC revision 1.11 by camm, Fri Jun 10 15:27:20 2005 UTC
# Line 118  new_bignum(void) Line 118  new_bignum(void)
118     it, and then we can copy it back     it, and then we can copy it back
119  */    */  
120  #define GCPROTECT(u) \  #define GCPROTECT(u) \
121   MP_INT * __u = MP(big_gcprotect); \   MP_INT * __u = (u==MP(big_fixnum1) || u==MP(big_fixnum2)) ? u : MP(big_gcprotect); \
122   (__u)->_mp_d =   (u)->_mp_d; \   (__u)->_mp_d =   (u)->_mp_d; \
123   (__u)->_mp_alloc = (u)->_mp_alloc   (__u)->_mp_alloc = (u)->_mp_alloc
124  #define GC_PROTECTED_SELF (__u)->_mp_d  #define GC_PROTECTED_SELF (__u)->_mp_d
125  #define END_GCPROTECT (__u)->_mp_d = 0  #define END_GCPROTECT if (__u==MP(big_gcprotect)) (__u)->_mp_d = 0
126    
127    
128    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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