From 243924b8603bc368ce2f7aa66baab74da734e4e7 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
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 eddbe80d8f57..22d74af17e26 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}
--
GitLab