diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2008-05-03 22:34:52 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2008-05-03 22:34:52 +0000 |
| commit | ba60dc74fdb18fe655cfac605130cf6480116e47 (patch) | |
| tree | 708ae6bc3717a18d7af6ed4b63c2a60138d91324 /compiler/cmm/CmmUtils.hs | |
| parent | ad5299d90d21898470f1d9dd5742d40fa1a8ebc0 (diff) | |
| download | haskell-ba60dc74fdb18fe655cfac605130cf6480116e47.tar.gz | |
minor changes to Cmm left over from September 2007
Nothing too deep here; primarily tinking with prettyprinting
and names. Also eliminated some warnings. This patch covers
most (but not all) of the code NR changed at the very end
of September 2007, just before ICFP hit...
Diffstat (limited to 'compiler/cmm/CmmUtils.hs')
| -rw-r--r-- | compiler/cmm/CmmUtils.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/cmm/CmmUtils.hs b/compiler/cmm/CmmUtils.hs index 675d44b716..c44cc3a53a 100644 --- a/compiler/cmm/CmmUtils.hs +++ b/compiler/cmm/CmmUtils.hs @@ -128,6 +128,7 @@ cmmOffsetExpr e byte_off = CmmMachOp (MO_Add (cmmExprRep e)) [e, byte_off] -- a later optimisation step on Cmm). -- cmmOffset :: CmmExpr -> Int -> CmmExpr +cmmOffset e 0 = e cmmOffset (CmmReg reg) byte_off = cmmRegOff reg byte_off cmmOffset (CmmRegOff reg m) byte_off = cmmRegOff reg (m+byte_off) cmmOffset (CmmLit lit) byte_off = CmmLit (cmmOffsetLit lit byte_off) |