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 |
|
|