From f70af77e0caa482e76b5157814e338b59469b973 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 7 Dec 2004 13:46:53 +0000
Subject: [PATCH] fixes for coroutining only

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

diff --git a/C/heapgc.c b/C/heapgc.c
index 3b5842171..6056a9448 100644
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -3403,7 +3403,9 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
     }
     current_env = (CELL *)*ASP;
     ASP++;
+#if COROUTINING
     max = (CELL *)Yap_ReadTimedVar(DelayedVars);
+#endif
   }
 #endif
   time_start = Yap_cputime();
@@ -3422,7 +3424,9 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
       bp = (char *)Yap_ExpandPreAllocCodeSpace(alloc_sz, NULL);
       current_env = (CELL *)*ASP;
       ASP++;
+#if COROUTINING
       max = (CELL *)Yap_ReadTimedVar(DelayedVars);
+#endif
     }
     if (!bp)
       return 0;