Add a case for CmmLabelDiffOff to cmmOffsetLit

09209de4 · Simon Marlow · fb41ac52 · 09209de4
Commit 09209de4 authored Oct 24, 2012 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

compiler/cmm/CmmUtils.hs compiler/cmm/CmmUtils.hs +2 -0

No files found.
--- 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)