From 55c4f8704361cba3de8dc2d3ef43fb2bed1a8d1e Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 7 Dec 2004 04:56:27 +0000
Subject: [PATCH] garbage collector got confused about attributed variables if
 it also had to do heap expansion!

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1200 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/heapgc.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/C/heapgc.c b/C/heapgc.c
index 275d7e686..1e486a70f 100644
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -3341,6 +3341,7 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
       Yap_Error(OUT_OF_STACK_ERROR, TermNil, Yap_ErrorMessage);
       return 0;
     }
+    max = (CELL *)Yap_ReadTimedVar(DelayedVars);
   }
 #else
   max = NULL;
@@ -3402,6 +3403,7 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
     }
     current_env = (CELL *)*ASP;
     ASP++;
+    max = (CELL *)Yap_ReadTimedVar(DelayedVars);
   }
 #endif
   time_start = Yap_cputime();
@@ -3420,6 +3422,7 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
       bp = (char *)Yap_ExpandPreAllocCodeSpace(alloc_sz, NULL);
       current_env = (CELL *)*ASP;
       ASP++;
+      max = (CELL *)Yap_ReadTimedVar(DelayedVars);
     }
     if (!bp)
       return 0;