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

fix old dvar list code.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-03-14 20:53:17 +00:00
parent 5fb62129cb
commit a358355709
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/globals.c
View File

@ -494,8 +494,6 @@ copy_complex_term(register CELL *pt0, register CELL *pt0_end, int share, int cop
Bind_and_Trail(ptd0, new); Bind_and_Trail(ptd0, new);
if (dvarsmin == NULL) { if (dvarsmin == NULL) {
dvarsmin = CellPtr(new); dvarsmin = CellPtr(new);
} else {
*dvarsmax = (CELL)(CellPtr(new)+1);
} }
dvarsmax = CellPtr(new)+1; dvarsmax = CellPtr(new)+1;
ptf++; ptf++;
@ -531,7 +529,6 @@ copy_complex_term(register CELL *pt0, register CELL *pt0_end, int share, int cop
HB = HB0; HB = HB0;
clean_dirty_tr(TR0 PASS_REGS); clean_dirty_tr(TR0 PASS_REGS);
/* follow chain of multi-assigned variables */ /* follow chain of multi-assigned variables */
close_attvar_chain(dvarsmin, dvarsmax);
return 0; return 0;
overflow: overflow:
@ -550,7 +547,6 @@ copy_complex_term(register CELL *pt0, register CELL *pt0_end, int share, int cop
} }
#endif #endif
reset_trail(TR0); reset_trail(TR0);
reset_attvars(dvarsmin, dvarsmax);
return -1; return -1;
heap_overflow: heap_overflow:
@ -569,7 +565,6 @@ copy_complex_term(register CELL *pt0, register CELL *pt0_end, int share, int cop
} }
#endif #endif
reset_trail(TR0); reset_trail(TR0);
reset_attvars(dvarsmin, dvarsmax);
return -2; return -2;
trail_overflow: trail_overflow:
@ -588,7 +583,6 @@ copy_complex_term(register CELL *pt0, register CELL *pt0_end, int share, int cop
} }
#endif #endif
reset_trail(TR0); reset_trail(TR0);
reset_attvars(dvarsmin, dvarsmax);
return -4; return -4;
} }