From 1f6fafc6a06204fbce84d103b772976460c7ddcb Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 27 Feb 2004 01:23:27 +0000
Subject: [PATCH] fix locking

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1007 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/absmi.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/absmi.c b/C/absmi.c
index 8074bd799..02f1b3fa7 100644
--- 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