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

fix memory leak in mod.

Browse Source
This commit is contained in:
Vitor Santos Costa
2009-06-05 10:55:28 -05:00
parent ecb03a61c0
commit 7e108201b0
3 changed files with 36 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
C/gmp_support.c
View File

@@ -280,6 +280,36 @@ Yap_gmp_ior_big_big(MP_INT *b1, MP_INT *b2)
return MkBigAndClose(&new);
}
Term
Yap_gmp_mod_big_big(MP_INT *b1, MP_INT *b2)
{
MP_INT new;
mpz_init(&new);
mpz_fdiv_r(&new, b1, b2);
return MkBigAndClose(&new);
}
Term
Yap_gmp_mod_big_int(MP_INT *b, Int i2)
{
MP_INT new;
mpz_init_set_si(&new, i2);
mpz_fdiv_r(&new, b, &new);
return MkBigAndClose(&new);
}
Term
Yap_gmp_mod_int_big(Int i1, MP_INT *b)
{
MP_INT new;
mpz_init_set_si(&new, i1);
mpz_fdiv_r(&new, &new, b);
RBIG(&new);
}
Term
Yap_gmp_add_float_big(Float d, MP_INT *b)
{