view src/unexsol.c @ 80757:d315e19167d6

Fix typos (sync from trunk). * editfns.c (Ffield_string_no_properties): Fix typo in docstring. * fringe.c (Fdefine_fringe_bitmap): Doc fix. * minibuf.c (Fread_minibuffer, Feval_minibuffer): Reflow docstring. * textprop.c (syms_of_textprop) <text-property-default-nonsticky>: (Fremove_text_properties): Fix typos in docstrings. * w32fns.c (Fw32_define_rgb_color): Fix typo in docstring. * xdisp.c (syms_of_xdisp) <scroll-conservatively>: Fix typo in docstring. * xfaces.c (Fx_list_fonts, Finternal_copy_lisp_face): Fix typos in docstrings. * xselect.c (Fx_send_client_event): Doc fix.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 26 Aug 2008 11:11:41 +0000
parents b7bf941f8049
children 8a8e69664178 68dd71358159
line wrap: on
line source

/* 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);

  xsignal (Qfile_error,
	   Fcons (build_string ("Cannot unexec"), Fcons (errstring, data)));
}

/* arch-tag: d8ff72b3-8198-4011-8ef5-011b12027f59
   (do not change this comment) */