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

recover space after portray

Browse Source
This commit is contained in:
Vitor Santos Costa
2014-10-23 02:10:55 +01:00
parent 4844e43704
commit 130d28ceb3
3 changed files with 49 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
C/write.c
View File

@@ -87,13 +87,16 @@ static bool
callPortray(Term t, struct DB_TERM **old_EXp USES_REGS)
{
PredEntry *pe;
Int b0 = LCL0-(CELL*)B;
EX = NULL;
if ( (pe = RepPredProp(Yap_GetPredPropByFunc(FunctorPortray, USER_MODULE) ) ) &&
pe->OpcodeOfPred != FAIL_OPCODE &&
pe->OpcodeOfPred != UNDEF_OPCODE &&
Yap_execute_pred(pe, &t PASS_REGS) ) {
choiceptr B0 = (choiceptr)(LCL0-b0);
if (EX && !*old_EXp) *old_EXp = EX;
Yap_fail_all(B0 PASS_REGS);
return true;
}
if (EX && !*old_EXp) *old_EXp = EX;