diff options
| author | sewardj <unknown> | 2001-12-14 16:57:36 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-12-14 16:57:36 +0000 |
| commit | 5a387d82672b4648c38793a57a69cfda07f1baff (patch) | |
| tree | 78db4185d58e59251c41166466f1921b5a223207 /ghc/compiler/nativeGen/MachMisc.lhs | |
| parent | 7dee9e10796acdc3af04f222ef06808ad3d1b611 (diff) | |
| download | haskell-5a387d82672b4648c38793a57a69cfda07f1baff.tar.gz | |
[project @ 2001-12-14 16:57:36 by sewardj]
Sparc NCG changes to track recent mulIntC# changes. The Prelude
can now finally be compiled with the sparc NCG.
Also (incidentally) emit sparc integer multiply insns directly
rather than calling a helper routine. Most sparcs should implement
them by now :)
Diffstat (limited to 'ghc/compiler/nativeGen/MachMisc.lhs')
| -rw-r--r-- | ghc/compiler/nativeGen/MachMisc.lhs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs index f7f4b8f97e..ed5737f524 100644 --- a/ghc/compiler/nativeGen/MachMisc.lhs +++ b/ghc/compiler/nativeGen/MachMisc.lhs @@ -636,6 +636,9 @@ is_G_instr instr | ADD Bool Bool Reg RI Reg -- x?, cc?, src1, src2, dst | SUB Bool Bool Reg RI Reg -- x?, cc?, src1, src2, dst + | UMUL Bool Reg RI Reg -- cc?, src1, src2, dst + | SMUL Bool Reg RI Reg -- cc?, src1, src2, dst + | RDY Reg -- move contents of Y register to reg -- Simple bit-twiddling. |