1 /* Trivial unexec for Solaris. */
10 unexec (char *new_name
, char *old_name
, unsigned int data_start
,
11 unsigned int bss_start
, unsigned int entry_address
)
14 Lisp_Object errstring
;
16 if (! dldump (0, new_name
, RTLD_MEMORY
))
19 data
= Fcons (build_string (new_name
), Qnil
);
20 synchronize_system_messages_locale ();
21 errstring
= code_convert_string_norecord (build_string (dlerror ()),
22 Vlocale_coding_system
, 0);
24 /* System error messages are capitalized. Downcase the initial
25 unless it is followed by a slash. */
26 if (SREF (errstring
, 1) != '/')
27 SSET (errstring
, 0, DOWNCASE (SREF (errstring
, 0)));
30 Fcons (build_string ("Cannot unexec"), Fcons (errstring
, data
)));