fix locking

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1007 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-02-27 01:23:27 +00:00 · 2004-02-27 01:23:27 +00:00 · 1f6fafc6a0
parent c90c3b7b34
commit 1f6fafc6a0
1 changed files with 1 additions and 1 deletions
--- a/C/absmi.c
+++ b/C/absmi.c
@ -1083,8 +1083,8 @@ Yap_absmi(int inp)
      READ_LOCK(PP->PRWLock);
      if (PP->cs.p_code.TrueCodeOfPred != PREG) {
 	PREG = PP->cs.p_code.TrueCodeOfPred;
-	PP = NULL;
 	READ_UNLOCK(PP->PRWLock);
+	PP = NULL;
 	GONext();
      }
 #endif