diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-08-03 14:49:31 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-03 14:49:31 +0000 |
| commit | 10f0ba21b50896514e5ac885f0e9f0bc7e2c4876 (patch) | |
| tree | 503f78b85424d1cf13dfee4e8589eed1a9635168 /compiler | |
| parent | 7db4d71dba3a70482aadd82dc688cd9fabadef25 (diff) | |
| download | haskell-10f0ba21b50896514e5ac885f0e9f0bc7e2c4876.tar.gz | |
Windows build fix
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/ghci/ByteCodeGen.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs index d92e7f867f..947382eacf 100644 --- a/compiler/ghci/ByteCodeGen.lhs +++ b/compiler/ghci/ByteCodeGen.lhs @@ -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 |