DelayTop would assume coroutining

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1383 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2005-08-30 11:27:39 +00:00 · 2005-08-30 11:27:39 +00:00 · 590352c2c6
parent 47a784f97c
commit 590352c2c6
1 changed files with 4 additions and 0 deletions
--- 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;