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

fix bignum conversion

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1438 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-11-03 18:49:26 +00:00
parent bd8472754d
commit bd9ed1e1e6
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/c_interface.c
View File

@ -10,8 +10,11 @@
* File: c_interface.c * * File: c_interface.c *
* comments: c_interface primitives definition * * 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 $ * $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 * Revision 1.74 2005/10/21 16:07:07 vsc
* fix tabling * fix tabling
* *
@ -404,8 +407,10 @@ YAP_MkBigNumTerm(void *big)
#if USE_GMP #if USE_GMP
Term I; Term I;
BACKUP_H(); 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(); RECOVER_H();
return I; return I;
#else #else