Ticket #7119: 0001-Fix-build-failure-on-OS-X-7119.patch

File 0001-Fix-build-failure-on-OS-X-7119.patch, 1.1 KB (added by simonmar, 3 years ago)

fix

  • compiler/nativeGen/X86/Ppr.hs

    From cda21c05a99a0cb5ab6260fe848e4ceda254d396 Mon Sep 17 00:00:00 2001
    From: Simon Marlow <[email protected]>
    Date: Thu, 9 Aug 2012 11:41:06 +0100
    Subject: [PATCH] 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.
    ---
     compiler/nativeGen/X86/Ppr.hs |    3 ++-
     1 files changed, 2 insertions(+), 1 deletions(-)
    
    diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs
    index 5a97efc..6411fb9 100644
    a b pprNatCmmDecl proc@(CmmProc top_info lbl (ListGraph blocks)) = 
    6767    Just (Statics info_lbl _) ->
    6868      sdocWithPlatform $ \platform ->
    6969      (if platformHasSubsectionsViaSymbols platform
    70           then ppr (mkDeadStripPreventer info_lbl) <> char ':'
     70          then pprSectionHeader Text $$
     71               ppr (mkDeadStripPreventer info_lbl) <> char ':'
    7172          else empty) $$
    7273      vcat (map (pprBasicBlock top_info) blocks) $$
    7374         -- above: Even the first block gets a label, because with branch-chain