Changeset 9728

Timestamp:

Jun 10, 2008, 5:13:48 PM (16 years ago)

Author:

Gary Byers

Message:

Windows version of EXEC-WITH-IO-REDIRECTION: new-input, new-output, new-error
can all be NIL, so use fd 0, 1, 2 unless they're set. #get_osfhandle returns
an integer, so coerce its result to a pointer before trying to store it
in the procinfo struct. (The fact that this function runs with a
HANDLER-CASE in effect tends to obscure these mundane errors.)

File:

• branches/win64/level-1/linux-files.lisp (modified) (2 diffs)

branches/win64/level-1/linux-files.lisp

@@ -1523 +1523 @@
             (logior #$STARTF_USESTDHANDLES #$STARTF_USESHOWWINDOW))
       (setf (pref si #>STARTUPINFO.wShowWindow) #$SW_HIDE)
-      (setf (pref si #>STARTUPINFO.hStdInput) (#__get_osfhandle new-in))
-      (setf (pref si #>STARTUPINFO.hStdOutput) (#__get_osfhandle new-out))
-      (setf (pref si #>STARTUPINFO.hStdError) (#__get_osfhandle new-err))
+      (setf (pref si #>STARTUPINFO.hStdInput)
+            (%int-to-ptr (#__get_osfhandle (or new-in 0))))
+      (setf (pref si #>STARTUPINFO.hStdOutput)
+            (%int-to-ptr (#__get_osfhandle (or new-out 1))))
+      (setf (pref si #>STARTUPINFO.hStdError)
+            (%int-to-ptr (#__get_osfhandle (or new-err 2))))
       (if (zerop (#_CreateProcessW (%null-ptr)
                                    command
@@ -1536 +1539 @@
                                    si
                                    proc-info))
-          (error "Process creation failed"))
+          (error "Process creation failed: ~d" (#_GetLastError)))
       (#_CloseHandle (pref proc-info #>PROCESS_INFORMATION.hThread))
       (pref proc-info #>PROCESS_INFORMATION.hProcess))))