Commit b74d50f3 authored by John van Groningen's avatar John van Groningen

add CreateProcess_32 because older codegenerators do not

support p in ccall
parent edfd821b
......@@ -1021,7 +1021,9 @@ create_process command_line current_directory std_error_handle os
= IF_INT_64_OR_32 (STARTF_USESTDHANDLES<<32) STARTF_USESTDHANDLES,
[STARTUPINFO_hStdError_int_offset] = std_error_handle};
process_information = createArray PROCESS_INFORMATION_size_int 0
(ok,os) = CreateProcess 0 command_line 0 0 True DETACHED_PROCESS 0 current_directory startup_info process_information os
(ok,os) = IF_INT_64_OR_32
(CreateProcess 0 command_line 0 0 True DETACHED_PROCESS 0 current_directory startup_info process_information os)
(CreateProcess_32 0 command_line 0 0 True DETACHED_PROCESS 0 current_directory startup_info process_information os)
= (ok,process_information,os)
CreateFile :: !{#Char} !Int !Int !{#Int} !Int !Int !HANDLE !*OSToolbox -> (!HANDLE,!*OSToolbox);
......@@ -1068,6 +1070,14 @@ PROCESS_INFORMATION_hThread_int_offset:==1;
DETACHED_PROCESS:==8;
CreateProcess_32 :: !LPCTSTR !*{#Char} !LPSECURITY_ATTRIBUTES !LPSECURITY_ATTRIBUTES !Bool !Int !LPVOID
!{#Char} !{#Int} !{#Int} !*OSToolbox -> (!Bool,!*OSToolbox)
CreateProcess_32 lpApplicationName commandLine lpProcessAttributes lpThreadAttributes inheritHandles creationFlags lpEnvironment
currentDirectory lpStartupInfo lpProcessInformation os
= code {
ccall CreateProcessA@40 "PIsIIIIIsAA:I:I"
}
CreateProcess :: !LPCTSTR !*{#Char} !LPSECURITY_ATTRIBUTES !LPSECURITY_ATTRIBUTES !Bool !Int !LPVOID
!{#Char} !{#Int} !{#Int} !*OSToolbox -> (!Bool,!*OSToolbox)
CreateProcess lpApplicationName commandLine lpProcessAttributes lpThreadAttributes inheritHandles creationFlags lpEnvironment
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment