diff options
| author | wolfgang <unknown> | 2003-05-27 21:14:22 +0000 |
|---|---|---|
| committer | wolfgang <unknown> | 2003-05-27 21:14:22 +0000 |
| commit | b08b5149482e9d88b3a0f5098e7b118e6f00e115 (patch) | |
| tree | 35e1d406032896dc9aa1da1d6d405fcf5c628dfd /ghc/compiler/nativeGen/MachMisc.lhs | |
| parent | a7360d6faa67121de70fa4110d42095a278fd940 (diff) | |
| download | haskell-b08b5149482e9d88b3a0f5098e7b118e6f00e115.tar.gz | |
[project @ 2003-05-27 21:14:21 by wolfgang]
Fix two bugs in the PowerPC NCG:
1. it generated a 'subfi' (subtract from with immediate) instruction,
which doesn't exist in the PowerPC architecture.
2. didn't correctly handle switch tables (test case cg048.hs).
MERGE TO STABLE
Diffstat (limited to 'ghc/compiler/nativeGen/MachMisc.lhs')
| -rw-r--r-- | ghc/compiler/nativeGen/MachMisc.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs index 1d3c3acb05..e9cf788c58 100644 --- a/ghc/compiler/nativeGen/MachMisc.lhs +++ b/ghc/compiler/nativeGen/MachMisc.lhs @@ -736,12 +736,12 @@ fPair other = pprPanic "fPair(sparc NCG)" (ppr other) | BCC Cond CLabel | MTCTR Reg - | BCTR + | BCTR DestInfo | BL Imm [Reg] -- with list of argument regs | BCTRL [Reg] | ADD Reg Reg RI -- dst, src1, src2 - | SUBF Reg Reg RI -- dst, src1, src2 + | SUBF Reg Reg Reg -- dst, src1, src2 ; dst = src2 - src1 | MULLW Reg Reg RI | DIVW Reg Reg Reg | DIVWU Reg Reg Reg |