view src/unexsol.c @ 47298:c6dddb2746ee

* emacs-lisp/cl-indent.el (extended-loop-p): Doc fix. * emacs-lisp/find-func.el (find-function-recenter-line): Add custom type. Doc fix.

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