From 045df7d7d66b5eab481f7ffba08fe8eb54fee7bf Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Wed, 7 Sep 2011 23:35:11 +0200
Subject: [PATCH] MultiFiles should initialize as FAIL.

---
 C/cdmgr.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/C/cdmgr.c b/C/cdmgr.c
index 81d88da0c..9fca66baa 100644
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -1605,7 +1605,7 @@ retract_all(PredEntry *p, int in_use)
   }
   p->cs.p_code.FirstClause = NULL;
   p->cs.p_code.LastClause = NULL;
-  if (p->PredFlags & (DynamicPredFlag|LogUpdatePredFlag)) {
+  if (p->PredFlags & (DynamicPredFlag|LogUpdatePredFlag|MultiFileFlag)) {
     p->OpcodeOfPred = FAIL_OPCODE;
   } else {
     p->OpcodeOfPred = UNDEF_OPCODE;
@@ -2637,8 +2637,6 @@ purge_clauses(PredEntry *pred)
     retract_all(pred, static_in_use(pred,TRUE));
   }
   pred->src.OwnerFile = AtomNil;
-  if (pred->PredFlags & MultiFileFlag)
-    pred->PredFlags ^= MultiFileFlag;
 }
 
 void