diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-05-15 14:25:18 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-05-15 14:25:18 +0000 |
| commit | f3210a431cc4181a4dc805ec8744e871b8575ef1 (patch) | |
| tree | e57dd61ac9c37095bd86b4986c403c485ebd0087 /compiler/ghci/ByteCodeGen.lhs | |
| parent | b7fecf522f271305de84d0efe8af5cad28aa45f5 (diff) | |
| download | haskell-f3210a431cc4181a4dc805ec8744e871b8575ef1.tar.gz | |
validate fix: eliminate a warning on non-Windows
Diffstat (limited to 'compiler/ghci/ByteCodeGen.lhs')
| -rw-r--r-- | compiler/ghci/ByteCodeGen.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs index bd292810ad..14b5ba4c0e 100644 --- a/compiler/ghci/ByteCodeGen.lhs +++ b/compiler/ghci/ByteCodeGen.lhs @@ -1016,11 +1016,11 @@ generateCCall d0 s p (CCallSpec target cconv _) fn args_r_to_l stdcall_adj_target #ifdef mingw32_TARGET_OS | StdCallConv <- cconv - = mkFastString (unpackFS target ++ '@':show size) + = let size = a_reps_sizeW * wORD_SIZE in + mkFastString (unpackFS target ++ '@':show size) #endif | otherwise = target - size = a_reps_sizeW * wORD_SIZE -- in (is_static, static_target_addr) <- get_target_info |