From 0fe29b48b4e423e8c5b7841071c3a0b0ff5cf857 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 6 Dec 2004 04:50:22 +0000
Subject: [PATCH] fix bug in removing first clause of a try sequence (lu preds)

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1197 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/index.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/C/index.c b/C/index.c
index bffeb5eb8..4e77d5a68 100644
--- a/C/index.c
+++ b/C/index.c
@@ -11,8 +11,13 @@
 * File:		index.c							 *
 * comments:	Indexing a Prolog predicate				 *
 *									 *
-* Last rev:     $Date: 2004-12-05 05:01:24 $,$Author: vsc $						 *
+* Last rev:     $Date: 2004-12-06 04:50:22 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.109  2004/12/05 05:01:24  vsc
+* try to reduce overheads when running with goal expansion enabled.
+* CLPBN fixes
+* Handle overflows when allocating big clauses properly.
+*
 * Revision 1.108  2004/11/19 22:08:42  vsc
 * replace SYSTEM_ERROR by out OUT_OF_WHATEVER_ERROR whenever appropriate.
 *
@@ -5539,7 +5544,7 @@ kill_clause(yamop *ipc, yamop *bg, yamop *lt, path_stack_entry *sp0, PredEntry *
       }
     } else {
       if (IN_BETWEEN(bg, start->u.Ill.l1->u.ld.d, lt)) {
-	start->u.Ill.l1->u.l.l = FAILCODE;
+	start->u.Ill.l1->u.ld.d = FAILCODE;
       }
     }
     start->opc = Yap_opcode(_stale_lu_index);