diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-15 20:12:43 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-15 20:12:43 +0000 |
| commit | 09a416591da9ad89e0e6ca85e5093b6eb629a98e (patch) | |
| tree | f9ecca8c53ca930c91b2bea00c89498e2c76fc92 /compiler/cmm/CmmSpillReload.hs | |
| parent | cd437edc8792e5dbcfaa6a6b9948364e9d9d08f3 (diff) | |
| download | haskell-09a416591da9ad89e0e6ca85e5093b6eb629a98e.tar.gz | |
get rid of MidNop
Diffstat (limited to 'compiler/cmm/CmmSpillReload.hs')
| -rw-r--r-- | compiler/cmm/CmmSpillReload.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/cmm/CmmSpillReload.hs b/compiler/cmm/CmmSpillReload.hs index 067a8ec98e..a2560156c9 100644 --- a/compiler/cmm/CmmSpillReload.hs +++ b/compiler/cmm/CmmSpillReload.hs @@ -251,8 +251,7 @@ middleAvail :: M -> AvailRegs -> AvailRegs middleAvail (Spill _) = id middleAvail (Reload regs) = agen regs middleAvail (NotSpillOrReload m) = middle m - where middle (MidNop) = id - middle (MidComment {}) = id + where middle (MidComment {}) = id middle (MidAssign lhs _expr) = akill lhs middle (MidStore {}) = id middle (MidUnsafeCall _tgt ress _args) = akill ress |