fix abolish/1

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@182 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-11-16 20:27:06 +00:00
parent c85d9ee978
commit b2934a5aeb
5 changed files with 17 additions and 7 deletions
--- a/OPTYap/tab.insts.i
+++ b/OPTYap/tab.insts.i
@@ -153,13 +153,20 @@
          GONext();                                     \
        }

-
+#ifdef DEPTH_LIMIT
+#define allocate_environment(PTR)  \
+        PTR[E_CP] = (CELL) CPREG;  \
+        PTR[E_E] = (CELL) ENV;     \
+        PTR[E_DEPTH] = (CELL)DEPTH;\
+        PTR[E_B] = (CELL) B;       \
+        ENV = PTR
+#else
 #define allocate_environment(PTR)  \
        PTR[E_CP] = (CELL) CPREG;  \
        PTR[E_E] = (CELL) ENV;     \
        PTR[E_B] = (CELL) B;       \
        ENV = PTR
-
+#endif


 /* ------------------------------ **