X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FPprMach.lhs;h=945fab426742c91e2a225704ca0963119fdecf9c;hb=f802680892c2c555bb887ac3317890042be144c3;hp=2381689890217674f6570f45f37f7da155723971;hpb=8788630155b7aaed3daac07894fe07392566054c;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index 2381689..945fab4 100644
--- 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)