projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-01-31 12:27:24 by sewardj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
nativeGen
/
PprMach.lhs
diff --git
a/ghc/compiler/nativeGen/PprMach.lhs
b/ghc/compiler/nativeGen/PprMach.lhs
index
613b413
..
b47cfab
100644
(file)
--- a/
ghc/compiler/nativeGen/PprMach.lhs
+++ b/
ghc/compiler/nativeGen/PprMach.lhs
@@
-173,9
+173,7
@@
pprSize x = ptext (case x of
TF -> SLIT("t")
#endif
#if i386_TARGET_ARCH
TF -> SLIT("t")
#endif
#if i386_TARGET_ARCH
- B -> SLIT("b")
--- HB -> SLIT("b") UNUSED
--- S -> SLIT("w") UNUSED
+ BU -> SLIT("b")
L -> SLIT("l")
F -> SLIT("s")
DF -> SLIT("l")
L -> SLIT("l")
F -> SLIT("s")
DF -> SLIT("l")
@@
-184,22
+182,16
@@
pprSize x = ptext (case x of
#if sparc_TARGET_ARCH
B -> SLIT("sb")
BU -> SLIT("ub")
#if sparc_TARGET_ARCH
B -> SLIT("sb")
BU -> SLIT("ub")
--- HW -> SLIT("hw") UNUSED
--- HWU -> SLIT("uhw") UNUSED
W -> SLIT("")
F -> SLIT("")
W -> SLIT("")
F -> SLIT("")
--- D -> SLIT("d") UNUSED
DF -> SLIT("d")
)
pprStSize :: Size -> SDoc
pprStSize x = ptext (case x of
B -> SLIT("b")
BU -> SLIT("b")
DF -> SLIT("d")
)
pprStSize :: Size -> SDoc
pprStSize x = ptext (case x of
B -> SLIT("b")
BU -> SLIT("b")
--- HW -> SLIT("hw") UNUSED
--- HWU -> SLIT("uhw") UNUSED
W -> SLIT("")
F -> SLIT("")
W -> SLIT("")
F -> SLIT("")
--- D -> SLIT("d") UNUSED
DF -> SLIT("d")
#endif
)
DF -> SLIT("d")
#endif
)