From 70d8d35f7636bd67d6bef0a73fafed7d09927da1 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 25 Jan 2000 19:49:45 +0000
Subject: [PATCH] [project @ 2000-01-25 19:49:45 by sewardj] pprInstr:
implement GABS, GNEG, GSQRT.
---
ghc/compiler/nativeGen/PprMach.lhs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index 8c686d473fb4..13d8dfb77029 100644
--- a/ghc/compiler/nativeGen/PprMach.lhs
+++ b/ghc/compiler/nativeGen/PprMach.lhs
@@ -1047,11 +1047,11 @@ pprInstr g@(GCMP sz src1 src2)
hcat [gtab, text "fcompp ; fstsw %ax ; sahf ; popl %eax"])
pprInstr g@(GABS sz src dst)
- = pprG g bogus
+ = pprG g (hcat [gtab, gpush src 0, text " ; fabs ; ", gpop dst 1])
pprInstr g@(GNEG sz src dst)
- = pprG g bogus
+ = pprG g (hcat [gtab, gpush src 0, text " ; fchs ; ", gpop dst 1])
pprInstr g@(GSQRT sz src dst)
- = pprG g bogus
+ = pprG g (hcat [gtab, gpush src 0, text " ; fsqrt ; ", gpop dst 1])
pprInstr g@(GADD sz src1 src2 dst)
= pprG g (hcat [gtab, gpush src1 0,
--
GitLab