From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 15 May 2008 14:25:18 +0000 (+0000)
Subject: validate fix: eliminate a warning on non-Windows
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f3210a431cc4181a4dc805ec8744e871b8575ef1

validate fix: eliminate a warning on non-Windows
---

diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs
index bd29281..14b5ba4 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