Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
11a7e37b
by Raymond Toy
at 2015-10-09T21:56:01Z
Exit with the return code from obj_run_linker.
obj_run_linker() returns the return code from the call to system().
Exit lisp with this return code to indicate if running the executable
linker script worked or not.
1 changed file:
Changes:
src/lisp/save.c
--- a/src/lisp/save.c
+++ b/src/lisp/save.c
@@ -250,6 +250,7 @@ save_executable(char *filename, lispobj init_function)
{
char *dir_name;
char *dir_copy;
+ int rc;
#if defined WANT_CGC
volatile lispobj *func_ptr = &init_function;
@@ -357,9 +358,9 @@ save_executable(char *filename, lispobj init_function)
printf("Linking executable...\n");
fflush(stdout);
- obj_run_linker(init_function, filename);
+ rc = obj_run_linker(init_function, filename);
printf("done.\n");
free(dir_copy);
- exit(0);
+ exit(rc);
}
#endif