From 77d112fa10fef552bf6ae0b46523c23e9e8ae35a Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 18 Jun 2002 04:27:33 +0000
Subject: [PATCH] fix -h without size core dumping

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@544 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/errors.c    | 3 ++-
 console/yap.c | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/C/errors.c b/C/errors.c
index 1496c8b69..0808154e4 100644
--- a/C/errors.c
+++ b/C/errors.c
@@ -196,7 +196,8 @@ exit_yap (int value)
 #if defined(YAPOR)
   unmap_memory();
 #endif /* YAPOR || TABLING */
-  ShutdownLoadForeign();
+  if (PrologMode != BootMode)
+    ShutdownLoadForeign();
   exit(value);
 }
 
diff --git a/console/yap.c b/console/yap.c
index 7d318e4e2..0e26681af 100644
--- a/console/yap.c
+++ b/console/yap.c
@@ -310,7 +310,7 @@ parse_yap_arguments(int argc, char *argv[], yap_init_args *init_args)
 		  --argc, p = *++argv;
 		else
 		  {
-		    fprintf(stderr,"[ YAP unrecoverable error: missing size in flag %s ]", argv[-1]);
+		    fprintf(stderr,"[ YAP unrecoverable error: missing size in flag %s ]", argv[0]);
 		  YapExit(1);
 		  }
 	      }