diff options
| author | sewardj <unknown> | 2000-01-25 19:49:45 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-25 19:49:45 +0000 |
| commit | 70d8d35f7636bd67d6bef0a73fafed7d09927da1 (patch) | |
| tree | 626de0205ef10019c2130d93ac2c634f7aee3326 /ghc/compiler | |
| parent | 7ed63dba53dce1e7537c83e50f5d74a66014a357 (diff) | |
| download | haskell-70d8d35f7636bd67d6bef0a73fafed7d09927da1.tar.gz | |
[project @ 2000-01-25 19:49:45 by sewardj]
pprInstr: implement GABS, GNEG, GSQRT.
Diffstat (limited to 'ghc/compiler')
| -rw-r--r-- | ghc/compiler/nativeGen/PprMach.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs index 8c686d473f..13d8dfb770 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, |