diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-17 20:21:06 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-17 21:20:25 +0100 |
| commit | 9224e48e4f9534e1f9d02099523c8f9c3acc70c0 (patch) | |
| tree | 77c153fe4b501bf4fa9289cb24f0814fd448fb12 /compiler/codeGen/StgCmmProf.hs | |
| parent | e76fa6999edab45baccc572bff5b0abe7abe3405 (diff) | |
| download | haskell-9224e48e4f9534e1f9d02099523c8f9c3acc70c0.tar.gz | |
Remove some CPP
Diffstat (limited to 'compiler/codeGen/StgCmmProf.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmProf.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmProf.hs b/compiler/codeGen/StgCmmProf.hs index e6e9899040..d2f4984538 100644 --- a/compiler/codeGen/StgCmmProf.hs +++ b/compiler/codeGen/StgCmmProf.hs @@ -369,8 +369,9 @@ ldvEnter cl_ptr = do mkNop loadEra :: DynFlags -> CmmExpr -loadEra dflags = CmmMachOp (MO_UU_Conv cIntWidth (wordWidth dflags)) - [CmmLoad (mkLblExpr (mkCmmDataLabel rtsPackageId (fsLit "era"))) cInt] +loadEra dflags = CmmMachOp (MO_UU_Conv (cIntWidth dflags) (wordWidth dflags)) + [CmmLoad (mkLblExpr (mkCmmDataLabel rtsPackageId (fsLit "era"))) + (cInt dflags)] ldvWord :: DynFlags -> CmmExpr -> CmmExpr -- Takes the address of a closure, and returns |