global variables

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1685 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-08-22 16:12:46 +00:00
parent 0f714371e5
commit d11fd73306
31 changed files with 1712 additions and 640 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -342,7 +342,7 @@ write_var(CELL *t,  struct write_globs *wglb)
 #endif
 #endif
    wrputc('D', wglb->writech);
-    wrputn(((Int) (t- CellPtr(Yap_GlobalBase))),wglb->writech);
+    wrputn((Int) ((attvar_record *)H0-(attvar_record *)t),wglb->writech);
  } else {
    wrputn(((Int) (t- H0)),wglb->writech);
  }