From b16de6ad3d933173af401dce519b25d337762819 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 18 Dec 2003 17:36:54 +0000
Subject: [PATCH] more fixes over tabling changes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@953 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/cdmgr.c | 15 ---------------
 C/index.c |  2 +-
 2 files changed, 1 insertion(+), 16 deletions(-)

diff --git a/C/cdmgr.c b/C/cdmgr.c
index fd5e9b136..d22ff93d3 100644
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -1491,21 +1491,6 @@ p_showconslultlev(void)
 static void
 end_consult(void)
 {
-#if defined(YAPOR) || defined(THREADS)
-  consult_obj  *fp;
-
-  /* force indexing for static and dynamic update predicates
-     after consult and not when all hell may break loose ! */
-  for (fp = ConsultSp; fp < ConsultBase; ++fp) {
-    PredEntry *pred = RepPredProp(fp->p);
-    WRITE_LOCK(pred->PRWLock);
-    if (pred->OpcodeOfPred == INDEX_OPCODE) {
-      IPred(pred);
-      /* IPred does the unlocking */
-    }
-    WRITE_UNLOCK(pred->PRWLock);
-  }
-#endif
   ConsultSp = ConsultBase;
   ConsultBase = ConsultSp+ConsultSp->c;
   ConsultSp += 3;
diff --git a/C/index.c b/C/index.c
index 593faeb40..3b56f3272 100644
--- a/C/index.c
+++ b/C/index.c
@@ -2873,8 +2873,8 @@ emit_protection_choicepoint(int first, int clleft, UInt nxtlbl, PredEntry *ap)
 	but should work.
       */
       Yap_emit(retryme_op, (CELL)TRUSTFAILCODE, 0);
-    } else {
 #endif
+    } else {
       Yap_emit(trustme_op, 0, 0);
     }
   }