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:
- src/lisp/save.c
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
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/11a7e37bb39ee3e24e62c9382d...