From 246e31c7257ea7e9c2b88fb8daf95e92e7bd794a Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 10 Jun 2011 19:32:31 +0000 Subject: [PATCH] Allow specifying a core with an executable image. There's no reason why this shouldn't work and tests show that it does work. So instead of disallowing it, just print a warning that it is unusual. Fred also said this should work; it's just a bit odd running a 30MB executable with a 30MB core. --- lisp/lisp.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/lisp.c b/lisp/lisp.c index 2b8ca8686..1b56f8ad6 100644 --- a/lisp/lisp.c +++ b/lisp/lisp.c @@ -1,7 +1,7 @@ /* * main() entry point for a stand alone lisp image. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.82 2011/05/31 13:26:41 rtoy Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.83 2011/06/10 19:32:31 rtoy Exp $ * */ @@ -480,8 +480,8 @@ main(int argc, const char *argv[], const char *envp[]) if (strcmp(arg, "-core") == 0) { if (builtin_image_flag) { fprintf(stderr, - "Cannot specify core file in executable image --- sorry about that.\n"); - exit(1); + "Warning: specifying a core file with an executable image is unusual,\nbut should work.\n"); + builtin_image_flag = 0; } if (core != NULL) { -- GitLab