We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0f7b948 commit f8b53d8Copy full SHA for f8b53d8
System/Process/Windows.hsc
@@ -44,10 +44,17 @@ import System.Win32.Process (getProcessId)
44
45
-- The double hash is used so that hsc does not process this include file
46
##include "processFlags.h"
47
-#include "windows_cconv.h"
48
49
#include <fcntl.h> /* for _O_BINARY */
50
+##if defined(i386_HOST_ARCH)
51
+## define WINDOWS_CCONV stdcall
52
+##elif defined(x86_64_HOST_ARCH)
53
+## define WINDOWS_CCONV ccall
54
+##else
55
+## error Unknown mingw32 arch
56
+##endif
57
+
58
throwErrnoIfBadPHandle :: String -> IO PHANDLE -> IO PHANDLE
59
throwErrnoIfBadPHandle = throwErrnoIfNull
60
0 commit comments