projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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
module PprMach ( pprInstr ) where
-import Ubiq{-uitious-}
+IMP_Ubiq(){-uitious-}
import MachRegs -- may differ per-platform
import MachMisc
import MachRegs -- may differ per-platform
import MachMisc
+import AbsCSyn ( MagicId )
import CLabel ( pprCLabel_asm, externallyVisibleCLabel )
import CStrings ( charToC )
import Maybes ( maybeToBool )
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")
#endif
#if sparc_TARGET_ARCH
B -> SLIT("sb")
+ BU -> SLIT("ub")
-- HW -> SLIT("hw") UNUSED
-- HW -> SLIT("hw") UNUSED
--- BU -> SLIT("ub") UNUSED
-- HWU -> SLIT("uhw") UNUSED
W -> SLIT("")
F -> SLIT("")
-- HWU -> SLIT("uhw") UNUSED
W -> SLIT("")
F -> SLIT("")
@@
-379,7
+380,10
@@
pprAddr (AddrRegImm r1 imm)
\begin{code}
pprInstr :: Instr -> Unpretty
\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
pprInstr (SEGMENT TextSegment)
= uppPStr