Commit d801c965 authored by Simon Marlow's avatar Simon Marlow Committed by chak@cse.unsw.edu.au.
Browse files

Fix build failure on OS X (#7119)

When refactoring this recently I accidentally put the
dead-strip-preventer symbol (only used on OS X) in the wrong section.
parent 09afcc9b
......@@ -67,7 +67,8 @@ pprNatCmmDecl proc@(CmmProc top_info lbl (ListGraph blocks)) =
Just (Statics info_lbl _) ->
sdocWithPlatform $ \platform ->
(if platformHasSubsectionsViaSymbols platform
then ppr (mkDeadStripPreventer info_lbl) <> char ':'
then pprSectionHeader Text $$
ppr (mkDeadStripPreventer info_lbl) <> char ':'
else empty) $$
vcat (map (pprBasicBlock top_info) blocks) $$
-- above: Even the first block gets a label, because with branch-chain
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment