tiny refactoring
authorSimon Marlow <marlowsd@gmail.com>
Thu, 19 Jan 2012 10:05:53 +0000 (10:05 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 19 Jan 2012 10:05:53 +0000 (10:05 +0000)
compiler/cmm/CmmBuildInfoTables.hs

index a58a0ad..1561f3b 100644 (file)
@@ -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]))