support new interface between YAP and GMP, so that we don't rely on our own
allocation routines. Several big fixes. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1490 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -179,6 +179,7 @@ VarNames(VarEntry *p,Term l)
|
||||
VarNames(p->VarRight,
|
||||
VarNames(p->VarLeft,l)));
|
||||
if (H > ASP-4096) {
|
||||
save_machine_regs();
|
||||
longjmp(Yap_IOBotch,1);
|
||||
}
|
||||
return(o);
|
||||
@@ -436,8 +437,9 @@ ParseTerm(int prio, JMPBUFF *FailBuff)
|
||||
t = MkFloatTerm(-FloatOfTerm(t));
|
||||
#ifdef USE_GMP
|
||||
else if (IsBigIntTerm(t)) {
|
||||
MP_INT *new = Yap_PreAllocBigNum();
|
||||
mpz_t new;
|
||||
|
||||
mpz_init(new);
|
||||
mpz_neg(new, Yap_BigIntOfTerm(t));
|
||||
t = Yap_MkBigIntTerm(new);
|
||||
}
|
||||
|
Reference in New Issue
Block a user