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

fix tabling code.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-05-13 17:11:46 -05:00
parent bdf8b890e3
commit 6d8649226c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/exec.c
View File

@ -1474,7 +1474,7 @@ clean_trail(Term t)
/* so the next cell is the old value */ /* so the next cell is the old value */
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
--pt1; --pt1;
pt[0] = TrailVal(pt0); pt[0] = TrailVal(pt1);
#else #else
pt[0] = TrailTerm(pt1-1); pt[0] = TrailTerm(pt1-1);
pt1 -= 3; pt1 -= 3;