view src/unexsol.c @ 67845:ff56a6742bc2

Add x-gtk-show-hidden-files

+
鐃緒申/* Trivial unexec for Solaris.  */
+
鐃緒申
+
鐃緒申#include <config.h>
+
鐃緒申#include <stdlib.h>
+
鐃緒申#include <dlfcn.h>
+
鐃緒申
+
鐃緒申#include "lisp.h"
+
鐃緒申#include "buffer.h"
+
鐃緒申#include "charset.h"
+
鐃緒申#include "coding.h"
+
鐃緒申
+
鐃緒申int
+
鐃緒申unexec (char *new_name, char *old_name, unsigned int data_start,
+
鐃緒申        unsigned int bss_start, unsigned int entry_address)
+
鐃緒申{
+
鐃緒申  Lisp_Object data;
+
鐃緒申  Lisp_Object errstring;
+
鐃緒申
+
鐃緒申  if (! dldump (0, new_name, RTLD_MEMORY))
+
鐃緒申    return 0;
+
鐃緒申
+
鐃緒申  data = Fcons (build_string (new_name), Qnil);
+
鐃緒申  synchronize_system_messages_locale ();
+
鐃緒申  errstring = code_convert_string_norecord (build_string (dlerror ()),
+
鐃緒申					    Vlocale_coding_system, 0);
+
鐃緒申
+
鐃緒申  Fsignal (Qfile_error,
+
鐃緒申	   Fcons (build_string ("Cannot unexec"), Fcons (errstring, data)));
+
鐃緒申}
+
鐃緒申
+
鐃緒申/* arch-tag: d8ff72b3-8198-4011-8ef5-011b12027f59
+
鐃緒申   (do not change this comment) */