Remove type-ambiguous (fromIntegral 0)::Int, replacing it with just 0
authorsimonpj@microsoft.com <unknown>
Thu, 28 May 2009 16:45:25 +0000 (16:45 +0000)
committersimonpj@microsoft.com <unknown>
Thu, 28 May 2009 16:45:25 +0000 (16:45 +0000)
This unnecessary ambiguity has been there for ages, and is now rejected
by -Werror, after fixing #3261

compiler/ghci/ByteCodeAsm.lhs

index de85a6b..66a1500 100644 (file)
@@ -385,7 +385,7 @@ mkBits findLabel st proto_insns
        literal st (MachLabel fs _ _) = litlabel st fs
        literal st (MachWord w)     = int st (fromIntegral w)
        literal st (MachInt j)      = int st (fromIntegral j)
-       literal st MachNullAddr     = int st (fromIntegral 0)
+       literal st MachNullAddr     = int st 0
        literal st (MachFloat r)    = float st (fromRational r)
        literal st (MachDouble r)   = double st (fromRational r)
        literal st (MachChar c)     = int st (ord c)