Skip to content

Commit f8b53d8

Browse files
committed
rebased and set back WINDOWS_CCONV
1 parent 0f7b948 commit f8b53d8

File tree

1 file changed

+8
-1
lines changed

1 file changed

+8
-1
lines changed

System/Process/Windows.hsc

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -44,10 +44,17 @@ import System.Win32.Process (getProcessId)
4444

4545
-- The double hash is used so that hsc does not process this include file
4646
##include "processFlags.h"
47-
#include "windows_cconv.h"
4847

4948
#include <fcntl.h> /* for _O_BINARY */
5049

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+
5158
throwErrnoIfBadPHandle :: String -> IO PHANDLE -> IO PHANDLE
5259
throwErrnoIfBadPHandle = throwErrnoIfNull
5360

0 commit comments

Comments
 (0)