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

growglobal would core dump over holes.

This commit is contained in:
Costa Vitor 2009-06-02 18:08:18 -05:00
parent f10dde5b90
commit adb25ff96f
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
C/grow.c
View File

@ -813,10 +813,17 @@ static_growglobal(long request, CELL **ptr, CELL *hsplit)
YAPEnterCriticalSection();
/* we always shift the local and the stack by the same amount */
if (do_grow) {
/* This is what happens to the base of the stack */
BaseDiff = Yap_GlobalBase-old_GlobalBase;
/* if we grow, we need to move the stacks */
LDiff = TrDiff = size+BaseDiff;
/* we got over a hole */
if (minimal_request) {
/* we went over a hole */
BaseDiff = size+((CELL)Yap_TrailTop-(CELL)Yap_GlobalBase)-minimal_request;
LDiff = TrDiff = size;
} else {
/* we may still have an overflow */
BaseDiff = Yap_GlobalBase != old_GlobalBase;
/* if we grow, we need to move the stacks */
LDiff = TrDiff = BaseDiff+size;
}
} else {
/* stay still */
LDiff = TrDiff = 0;