diff options
| author | Stefan Monnier | 2011-03-21 12:42:16 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2011-03-21 12:42:16 -0400 |
| commit | cafdcef32d55cbb44389d7e322e7f973cbb72dfd (patch) | |
| tree | 7ee0c41ea8a589650ce6f4311fb10e61a63807b9 /src/unexsol.c | |
| parent | a08a25d7aaf251aa18f2ef747be53734bc55cae9 (diff) | |
| parent | 4e05e67e4cd0bc1b0a4ef3176a4d0d91c6b3738e (diff) | |
| download | emacs-cafdcef32d55cbb44389d7e322e7f973cbb72dfd.tar.gz emacs-cafdcef32d55cbb44389d7e322e7f973cbb72dfd.zip | |
Merge from trunk
Diffstat (limited to 'src/unexsol.c')
| -rw-r--r-- | src/unexsol.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/unexsol.c b/src/unexsol.c index e1a10f7d211..ef1e34e6f0f 100644 --- a/src/unexsol.c +++ b/src/unexsol.c | |||
| @@ -1,6 +1,8 @@ | |||
| 1 | /* Trivial unexec for Solaris. */ | 1 | /* Trivial unexec for Solaris. */ |
| 2 | 2 | ||
| 3 | #include <config.h> | 3 | #include <config.h> |
| 4 | #include "unexec.h" | ||
| 5 | |||
| 4 | #include <dlfcn.h> | 6 | #include <dlfcn.h> |
| 5 | #include <setjmp.h> | 7 | #include <setjmp.h> |
| 6 | 8 | ||
| @@ -9,14 +11,14 @@ | |||
| 9 | #include "charset.h" | 11 | #include "charset.h" |
| 10 | #include "coding.h" | 12 | #include "coding.h" |
| 11 | 13 | ||
| 12 | int | 14 | void |
| 13 | unexec (const char *new_name, const char *old_name) | 15 | unexec (const char *new_name, const char *old_name) |
| 14 | { | 16 | { |
| 15 | Lisp_Object data; | 17 | Lisp_Object data; |
| 16 | Lisp_Object errstring; | 18 | Lisp_Object errstring; |
| 17 | 19 | ||
| 18 | if (! dldump (0, new_name, RTLD_MEMORY)) | 20 | if (! dldump (0, new_name, RTLD_MEMORY)) |
| 19 | return 0; | 21 | return; |
| 20 | 22 | ||
| 21 | data = Fcons (build_string (new_name), Qnil); | 23 | data = Fcons (build_string (new_name), Qnil); |
| 22 | synchronize_system_messages_locale (); | 24 | synchronize_system_messages_locale (); |
| @@ -26,4 +28,3 @@ unexec (const char *new_name, const char *old_name) | |||
| 26 | xsignal (Qfile_error, | 28 | xsignal (Qfile_error, |
| 27 | Fcons (build_string ("Cannot unexec"), Fcons (errstring, data))); | 29 | Fcons (build_string ("Cannot unexec"), Fcons (errstring, data))); |
| 28 | } | 30 | } |
| 29 | |||