mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-19 18:13:55 +00:00
Initial version.
This commit is contained in:
parent
133cfefd7b
commit
acb46fd42a
17
src/unexsol.c
Normal file
17
src/unexsol.c
Normal file
@ -0,0 +1,17 @@
|
||||
/* Trivial unexec for Solaris. */
|
||||
|
||||
#include <config.h>
|
||||
#include <stdlib.h>
|
||||
#include <dlfcn.h>
|
||||
|
||||
#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;
|
||||
}
|
Loading…
Reference in New Issue
Block a user