Mercurial > emacs

view src/unexsol.c @ 83373:35ba943c8399

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Set Emacs version number to 22.0.51 to allow parallel installations of CVS trunk and the multi-tty branch. * README: Set Emacs version to 22.0.51. * lispref/elisp.texi (EMACSVER): Set to 22.0.51. * man/emacs.texi (EMACSVER): Set to 22.0.51. * lisp/version.el (emacs-version): Set to 22.0.51. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-413
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 11 Sep 2005 04:10:45 +0000
parents 695cf19ef79e
children b7bf941f8049 375f2633d815
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);

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

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