From 243924b8603bc368ce2f7aa66baab74da734e4e7 Mon Sep 17 00:00:00 2001 From: sewardj Date: Mon, 24 Jan 2000 18:28:53 +0000 Subject: [PATCH] [project @ 2000-01-24 18:28:53 by sewardj] Fix syntax errors in #ifdef'd Alpha/Sparc bits. --- ghc/compiler/nativeGen/PprMach.lhs | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs index eddbe80..22d74af 100644 --- a/ghc/compiler/nativeGen/PprMach.lhs +++ b/ghc/compiler/nativeGen/PprMach.lhs @@ -477,12 +477,25 @@ pprInstr (DATA s xs) = vcat (concatMap (ppr_item s) xs) where #if alpha_TARGET_ARCH + ppr_item = error "ppr_item on Alpha" +#if 0 This needs to be fixed. B -> SLIT("\t.byte\t") BU -> SLIT("\t.byte\t") Q -> SLIT("\t.quad\t") TF -> SLIT("\t.t_floating\t") #endif +#endif +#if sparc_TARGET_ARCH + ppr_item = error "ppr_item on Sparc" +#if 0 + This needs to be fixed. + B -> SLIT("\t.byte\t") + BU -> SLIT("\t.byte\t") + W -> SLIT("\t.word\t") + DF -> SLIT("\t.double\t") +#endif +#endif #if i386_TARGET_ARCH ppr_item B x = [text "\t.byte\t" <> pprImm x] ppr_item L x = [text "\t.long\t" <> pprImm x] @@ -522,13 +535,6 @@ pprInstr (DATA s xs) ) #endif -#if sparc_TARGET_ARCH - This needs to be fixed. - B -> SLIT("\t.byte\t") - BU -> SLIT("\t.byte\t") - W -> SLIT("\t.word\t") - DF -> SLIT("\t.double\t") -#endif -- fall through to rest of (machine-specific) pprInstr... \end{code} -- 1.7.10.4