fix locking (Paulo Moura)

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1954 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2007-10-11 21:42:09 +00:00
parent 1656d383d5
commit 07b18afdf0

View File

@ -2631,7 +2631,7 @@ new_lu_int_key(Int key)
}
}
ae = Yap_FullLookupAtom("$integer");
WRITE_LOCK(fe->FRWLock);
WRITE_LOCK(ae->ARWLock);
p0 = Yap_NewPredPropByAtom(ae,IDB_MODULE);
p = RepPredProp(p0);
p->NextOfPE = INT_LU_KEYS[hash_key];