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

stack expansion would not recognise bignums and friends.y

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-05-10 03:04:54 +01:00
parent e85d0a3939
commit dec36676e5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/grow.c
View File

@ -567,7 +567,7 @@ AdjustGlobal(long sz, int thread_copying)
*pt = GlobalAdjust(reg); *pt = GlobalAdjust(reg);
else if (IsOldLocal(reg)) else if (IsOldLocal(reg))
*pt = LocalAdjust(reg); *pt = LocalAdjust(reg);
else if (IsOldCode(reg)) { else if (IsOldCode(reg) || IsExtensionFunctor((Functor)reg)) {
Functor f; Functor f;
f = (Functor)reg; f = (Functor)reg;
/* skip bitmaps */ /* skip bitmaps */
@ -857,6 +857,7 @@ static_growglobal(long request, CELL **ptr, CELL *hsplit)
do_grow is whether we expand stacks do_grow is whether we expand stacks
*/ */
if (delay_overflows==833) jmp_deb(1);
if (hsplit) { if (hsplit) {
/* just a little bit of sanity checking */ /* just a little bit of sanity checking */
if (hsplit < H0 && hsplit > (CELL *)Yap_GlobalBase) { if (hsplit < H0 && hsplit > (CELL *)Yap_GlobalBase) {