From e3a987f38ec1de3de32412e864de9edc8d82e3f4 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 29 Mar 2006 16:00:10 +0000
Subject: [PATCH] make tabling compile

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

diff --git a/C/cdmgr.c b/C/cdmgr.c
index df8fea235..f069eeef9 100644
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -11,8 +11,11 @@
 * File:		cdmgr.c							 *
 * comments:	Code manager						 *
 *									 *
-* Last rev:     $Date: 2006-03-24 16:26:26 $,$Author: vsc $						 *
+* Last rev:     $Date: 2006-03-29 16:00:10 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.182  2006/03/24 16:26:26  vsc
+* code review
+*
 * Revision 1.181  2006/03/22 20:07:28  vsc
 * take better care of zombies
 *
@@ -5378,7 +5381,11 @@ p_choicepoint_info(void)
     switch (opnum) {
 #ifdef TABLING
     case _table_load_answer:
+#ifdef LOW_LEVEL_TRACER
       pe = LOAD_CP(cptr)->cp_pred_entry;
+#else
+      pe = UndefCode;
+#endif
       t = MkVarTerm();
       break;
     case _table_try_answer:
@@ -5387,11 +5394,20 @@ p_choicepoint_info(void)
     case _table_retry:
     case _table_trust:
     case _table_completion:
+#ifdef LOW_LEVEL_TRACER
       pe = GEN_CP(cptr)->cp_pred_entry;
       t = BuildActivePred(pe, (CELL *)(GEN_CP(B) + 1));
+#else
+      pe = UndefCode;
+      t = MkVarTerm();
+#endif
       break;
     case _table_answer_resolution:
+#ifdef LOW_LEVEL_TRACER
       pe = CONS_CP(cptr)->cp_pred_entry;
+#else
+      pe = UndefCode;
+#endif
       t = MkVarTerm();
       break;
     case _trie_retry_null: