[commit: ghc] newcg: tiny refactoring (c6d557e)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : newcg

http://hackage.haskell.org/trac/ghc/changeset/c6d557e8ee41bfd910d6fe439c91179bbb2cc030

>---------------------------------------------------------------

commit c6d557e8ee41bfd910d6fe439c91179bbb2cc030
Author: Simon Marlow <marlowsd at gmail.com>
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]))