From 3e662aca31687df27d3fdb73fdc39782a4d18930 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 9 Oct 2002 04:26:48 +0000
Subject: [PATCH] adjust HeapTop in save.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@631 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/save.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/C/save.c b/C/save.c
index af707f4f0..477d5b637 100644
--- a/C/save.c
+++ b/C/save.c
@@ -610,7 +610,10 @@ check_header(void)
      saved space */
   hp_size = get_cell();
   while (hp_size > Unsigned(AuxTop) - Unsigned(HeapBase)) {
-    growheap(FALSE);
+    if(!growheap(FALSE)) {
+      Error(SYSTEM_ERROR,TermNil,ErrorMessage);
+      return(FALSE);      
+    }
   }
   if (mode == DO_EVERYTHING) {
     if ((lc_size = get_cell())+(gb_size=get_cell()) > Unsigned(LocalBase) - Unsigned(GlobalBase)) {
@@ -853,6 +856,7 @@ static void
 restore_heap_regs(void)
 {
   HeapPlus = AddrAdjust(HeapPlus);
+  HeapTop = AddrAdjust(HeapTop);
   *((YAP_SEG_SIZE *) HeapTop) = InUseFlag;
   HeapMax = HeapUsed = OldHeapUsed;
   restore_codes();