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

we don't always expand stack on attvar overflow.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-05-17 22:51:34 -07:00
parent 17e36dbda1
commit a1203e56dd
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
C/grow.c
View File

@ -748,12 +748,17 @@ static_growglobal(long request, CELL **ptr, CELL *hsplit)
else if (hsplit == (CELL *)omax)
hsplit = NULL;
if (size < 0 ||
(size+H < ASP-4096 &&
(Unsigned(H)+size < Unsigned(ASP)-CreepFlag &&
hsplit > H0)) {
/* don't need to expand stacks */
insert_in_delays = FALSE;
do_grow = FALSE;
}
} else {
if (Unsigned(H)+size < Unsigned(ASP)-CreepFlag) {
/* we can just ask for more room */
do_grow = FALSE;
}
}
if (do_grow) {
if (size < YAP_ALLOC_SIZE)
@ -820,8 +825,13 @@ static_growglobal(long request, CELL **ptr, CELL *hsplit)
/* now, remember we have delay -- global with a hole in delay or a
hole in global */
if (!hsplit) {
/* expand delay stack */
DelayDiff = GDiff = GDiff0 = LDiff;
if (!do_grow) {
DelayDiff = GDiff = GDiff0 = size;
request = 0L;
} else {
/* expand delay stack */
DelayDiff = GDiff = GDiff0 = LDiff;
}
} else if (insert_in_delays) {
/* we want to expand a hole for the delay stack */
DelayDiff = size-request;
@ -842,6 +852,8 @@ static_growglobal(long request, CELL **ptr, CELL *hsplit)
} else {
MoveExpandedGlobal();
}
} else if (!hsplit) {
MoveExpandedGlobal();
}
/* don't run through garbage */
if (hsplit && (OldH != hsplit)) {