From 590352c2c6e0249f3daf7a56c1da9a8e0338fd0a Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 30 Aug 2005 11:27:39 +0000
Subject: [PATCH] DelayTop would assume coroutining

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

diff --git a/C/grow.c b/C/grow.c
index af0709313..d67f65dc7 100644
--- a/C/grow.c
+++ b/C/grow.c
@@ -31,6 +31,10 @@
 #define strncat(s0,s1,sz)   strcat(s0,s1)
 #endif
 
+#if !COROUTINING
+#define DelayTop() Yap_GlobalBase
+#endif
+
 static int heap_overflows = 0;
 static Int total_heap_overflow_time = 0;