compile under sun's cc.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@165 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-09-24 18:07:16 +00:00
parent 34010ba45a
commit 2eb822797e
17 changed files with 40 additions and 35 deletions
--- a/H/amiops.h
+++ b/H/amiops.h
@@ -371,7 +371,9 @@ Int unify(Term t0, Term t1)
    return(TRUE);
  } else {
    while(TR != TR0) {
-      CELL *p = (CELL *)TrailTerm(--TR);
+      CELL *p;
+      --TR;
+      p = (CELL *)TrailTerm(TR);
      RESET_VARIABLE(p);
    }
    return(FALSE);