From f3210a431cc4181a4dc805ec8744e871b8575ef1 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 15 May 2008 14:25:18 +0000 Subject: [PATCH] validate fix: eliminate a warning on non-Windows --- compiler/ghci/ByteCodeGen.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4