From fecaf1536945170d72e4949009adc151479926c5 Mon Sep 17 00:00:00 2001 From: David Terei Date: Mon, 19 Jul 2010 10:34:11 +0000 Subject: [PATCH] LLVM: Fix warning introduce in last commit. --- compiler/llvmGen/LlvmMangler.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/llvmGen/LlvmMangler.hs b/compiler/llvmGen/LlvmMangler.hs index 2fbe324..0053e23 100644 --- a/compiler/llvmGen/LlvmMangler.hs +++ b/compiler/llvmGen/LlvmMangler.hs @@ -157,7 +157,7 @@ fixupStack fun nfun | BS.null nfun = let -- fixup sub op (a, b) = BS.breakSubstring (BS.pack ", %esp\n") fun (a', num) = BS.breakEnd dollarPred a - num' = BS.pack $ show (read (BS.unpack num) + 4) + num' = BS.pack $ show (read (BS.unpack num) + 4:Int) fix = a' `BS.append` num' in if BS.null b then nfun `BS.append` a @@ -172,7 +172,7 @@ fixupStack fun nfun = (jmp, b') = BS.break eolPred b (a', numx) = BS.breakEnd dollarPred a (num, x) = BS.break commaPred numx - num' = BS.pack $ show (read (BS.unpack num) + 4) + num' = BS.pack $ show (read (BS.unpack num) + 4:Int) fix = a' `BS.append` num' `BS.append` x `BS.append` jmp in if BS.null b then nfun `BS.append` a -- 1.7.10.4