diff --git a/src/unexsol.c b/src/unexsol.c new file mode 100644 index 00000000000..ff8a812f279 --- /dev/null +++ b/src/unexsol.c @@ -0,0 +1,17 @@ +/* Trivial unexec for Solaris. */ + +#include +#include +#include + +#include "lisp.h" + +int +unexec (char *new_name, char *old_name, unsigned int data_start, + unsigned int bss_start, unsigned int entry_address) +{ + if (dldump (0, new_name, RTLD_MEMORY)) + report_file_error ("Cannot unexec", Fcons (build_string (new_name), Qnil)); + + return 0; +}