diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

MultiFiles should initialize as FAIL.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-09-07 23:35:11 +02:00
parent 7940ec75b2
commit 045df7d7d6
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/cdmgr.c
View File

@ -1605,7 +1605,7 @@ retract_all(PredEntry *p, int in_use)
} }
p->cs.p_code.FirstClause = NULL; p->cs.p_code.FirstClause = NULL;
p->cs.p_code.LastClause = NULL; p->cs.p_code.LastClause = NULL;
if (p->PredFlags & (DynamicPredFlag|LogUpdatePredFlag)) { if (p->PredFlags & (DynamicPredFlag|LogUpdatePredFlag|MultiFileFlag)) {
p->OpcodeOfPred = FAIL_OPCODE; p->OpcodeOfPred = FAIL_OPCODE;
} else { } else {
p->OpcodeOfPred = UNDEF_OPCODE; p->OpcodeOfPred = UNDEF_OPCODE;
@ -2637,8 +2637,6 @@ purge_clauses(PredEntry *pred)
retract_all(pred, static_in_use(pred,TRUE)); retract_all(pred, static_in_use(pred,TRUE));
} }
pred->src.OwnerFile = AtomNil; pred->src.OwnerFile = AtomNil;
if (pred->PredFlags & MultiFileFlag)
pred->PredFlags ^= MultiFileFlag;
} }
void void