diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-28 16:32:50 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-29 09:12:54 +0000 |
| commit | cbe2416808d2592429830b5d0c202cdee80c36d3 (patch) | |
| tree | 212db87e23980f97c116d313a462ae897a47b68d /compiler/codeGen/CgProf.hs | |
| parent | 7d13e50487eb7f80be9a8b330ef65e07138b27ef (diff) | |
| download | haskell-cbe2416808d2592429830b5d0c202cdee80c36d3.tar.gz | |
Get rid of the "safety" field of CmmCall (OldCmm)
This field was doing nothing. I think it originally appeared in a
very old incarnation of the new code generator.
Diffstat (limited to 'compiler/codeGen/CgProf.hs')
| -rw-r--r-- | compiler/codeGen/CgProf.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/CgProf.hs b/compiler/codeGen/CgProf.hs index c961e24147..13667c399a 100644 --- a/compiler/codeGen/CgProf.hs +++ b/compiler/codeGen/CgProf.hs @@ -142,7 +142,7 @@ enterCostCentreFun ccs closure = ifProfiling $ do if isCurrentCCS ccs then emitRtsCall rtsPackageId (fsLit "enterFunCCS") - [CmmHinted (costCentreFrom closure) AddrHint] False + [CmmHinted (costCentreFrom closure) AddrHint] else return () -- top-level function, nothing to do ifProfiling :: Code -> Code @@ -234,7 +234,6 @@ pushCostCentre result ccs cc rtsPackageId (fsLit "pushCostCentre") [CmmHinted ccs AddrHint, CmmHinted (CmmLit (mkCCostCentre cc)) AddrHint] - False bumpSccCount :: CmmExpr -> CmmStmt bumpSccCount ccs |