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

clean reference to removed element.

This commit is contained in:
Vítor Santos Costa II 2010-04-10 21:17:17 +01:00
parent 469fab876d
commit 2aff3b5071
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/globals.c
View File

@ -1708,6 +1708,8 @@ DelHeapRoot(CELL *pt, UInt sz)
sz--;
tk = pt[2*sz];
tv = pt[2*sz+1];
pt[2*sz] = TermNil;
pt[2*sz+1] = TermNil;
while (TRUE) {
if (sz < 2*indx+3 || Yap_compare_terms(pt[4*indx+2],pt[4*indx+4]) < 0) {
if (sz < 2*indx+2 || Yap_compare_terms(tk, pt[4*indx+2]) < 0) {