From: sewardj <unknown>
Date: Tue, 25 Jan 2000 19:49:45 +0000 (+0000)
Subject: [project @ 2000-01-25 19:49:45 by sewardj]
X-Git-Tag: Approximately_9120_patches~5197
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=70d8d35f7636bd67d6bef0a73fafed7d09927da1;p=ghc-hetmet.git

[project @ 2000-01-25 19:49:45 by sewardj]
pprInstr: implement GABS, GNEG, GSQRT.
---

diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index 8c686d4..13d8dfb 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,