Commit 10f0ba21 authored by Simon Marlow's avatar Simon Marlow

Windows build fix

parent 7db4d71d
......@@ -1034,7 +1034,7 @@ generateCCall d0 s p (CCallSpec target cconv _) fn args_r_to_l
stdcall_adj_target
#ifdef mingw32_TARGET_OS
| StdCallConv <- cconv
= let size = a_reps_sizeW * wORD_SIZE in
= let size = fromIntegral a_reps_sizeW * wORD_SIZE in
mkFastString (unpackFS target ++ '@':show size)
#endif
| otherwise
......
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