Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : newcg
http://hackage.haskell.org/trac/ghc/changeset/c6d557e8ee41bfd910d6fe439c91179bbb2cc030 >--------------------------------------------------------------- commit c6d557e8ee41bfd910d6fe439c91179bbb2cc030 Author: Simon Marlow <[email protected]> Date: Thu Jan 19 10:05:53 2012 +0000 tiny refactoring >--------------------------------------------------------------- compiler/cmm/CmmBuildInfoTables.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/cmm/CmmBuildInfoTables.hs b/compiler/cmm/CmmBuildInfoTables.hs index a58a0ad..1561f3b 100644 --- a/compiler/cmm/CmmBuildInfoTables.hs +++ b/compiler/cmm/CmmBuildInfoTables.hs @@ -477,7 +477,7 @@ lowerSafeForeignCall entry areaMap blocks bid m caller_save <**> mkUnsafeCall (ForeignTarget suspendThread (ForeignConvention CCallConv [AddrHint, NoHint] [AddrHint])) - [id] [CmmReg (CmmGlobal BaseReg), CmmLit (CmmInt (fromIntegral (fromEnum intrbl)) wordWidth)] + [id] [CmmReg (CmmGlobal BaseReg), CmmLit (mkIntCLit (fromEnum intrbl))] midCall = mkUnsafeCall tgt rs as resume = mkUnsafeCall (ForeignTarget resumeThread (ForeignConvention CCallConv [AddrHint] [AddrHint])) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
