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/cmm/OldCmm.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/cmm/OldCmm.hs')
-rw-r--r-- | compiler/cmm/OldCmm.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/cmm/OldCmm.hs b/compiler/cmm/OldCmm.hs index 3703de4e32..a8a9d5dde0 100644 --- a/compiler/cmm/OldCmm.hs +++ b/compiler/cmm/OldCmm.hs @@ -154,7 +154,6 @@ data CmmStmt -- Old-style CmmCallTarget [HintedCmmFormal] -- zero or more results [HintedCmmActual] -- zero or more arguments - CmmSafety -- whether to build a continuation CmmReturnInfo -- Some care is necessary when handling the arguments of these, see -- [Register parameter passing] and the hack in cmm/CmmOpt.hs @@ -192,7 +191,7 @@ instance UserOfLocalRegs CmmStmt where stmt (CmmComment {}) = id stmt (CmmAssign _ e) = gen e stmt (CmmStore e1 e2) = gen e1 . gen e2 - stmt (CmmCall target _ es _ _) = gen target . gen es + stmt (CmmCall target _ es _) = gen target . gen es stmt (CmmBranch _) = id stmt (CmmCondBranch e _) = gen e stmt (CmmSwitch e _) = gen e |