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

left-over

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