[project @ 2003-12-10 10:12:13 by wolfgang]

PowerPC NCG bugfix: 2-byte data objects should be .short, not .byte

MERGE TO STABLE

diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index 2381689..945fab4 100644 (file)
--- a/ghc/compiler/nativeGen/PprMach.lhs
+++ b/ghc/compiler/nativeGen/PprMach.lhs
@@ -574,8 +574,8 @@ pprInstr (DATA s xs)
 #if powerpc_TARGET_ARCH
        ppr_item B  x = [ptext SLIT("\t.byte\t") <> pprImm x]
        ppr_item Bu  x = [ptext SLIT("\t.byte\t") <> pprImm x]
-       ppr_item H  x = [ptext SLIT("\t.byte\t") <> pprImm x]
-       ppr_item Hu  x = [ptext SLIT("\t.byte\t") <> pprImm x]
+       ppr_item H  x = [ptext SLIT("\t.short\t") <> pprImm x]
+       ppr_item Hu  x = [ptext SLIT("\t.short\t") <> pprImm x]
        ppr_item W  x = [ptext SLIT("\t.long\t") <> pprImm x]
        ppr_item F  (ImmFloat r)
            = let bs = floatToBytes (fromRational r)