bug in dbref arrays with log updates

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1148 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-09-28 18:37:05 +00:00
parent 40a39a79b1
commit 6e0defe923
2 changed files with 9 additions and 4 deletions
--- a/C/arrays.c
+++ b/C/arrays.c
@@ -243,8 +243,10 @@ AccessNamedArray(Atom a, Int indx)
 	    if (ref->Flags & LogUpdMask) {
 	      LogUpdClause *cl = (LogUpdClause *)ref;

-	      cl->ClFlags |= InUseMask;
-	      TRAIL_CLREF(cl);
+	      if (!(cl->ClFlags & InUseMask)) {
+		cl->ClFlags |= InUseMask;
+		TRAIL_CLREF(cl);
+	      }
 	    } else {
 	      if (!(ref->Flags & InUseMask)) {
 		ref->Flags |= InUseMask;