From bd9ed1e1e674561603315431a67ec738f0449f2d Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 3 Nov 2005 18:49:26 +0000
Subject: [PATCH] fix bignum conversion

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1438 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/c_interface.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/C/c_interface.c b/C/c_interface.c
index 6dc5d930d..161d608e9 100644
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -10,8 +10,11 @@
 * File:		c_interface.c						 *
 * comments:	c_interface primitives definition 			 *
 *									 *
-* Last rev:	$Date: 2005-10-28 17:38:49 $,$Author: vsc $						 *
+* Last rev:	$Date: 2005-11-03 18:49:26 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.75  2005/10/28 17:38:49  vsc
+* sveral updates
+*
 * Revision 1.74  2005/10/21 16:07:07  vsc
 * fix tabling
 *
@@ -404,8 +407,10 @@ YAP_MkBigNumTerm(void *big)
 #if USE_GMP
   Term I;
   BACKUP_H();
+  MP_INT *new = Yap_PreAllocBigNum();
 
-  I = Yap_MkBigIntTerm((MP_INT *)big);
+  mpz_set(new, (MP_INT *)big);
+  I = Yap_MkBigIntTerm(new);
   RECOVER_H();
   return I;
 #else