From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 1 Sep 2002 13:45:21 +0000 (+0000)
Subject: Initial version.
X-Git-Tag: ttn-vms-21-2-B4~13431
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=acb46fd42a2ebbe48944d0c80bfc21cf5e7bbcd1;p=emacs.git

Initial version.
---

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 <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;
+}