From dec36676e579679f19d50149fbe2a871a93b64f7 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 10 May 2010 03:04:54 +0100
Subject: [PATCH] stack expansion would not recognise bignums and friends.y

---
 C/grow.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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