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

fixed bug in shift-left by multiples of 32/64 bits where the shifted 

data was misplaced in the resulting number.
This commit is contained in:
Abdulaziz Ghuloum 2009-08-03 20:55:14 +03:00
parent 22dc82567d
commit 402c4aa468
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1842
1843

5
src/ikarus-numerics.c
View File

@ -1623,8 +1623,9 @@ ikrt_bignum_shift_left(ikptr x, ikptr y, ikpcb* pcb){
pcb->root0 = 0;
unsigned int* s = (unsigned int*)(long)(r+disp_bignum_data);
bzero(s, whole_limb_shift*wordsize);
memcpy((char*)(long)s+whole_limb_shift,
(char*)(long)x+off_bignum_data, n*wordsize);
memcpy(((char*)s) + whole_limb_shift*wordsize,
((char*)x) + off_bignum_data,
n*wordsize);
return normalize_bignum(limb_count, bnfst_negative(fst), r);
} else {
int limb_count = n + whole_limb_shift + 1;