diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2023-01-18 23:31:41 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2023-01-18 23:31:41 +0100 |
| commit | 8e2c6e7b426b6c9c13076208b2e176d4aa1432f1 (patch) | |
| tree | 895eb89bcced2c39e53532507b1ed4a1302a9a27 /libgfortran/intrinsics | |
| parent | 0f85ae6591c92b161693073c0931c7ca1d5d0c5a (diff) | |
| download | gcc-8e2c6e7b426b6c9c13076208b2e176d4aa1432f1.zip gcc-8e2c6e7b426b6c9c13076208b2e176d4aa1432f1.tar.gz gcc-8e2c6e7b426b6c9c13076208b2e176d4aa1432f1.tar.bz2 | |
libfortran: Fix execute_command_line for Windows
On Windows, 'system' is called - that fails with -1 if the command
interpreter could not be started; on POSIX systems, if the child
process could not be started by the shell, exit(127)/_exit(127) is
called/returned. On Windows, cmd.exe (and also the PowerShell) return
errorlevel 9009.
libgfortran/ChangeLog:
* intrinsics/execute_command_line.c (execute_command_line): On
Windows, regard system()'s return value of 9009 as EXEC_INVALIDCOMMAND.
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/execute_command_line.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/execute_command_line.c b/libgfortran/intrinsics/execute_command_line.c index 305f067..0d16884 100644 --- a/libgfortran/intrinsics/execute_command_line.c +++ b/libgfortran/intrinsics/execute_command_line.c @@ -145,6 +145,11 @@ execute_command_line (const char *command, bool wait, int *exitstat, || (WIFEXITED(res) && WEXITSTATUS(res) == 127) || (WIFEXITED(res) && WEXITSTATUS(res) == 126) #endif +#ifdef __MINGW32__ + /* cmd.exe sets the errorlevel to 9009, + if the command could not be executed. */ + || res == 9009 +#endif ) /* Shell return codes 126 and 127 mean that the command line could not be executed for various reasons. */ |