diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-02 17:28:50 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-02 17:28:50 +0100 |
| commit | b5b10708715b315d16467b41477170545989c258 (patch) | |
| tree | c183fa6b2e8993e24bd89e328eca7c0e3d29fbf7 /compiler/nativeGen/PPC/Ppr.hs | |
| parent | ac7a7eb93397a2343402f77f1a8a8b4a0e0298df (diff) | |
| download | haskell-b5b10708715b315d16467b41477170545989c258.tar.gz | |
Fix build on OX X amd64
Diffstat (limited to 'compiler/nativeGen/PPC/Ppr.hs')
| -rw-r--r-- | compiler/nativeGen/PPC/Ppr.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/nativeGen/PPC/Ppr.hs b/compiler/nativeGen/PPC/Ppr.hs index c33b5e0748..b40c0e9431 100644 --- a/compiler/nativeGen/PPC/Ppr.hs +++ b/compiler/nativeGen/PPC/Ppr.hs @@ -68,7 +68,7 @@ pprNatCmmDecl platform (CmmProc (Just (Statics info_lbl info)) _entry_lbl (ListG pprSectionHeader Text $$ ( #if HAVE_SUBSECTIONS_VIA_SYMBOLS - pprCLabel_asm (mkDeadStripPreventer info_lbl) + pprCLabel_asm platform (mkDeadStripPreventer info_lbl) <> char ':' $$ #endif vcat (map (pprData platform) info) $$ @@ -85,9 +85,9 @@ pprNatCmmDecl platform (CmmProc (Just (Statics info_lbl info)) _entry_lbl (ListG -- so that the linker will not think it is unreferenced and dead-strip -- it. That's why the label is called a DeadStripPreventer (_dsp). $$ text "\t.long " - <+> pprCLabel_asm info_lbl + <+> pprCLabel_asm platform info_lbl <+> char '-' - <+> pprCLabel_asm (mkDeadStripPreventer info_lbl) + <+> pprCLabel_asm platform (mkDeadStripPreventer info_lbl) #endif |