[Git][cmucl/cmucl][master] Exit with the return code from obj_run_linker.
![](https://secure.gravatar.com/avatar/cc13150cabd87c26f35cb4b0ea78d66d.jpg?s=120&d=mm&r=g)
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...
participants (1)
-
Raymond Toy