fix previous patch for restoring PredHashTable.

This commit is contained in:
Vitor Santos Costa
2010-04-09 11:46:59 +01:00
parent 066603c79b
commit 45473e939b
4 changed files with 27 additions and 5 deletions

View File

@@ -712,9 +712,8 @@ Yap_NewPredPropByFunctor(FunctorEntry *fe, Term cur_mod)
PredHash[hsh] = p;
}
WRITE_UNLOCK(PredHashRWLock);
/* make sure that we have something here */
p->NextOfPE = RepPredProp(fe->PropsOfFE)->NextOfPE;
RepPredProp(fe->PropsOfFE)->NextOfPE = AbsPredProp(p);
/* make sure that we have something here: note that this is not a valid pointer!! */
RepPredProp(fe->PropsOfFE)->NextOfPE = fe->PropsOfFE;
} else {
fe->PropsOfFE = AbsPredProp(p);
p->NextOfPE = NIL;