fix CurrentTrailTop

This commit is contained in:
Vítor Santos Costa 2011-10-21 22:04:58 +01:00
parent d173af8d2d
commit 5cd157147f
1 changed files with 2 additions and 0 deletions

View File

@ -1530,6 +1530,7 @@ execute_growstack(long size0, int from_trail, int in_parser, tr_fr_ptr *old_trp,
SetHeapRegs(FALSE PASS_REGS);
if (from_trail) {
LOCAL_TrailTop += size0;
CurrentTrailTop = (tr_fr_ptr)(LOCAL_TrailTop-MinTrailGap);
}
if (LOCAL_LDiff) {
MoveLocalAndTrail( PASS_REGS1 );
@ -1717,6 +1718,7 @@ static int do_growtrail(long size, int contiguous_only, int in_parser, tr_fr_ptr
AdjustScannerStacks(tksp, vep PASS_REGS);
}
LOCAL_TrailTop += size;
CurrentTrailTop = (tr_fr_ptr)(LOCAL_TrailTop-MinTrailGap);
YAPLeaveCriticalSection();
}
#endif