trail_ref cleanup

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@64 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/exec.c

@@ -113,14 +113,14 @@ CallProlog(PredEntry *pen, unsigned int arity, Int position)
 	  Clause *cl = ClauseCodeToClause(q);
 
 	  LOCK(cl->ClLock);
-	  TRAIL_REF(&(cl->ClFlags));
+	  TRAIL_CLREF(cl);
 	  INC_DBREF_COUNT(cl);
 	  UNLOCK(cl->ClLock);
 	}
 #else 
 	if (!(ClauseCodeToClause(q)->ClFlags & InUseMask)) {
 	  OPREG     *opp = &(ClauseCodeToClause(q)->ClFlags);
-	  TRAIL_REF(opp);
+	  TRAIL_CLREF(ClauseCodeToClause(q));
 	  *opp |= InUseMask;
 	}
 #endif