fix -h without size core dumping

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@544 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-06-18 04:27:33 +00:00
parent d065440d5a
commit 77d112fa10
2 changed files with 3 additions and 2 deletions

View File

@ -196,6 +196,7 @@ exit_yap (int value)
#if defined(YAPOR) #if defined(YAPOR)
unmap_memory(); unmap_memory();
#endif /* YAPOR || TABLING */ #endif /* YAPOR || TABLING */
if (PrologMode != BootMode)
ShutdownLoadForeign(); ShutdownLoadForeign();
exit(value); exit(value);
} }

View File

@ -310,7 +310,7 @@ parse_yap_arguments(int argc, char *argv[], yap_init_args *init_args)
--argc, p = *++argv; --argc, p = *++argv;
else 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); YapExit(1);
} }
} }