X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FllvmGen%2FLlvmMangler.hs;fp=compiler%2FllvmGen%2FLlvmMangler.hs;h=0053e23610281e13ec591175a385ebb90da9783c;hp=2fbe324018446db996bb879279a7e826180ae1a1;hb=fecaf1536945170d72e4949009adc151479926c5;hpb=efee3ecf26da95178b773ed68f33601e3fea2c23

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