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

left-over

Browse Source
This commit is contained in:
Vitor Santos Costa 2019-05-04 10:45:42 +01:00
parent 937189ab9e
commit adf6ffd2a6
1 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/terms.c
View File

@ -866,6 +866,7 @@ static Term new_vars_in_complex_term(
if (IsVarTerm(t)) { if (IsVarTerm(t)) {
n++; n++;
TrailTerm(TR++) = t; TrailTerm(TR++) = t;
TrailTerm(TR++) = t;
*VarOfTerm(t) = TermFoundVar; *VarOfTerm(t) = TermFoundVar;
if ((tr_fr_ptr)LOCAL_TrailTop - TR < 1024) { if ((tr_fr_ptr)LOCAL_TrailTop - TR < 1024) {
size_t expand = (tr_fr_ptr)LOCAL_TrailTop - TR; size_t expand = (tr_fr_ptr)LOCAL_TrailTop - TR;
@ -894,7 +895,7 @@ if (HR + 1024 > ASP) {
} }
END_WALK(); END_WALK();
clean_tr(TR0-n PASS_REGS); clean_tr(TR0 PASS_REGS);
pop_text_stack(lvl); pop_text_stack(lvl);
return output; return output;
@ -968,7 +969,7 @@ static Term vars_within_complex_term(
goto restart; goto restart;
END_WALK(); END_WALK();
clean_tr(TR0-n PASS_REGS); clean_tr(TR0 PASS_REGS);
pop_text_stack(lvl); pop_text_stack(lvl);
if (HR != InitialH) { if (HR != InitialH) {
HR[-1] = TermNil; HR[-1] = TermNil;