mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Const qualify return of strerror

Browse source 
Closes https://debbugs.gnu.org/cgi/bugreport.cgi?bug=43987
This commit is contained in:
Philipp Klaus Krause 2021-11-03 11:54:51 +01:00 • committed by Daniel Llorens
parent 492bd63883
commit ab9c0c9ca7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/posix.c
View file

@ -1299,7 +1299,7 @@ renumber_file_descriptor (int fd, int err)
{ {
/* At this point we are in the child process before exec. We /* At this point we are in the child process before exec. We
cannot safely raise an exception in this environment. */ cannot safely raise an exception in this environment. */
char *msg = strerror (errno); const char *msg = strerror (errno);
fprintf (fdopen (err, "a"), "start_child: dup failed: %s\n", msg); fprintf (fdopen (err, "a"), "start_child: dup failed: %s\n", msg);
_exit (127); /* Use exit status 127, as with other exec errors. */ _exit (127); /* Use exit status 127, as with other exec errors. */
} }
@ -1383,7 +1383,7 @@ start_child (const char *exec_file, char **exec_argv,
/* The exec failed! There is nothing sensible to do. */ /* The exec failed! There is nothing sensible to do. */
{ {
char *msg = strerror (errno); const char *msg = strerror (errno);
fprintf (fdopen (2, "a"), "In execvp of %s: %s\n", fprintf (fdopen (2, "a"), "In execvp of %s: %s\n",
exec_file, msg); exec_file, msg);
} }