avoid sideffects from MkBigInt

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1524 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-01-18 15:34:54 +00:00
parent 1c77e3cf32
commit 745fed2679
11 changed files with 37 additions and 49 deletions
--- a/C/arith1.c
+++ b/C/arith1.c
@@ -101,6 +101,7 @@ EvalToTerm(blob_type f, union arith_ret *res)
  case big_int_e:
    {
      Term t = Yap_MkBigIntTerm(res->big);
+      mpz_clear(res->big);
      return t;
    }
 #endif