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