X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FPprMach.lhs;h=3d4d67954df2dafb79eea0a1357eadbdf0770d76;hb=e7498a3ee1d0484d02a9e86633cc179c76ebf36e;hp=f1835a38a28e0688c4fdb73c0f1ac5eec6909535;hpb=7d61cb61daa5e433a0cb85b34b7f0c58b2f961ff;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index f1835a3..3d4d679 100644
--- a/ghc/compiler/nativeGen/PprMach.lhs
+++ b/ghc/compiler/nativeGen/PprMach.lhs
@@ -13,11 +13,12 @@ We start with the @pprXXX@s with some cross-platform commonality
 
 module PprMach ( pprInstr ) where
 
-import Ubiq{-uitious-}
+IMP_Ubiq(){-uitious-}
 
 import MachRegs		-- may differ per-platform
 import MachMisc
 
+import AbsCSyn		( MagicId )
 import CLabel		( pprCLabel_asm, externallyVisibleCLabel )
 import CStrings		( charToC )
 import Maybes		( maybeToBool )
@@ -214,8 +215,8 @@ pprSize x = uppPStr (case x of
 #endif
 #if sparc_TARGET_ARCH
 	B   -> SLIT("sb")
+	BU  -> SLIT("ub")
 --	HW  -> SLIT("hw") UNUSED
---	BU  -> SLIT("ub") UNUSED
 --	HWU -> SLIT("uhw") UNUSED
 	W   -> SLIT("")
 	F   -> SLIT("")
@@ -379,7 +380,10 @@ pprAddr (AddrRegImm r1 imm)
 \begin{code}
 pprInstr :: Instr -> Unpretty
 
-pprInstr (COMMENT s) = uppBeside (uppPStr SLIT("\t# ")) (uppPStr s)
+pprInstr (COMMENT s) = uppNil -- nuke 'em
+--alpha:  = uppBeside (uppPStr SLIT("\t# ")) (uppPStr s)
+--i386 :  = uppBeside (uppPStr SLIT("# "))   (uppPStr s)
+--sparc:  = uppBeside (uppPStr SLIT("! "))   (uppPStr s)
 
 pprInstr (SEGMENT TextSegment)
     = uppPStr