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

protect registers.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-01-20 12:04:50 -06:00
parent 9d1ae2f96a
commit 404c6d3a4f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
library/dialect/swi/fli/swi.c
View File

@ -1924,15 +1924,16 @@ typedef struct {
X_API int PL_unify_term(term_t l,...)
{
va_list ap;
int type;
int type, res;
int nels = 1;
int depth = 1;
Term a[1], *pt;
stack_el stack[MAX_DEPTH];
BACKUP_MACHINE_REGS();
if (Unsigned(H) > Unsigned(ASP)-CreepFlag) {
if (!Yap_gc(0, ENV, CP)) {
RECOVER_MACHINE_REGS();
return FALSE;
}
}
@ -2137,7 +2138,9 @@ X_API int PL_unify_term(term_t l,...)
}
}
va_end (ap);
return YAP_Unify(Yap_GetFromSlot(l),a[0]);
res = Yap_unify(Yap_GetFromSlot(l),a[0]);
RECOVER_MACHINE_REGS();
return res;
}
/* end PL_unify_* functions =============================*/