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

bignum should always reset pre_alloc_base and recover Heap space

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@158 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-09-18 15:14:11 +00:00
parent 8f72bc3c91
commit cbd499b8df
5 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
C/arith2.c
View File

@@ -139,6 +139,7 @@ p_mod(Term t1, Term t2 E_ARGS)
MP_INT *new = PreAllocBigNum();
Int r = mpz_mod_ui(new, l1, i2);
CleanBigNum();
RINT((mpz_sgn(l1) ? r : -r));
} else if (i2 == 0) {
goto zero_divisor;
@@ -146,6 +147,7 @@ p_mod(Term t1, Term t2 E_ARGS)
MP_INT *new = PreAllocBigNum();
Int r = mpz_mod_ui(new, l1, -i2);
CleanBigNum();
RINT((mpz_sgn(l1) ? r : -r));
}
}
@@ -211,6 +213,7 @@ p_mod(Term t1, Term t2 E_ARGS)
MP_INT *new = PreAllocBigNum();
Int r = mpz_mod_ui(new, v1.big, v2.Int);
CleanBigNum();
RINT((mpz_sgn(v1.big) ? r : -r));
} else if (v2.Int == 0) {
goto zero_divisor;
@@ -218,6 +221,7 @@ p_mod(Term t1, Term t2 E_ARGS)
MP_INT *new = PreAllocBigNum();
Int r = mpz_mod_ui(new, v1.big, -v2.Int);
CleanBigNum();
RINT((mpz_sgn(v1.big) ? r : -r));
}
case double_e:
@@ -267,6 +271,7 @@ fdiv_bigint(MP_INT *b1,MP_INT *b2)
mpf_set_z(f2, b2);
mpf_div(f1, f1, f2);
res = mpf_get_d(f1);
CleanBigNum();
return(res);
} else {
return(f1/f2);
@@ -450,6 +455,7 @@ mpz_xor(MP_INT *new, MP_INT *r1, MP_INT *r2)
mpz_com(n3, r2);
mpz_and(n3, n3, new);
mpz_ior(new, n2, n3);
CleanBigNum();
}
#endif
#endif