From f802680892c2c555bb887ac3317890042be144c3 Mon Sep 17 00:00:00 2001 From: wolfgang Date: Wed, 10 Dec 2003 10:12:13 +0000 Subject: [PATCH] [project @ 2003-12-10 10:12:13 by wolfgang] PowerPC NCG bugfix: 2-byte data objects should be .short, not .byte MERGE TO STABLE --- ghc/compiler/nativeGen/PprMach.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4