diff options
author | Ben Gamari <ben@smart-cactus.org> | 2019-12-31 01:55:27 +0000 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2019-12-31 01:56:54 +0000 |
commit | d6526194cde6b4339bcfdfe92a74056b5ea86f04 (patch) | |
tree | 108e827e1fe89d37357edd89d81072a5132796f8 | |
parent | 86ff7d9daadc66e2ba2532794d261882906bac3e (diff) | |
download | haskell-d6526194cde6b4339bcfdfe92a74056b5ea86f04.tar.gz |
Don't drop blocks
This would result in unwind information being dropped.
-rw-r--r-- | compiler/cmm/Debug.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/Debug.hs b/compiler/cmm/Debug.hs index 712dd4ba98..adbd6f44c4 100644 --- a/compiler/cmm/Debug.hs +++ b/compiler/cmm/Debug.hs @@ -237,7 +237,7 @@ cmmDebugLabels isMeta nats = seqList lbls lbls -- consist of meta instructions -- we will declare them missing, -- which will skip debug data generation without messing up the -- block hierarchy. - lbls = map blockId $ filter (not . allMeta) $ concatMap getBlocks nats + lbls = map blockId $ concatMap getBlocks nats getBlocks (CmmProc _ _ _ (ListGraph bs)) = bs getBlocks _other = [] allMeta (BasicBlock _ instrs) = all isMeta instrs |