diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

allow extra space to avoid mess up in bignums on WIN64.

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-02-06 15:10:48 +00:00
parent 2f17b25885
commit 3b3f631e93
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
C/bignum.c
View File

@ -39,12 +39,17 @@ Yap_MkBigIntTerm(MP_INT *big)
Int nlimbs; Int nlimbs;
MP_INT *dst = (MP_INT *)(H+2); MP_INT *dst = (MP_INT *)(H+2);
CELL *ret = H; CELL *ret = H;
Int bytes;
if (mpz_fits_slong_p(big)) { if (mpz_fits_slong_p(big)) {
long int out = mpz_get_si(big); long int out = mpz_get_si(big);
return MkIntegerTerm((Int)out); return MkIntegerTerm((Int)out);
} }
nlimbs = (big->_mp_alloc)*(sizeof(mp_limb_t)/CellSize); // bytes = big->_mp_alloc * sizeof(mp_limb_t);
// nlimbs = ALIGN_YAPTYPE(bytes,CELL)/CellSize;
// this works, but it shouldn't need to do this...
nlimbs = big->_mp_alloc;
bytes = nlimbs*sizeof(CELL);
if (nlimbs > (ASP-ret)-1024) { if (nlimbs > (ASP-ret)-1024) {
return TermNil; return TermNil;
} }
@ -52,8 +57,8 @@ Yap_MkBigIntTerm(MP_INT *big)
H[1] = BIG_INT; H[1] = BIG_INT;
dst->_mp_size = big->_mp_size; dst->_mp_size = big->_mp_size;
dst->_mp_alloc = big->_mp_alloc; dst->_mp_alloc = nlimbs*(CellSize/sizeof(mp_limb_t));
memmove((void *)(dst+1), (const void *)(big->_mp_d), nlimbs*CellSize); memmove((void *)(dst+1), (const void *)(big->_mp_d), bytes);
H = (CELL *)(dst+1)+nlimbs; H = (CELL *)(dst+1)+nlimbs;
H[0] = EndSpecials; H[0] = EndSpecials;
H++; H++;