diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-24 10:10:04 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-24 11:07:14 +0100 |
| commit | 09209de417b16cf9a06d655dbe7415ba9eea757d (patch) | |
| tree | 4ed852ebde934f9bd84cf4278e6ee484bef045ab | |
| parent | fb41ac5285895c3b5304b1c267197faaea89e8a6 (diff) | |
| download | haskell-09209de417b16cf9a06d655dbe7415ba9eea757d.tar.gz | |
Add a case for CmmLabelDiffOff to cmmOffsetLit
| -rw-r--r-- | compiler/cmm/CmmUtils.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cmm/CmmUtils.hs b/compiler/cmm/CmmUtils.hs index f420e7d94e..d52c6a3a56 100644 --- a/compiler/cmm/CmmUtils.hs +++ b/compiler/cmm/CmmUtils.hs @@ -222,6 +222,8 @@ cmmRegOff reg byte_off = CmmRegOff reg byte_off cmmOffsetLit :: CmmLit -> Int -> CmmLit cmmOffsetLit (CmmLabel l) byte_off = cmmLabelOff l byte_off cmmOffsetLit (CmmLabelOff l m) byte_off = cmmLabelOff l (m+byte_off) +cmmOffsetLit (CmmLabelDiffOff l1 l2 m) byte_off + = CmmLabelDiffOff l1 l2 (m+byte_off) cmmOffsetLit (CmmInt m rep) byte_off = CmmInt (m + fromIntegral byte_off) rep cmmOffsetLit _ byte_off = pprPanic "cmmOffsetLit" (ppr byte_off) |