From e19a8eeb87801336324d6e0a6795be7baedb1e86 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Tue, 4 Nov 2008 17:01:57 +0000
Subject: [PATCH] fix case where index has no clauses.

---
 C/dbase.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/dbase.c b/C/dbase.c
index 9caec138c..4aa457644 100644
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -3706,7 +3706,7 @@ index_sz(LogUpdIndex *x)
     else
       endop = Yap_opcode(_trust_logical);
     start = start->u.Ills.l1;
-    do {
+    if (start->u.Ills.s) do {
       sz += (UInt)NEXTOP((yamop*)NULL,OtaLl);
       op1 = start->opc;
       count++;