Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b5b10708715b315d16467b41477170545989c258 >--------------------------------------------------------------- commit b5b10708715b315d16467b41477170545989c258 Author: Ian Lynagh <[email protected]> Date: Sun Oct 2 17:28:50 2011 +0100 Fix build on OX X amd64 >--------------------------------------------------------------- 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 c33b5e0..b40c0e9 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
