conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed a bug that caused (- <bignum> <bignum>) to crash or yield 

incorrect result if gc is triggered while allocating the resulting
bignum.
This commit is contained in:
Abdulaziz Ghuloum 2008-10-04 01:59:34 -04:00
parent cd4e12be68
commit 997c75fabb
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ikarus-numerics.c
View File

@ -744,10 +744,10 @@ ikrt_bnbnminus(ikptr x, ikptr y, ikpcb* pcb){
n1 = ylimbs; n2 = xlimbs; s1 = y; s2 = x; n1 = ylimbs; n2 = xlimbs; s1 = y; s2 = x;
} }
pcb->root0 = &s1; pcb->root0 = &s1;
pcb->root0 = &s2; pcb->root1 = &s2;
ikptr res = ik_safe_alloc(pcb, align(disp_bignum_data + (n1+1)*wordsize)); ikptr res = ik_safe_alloc(pcb, align(disp_bignum_data + (n1+1)*wordsize));
pcb->root0 = 0; pcb->root0 = 0;
pcb->root0 = 0; pcb->root1 = 0;
mp_limb_t carry = mp_limb_t carry =
mpn_add((mp_limb_t*)(long)(res+disp_bignum_data), mpn_add((mp_limb_t*)(long)(res+disp_bignum_data),
(mp_limb_t*)(long)(s1-vector_tag+disp_bignum_data), (mp_limb_t*)(long)(s1-vector_tag+disp_bignum_data),
@ -799,10 +799,11 @@ ikrt_bnbnminus(ikptr x, ikptr y, ikpcb* pcb){
} }
/* |s1| > |s2| */ /* |s1| > |s2| */
pcb->root0 = &s1; pcb->root0 = &s1;
pcb->root0 = &s2; pcb->root1 = &s2;
ikptr res = ik_safe_alloc(pcb, align(disp_bignum_data + n1 * wordsize)); ikptr res = ik_safe_alloc(pcb, align(disp_bignum_data + n1 * wordsize));
bzero((void*)res+disp_bignum_data, n1*wordsize);
pcb->root0 = 0; pcb->root0 = 0;
pcb->root0 = 0; pcb->root1 = 0;
long int burrow = long int burrow =
mpn_sub((mp_limb_t*)(long)(res + disp_bignum_data), mpn_sub((mp_limb_t*)(long)(res + disp_bignum_data),
(mp_limb_t*)(long)(s1 - vector_tag + disp_bignum_data), (mp_limb_t*)(long)(s1 - vector_tag + disp_bignum_data),
@ -1785,10 +1786,10 @@ ikrt_bnfxdivrem(ikptr x, ikptr y, ikpcb* pcb){
rem = fix(rv); rem = fix(rv);
} }
pcb->root0 = &quot; pcb->root0 = &quot;
pcb->root0 = &rem; pcb->root1 = &rem;
ikptr p = ik_safe_alloc(pcb, pair_size); ikptr p = ik_safe_alloc(pcb, pair_size);
pcb->root0 = 0; pcb->root0 = 0;
pcb->root0 = 0; pcb->root1 = 0;
ref(p, disp_car) = quot; ref(p, disp_car) = quot;
ref(p, disp_cdr) = rem; ref(p, disp_cdr) = rem;
return p+pair_tag; return p+pair_tag;