Initial version.

diff --git a/src/unexsol.c b/src/unexsol.c
new file mode 100644 (file)
index 0000000..ff8a812
--- /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;
+}