diff options
Diffstat (limited to 'compiler/cmm/CmmBuildInfoTables.hs')
| -rw-r--r-- | compiler/cmm/CmmBuildInfoTables.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmBuildInfoTables.hs b/compiler/cmm/CmmBuildInfoTables.hs index 226d3a1138..498fded724 100644 --- a/compiler/cmm/CmmBuildInfoTables.hs +++ b/compiler/cmm/CmmBuildInfoTables.hs @@ -388,7 +388,7 @@ cafTransfers contLbls entry topLbl case expr of CmmLit (CmmLabel c) -> add c set CmmLit (CmmLabelOff c _) -> add c set - CmmLit (CmmLabelDiffOff c1 c2 _) -> add c1 $! add c2 set + CmmLit (CmmLabelDiffOff c1 c2 _ _) -> add c1 $! add c2 set _ -> set add l s | hasCAF l = Set.insert (mkCAFLabel l) s | otherwise = s |