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:
parent
d065440d5a
commit
77d112fa10
@ -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);
|
||||||
}
|
}
|
||||||
|
@ -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);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user