validate fix: eliminate a warning on non-Windows

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