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/scanner.c
+++ b/C/scanner.c
@@ -229,6 +229,7 @@ read_int_overflow(const char *s, Int base, Int val)

  mpz_init_set_str (new, s, base);
  t = Yap_MkBigIntTerm(new);
+  mpz_clear(new);
  return t;
 #else
  /* try to scan it as a float */