[project @ 1996-06-05 06:44:31 by partain]

[ghc-hetmet.git] / ghc / compiler / nativeGen / PprMach.lhs

diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index f1835a3..3d4d679 100644 (file)
--- 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