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

handle overflow error in YAP_MkPairTerm ( obs from Fabrizio Riguzzi).

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-07-13 21:55:57 -05:00
parent 02e82d7719
commit 11cefa668a
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
C/c_interface.c
View File

@ -857,11 +857,18 @@ YAP_MkPairTerm(Term t1, Term t2)
Term t; Term t;
BACKUP_H(); BACKUP_H();
if (H > ASP-1024) if (H > ASP-1024) {
t = TermNil; long sl1 = Yap_InitSlot(t1);
else long sl2 = Yap_InitSlot(t2);
t = MkPairTerm(t1, t2); if (!dogc()) {
RECOVER_H();
return TermNil;
}
t1 = Yap_GetFromSlot(sl1);
t2 = Yap_GetFromSlot(sl2);
Yap_RecoverSlots(2);
}
t = MkPairTerm(t1, t2);
RECOVER_H(); RECOVER_H();
return t; return t;
} }