From 0aa52527f38cd57566537bd51ea9a95d3cfe2f3c Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 1 Apr 2008 09:41:05 +0000
Subject: [PATCH] more fixes to restore

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2181 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 H/rheap.h | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/H/rheap.h b/H/rheap.h
index 49ac586c0..d5b91e3d1 100644
--- a/H/rheap.h
+++ b/H/rheap.h
@@ -11,8 +11,11 @@
 * File:		rheap.h							 *
 * comments:	walk through heap code					 *
 *									 *
-* Last rev:     $Date: 2008-04-01 08:42:46 $,$Author: vsc $						 *
+* Last rev:     $Date: 2008-04-01 09:41:05 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.88  2008/04/01 08:42:46  vsc
+* fix restore and small VISTA thingies
+*
 * Revision 1.87  2008/03/25 22:03:14  vsc
 * fix some icc warnings
 *
@@ -778,8 +781,10 @@ restore_codes(void)
     Yap_heap_regs->file_aliases =
       (struct AliasDescS *)AddrAdjust((ADDR)Yap_heap_regs->file_aliases);
   }
-  Yap_heap_regs->yap_lib_dir =
-    (char *)AddrAdjust((ADDR)Yap_heap_regs->yap_lib_dir);
+  if (Yap_heap_regs->yap_lib_dir) {
+    Yap_heap_regs->yap_lib_dir =
+      (char *)AddrAdjust((ADDR)Yap_heap_regs->yap_lib_dir);
+  }
   Yap_heap_regs->pred_goal_expansion =
     PredEntryAdjust(Yap_heap_regs->pred_goal_expansion);
   Yap_heap_regs->pred_meta_call =
@@ -1329,8 +1334,10 @@ RestoreEntries(PropEntry *pp)
 	  PropAdjust(gb->NextOfPE);
 	gb->AtomOfGE =
 	  AtomEntryAdjust(gb->AtomOfGE);
-	gb->NextGE =
-	  GlobalEntryAdjust(gb->NextGE);
+	if (gb->NextGE) {
+	  gb->NextGE =
+	    GlobalEntryAdjust(gb->NextGE);
+	}
 	if (IsVarTerm(gbt)) {
 	  CELL *gbp = VarOfTerm(gbt);
 	  if (IsOldGlobalPtr(gbp))