From fe129bcd9ef999e29d17824caef72207b2a5befa Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 2 Oct 2002 17:07:45 +0000
Subject: [PATCH] fix restoring preds for module: there may be none!

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

diff --git a/H/rheap.h b/H/rheap.h
index 779954210..001c7b047 100644
--- a/H/rheap.h
+++ b/H/rheap.h
@@ -180,7 +180,9 @@ restore_codes(void)
 
     for (i = 0; i < heap_regs->no_of_modules; i++) {
       heap_regs->module_name[i] = AtomTermAdjust(heap_regs->module_name[i]);
-      heap_regs->module_pred[i] = PtoPredAdjust(heap_regs->module_pred[i]);
+      if (heap_regs->module_pred[i]) {
+	heap_regs->module_pred[i] = PtoPredAdjust(heap_regs->module_pred[i]);
+      }
     }
   }
   heap_regs->atom_abol = AtomAdjust(heap_regs->atom_abol);