fix locking

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1007 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-02-27 01:23:27 +00:00
parent c90c3b7b34
commit 1f6fafc6a0

View File

@ -1083,8 +1083,8 @@ Yap_absmi(int inp)
READ_LOCK(PP->PRWLock); READ_LOCK(PP->PRWLock);
if (PP->cs.p_code.TrueCodeOfPred != PREG) { if (PP->cs.p_code.TrueCodeOfPred != PREG) {
PREG = PP->cs.p_code.TrueCodeOfPred; PREG = PP->cs.p_code.TrueCodeOfPred;
PP = NULL;
READ_UNLOCK(PP->PRWLock); READ_UNLOCK(PP->PRWLock);
PP = NULL;
GONext(); GONext();
} }
#endif #endif