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

make sure there is indexing code after a record_at

This commit is contained in:
Vitor Santos Costa 2010-01-21 10:00:24 +00:00
parent 2edc06b6a2
commit fa9425cd21
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/dbase.c
View File

@ -1900,7 +1900,7 @@ record_lu_at(int position, LogUpdClause *ocl, Term t)
UNLOCK(pe->PELock);
return NULL;
}
if(pe->cs.p_code.NOfClauses > 1)
if(pe->cs.p_code.NOfClauses > 1)
Yap_RemoveIndexation(pe);
if (position == MkFirst) {
/* add before current clause */
@ -1926,6 +1926,10 @@ record_lu_at(int position, LogUpdClause *ocl, Term t)
ocl->ClNext = cl;
}
pe->cs.p_code.NOfClauses++;
if (pe->cs.p_code.NOfClauses > 1) {
pe->OpcodeOfPred = INDEX_OPCODE;
pe->CodeOfPred = (yamop *)(&(pe->OpcodeOfPred));
}
UNLOCK(pe->PELock);
return cl;
}