Commit 243924b8 authored by sewardj's avatar sewardj
Browse files

[project @ 2000-01-24 18:28:53 by sewardj]

Fix syntax errors in #ifdef'd Alpha/Sparc bits.
parent 8f43a965
......@@ -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}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment