Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fdebad64
Commit
fdebad64
authored
Sep 12, 2002
by
Richard M. Stallman
Browse files
Don't use report_file_error; do it by hand using dlerror.
parent
75eb23f1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
3 deletions
+17
-3
src/unexsol.c
src/unexsol.c
+17
-3
No files found.
src/unexsol.c
View file @
fdebad64
...
...
@@ -10,8 +10,22 @@ 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
))
;
Lisp_Object
data
;
Lisp_Object
errstring
;
return
0
;
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
);
/* System error messages are capitalized. Downcase the initial
unless it is followed by a slash. */
if
(
SREF
(
errstring
,
1
)
!=
'/'
)
SSET
(
errstring
,
0
,
DOWNCASE
(
SREF
(
errstring
,
0
)));
Fsignal
(
Qfile_error
,
Fcons
(
build_string
(
"Cannot unexec"
),
Fcons
(
errstring
,
data
)));
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment