mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

MinGW32: cast arguments to execvp

Browse source 
MinGW32's MSVCRT library requires strict casting for exec family functions

* libguile/posix.c (scm_execl, scm_execlp, scm_execle) [__MINGW32__]: cast
  arguments
This commit is contained in:
Michael Gran 2025-03-22 17:42:41 -07:00
parent 0f2125e66f
commit 87402c849e
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/posix.c
View file

@ -1,4 +1,4 @@
/* Copyright 1995-2014, 2016-2019, 2021-2024
/* Copyright 1995-2014, 2016-2019, 2021-2025
Free Software Foundation, Inc.
Copyright 2021 Maxime Devos <maximedevos@telenet.be>
@ -1174,7 +1174,11 @@ SCM_DEFINE (scm_execl, "execl", 1, 0, 1,
exec_argv = scm_i_allocate_string_pointers (args);
#ifdef __MINGW32__
execv (exec_file, (const char * const *)exec_argv);
#else
execv (exec_file, exec_argv);
#endif
SCM_SYSERROR;
/* not reached. */
@ -1203,7 +1207,11 @@ SCM_DEFINE (scm_execlp, "execlp", 1, 0, 1,
exec_argv = scm_i_allocate_string_pointers (args);
#ifdef __MINGW32__
execvp (exec_file, (const char * const *)exec_argv);
#else
execvp (exec_file, exec_argv);
#endif
SCM_SYSERROR;
/* not reached. */
@ -1237,7 +1245,11 @@ SCM_DEFINE (scm_execle, "execle", 2, 0, 1,
exec_argv = scm_i_allocate_string_pointers (args);
exec_env = scm_i_allocate_string_pointers (env);
#ifdef __MINGW32__
execve (exec_file, (const char * const *) exec_argv, (const char * const *) exec_env);
#else
execve (exec_file, exec_argv, exec_env);
#endif
SCM_SYSERROR;
/* not reached. */