1
0
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:
Richard M. Stallman 2002-09-01 13:45:21 +00:00
parent 133cfefd7b
commit acb46fd42a

17
src/unexsol.c Normal file
View 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;
}