[Git][cmucl/cmucl][master] Exit with the return code from obj_run_linker.

[Raymond Toy]

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/11a7e37bb39ee3e24e62c9382d35552259a39ab5
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20151010/c8b14772/attachment.html>