diff options
| author | sewardj <unknown> | 2000-01-31 18:11:50 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-31 18:11:50 +0000 |
| commit | 298e7a785bd89b51e0e8c34980cd4ceac7d3dce0 (patch) | |
| tree | 433fc9cc81965b3b29c7e58c60fba48dcad5a781 /ghc/compiler/nativeGen/PprMach.lhs | |
| parent | 8db5c9818937c1f952e4cdd58451ea6b25975441 (diff) | |
| download | haskell-298e7a785bd89b51e0e8c34980cd4ceac7d3dce0.tar.gz | |
[project @ 2000-01-31 18:11:50 by sewardj]
Spilling and x86 shift-code cleanups.
Diffstat (limited to 'ghc/compiler/nativeGen/PprMach.lhs')
| -rw-r--r-- | ghc/compiler/nativeGen/PprMach.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs index 6232f3751b..393335181f 100644 --- a/ghc/compiler/nativeGen/PprMach.lhs +++ b/ghc/compiler/nativeGen/PprMach.lhs @@ -977,9 +977,10 @@ pprInstr (XOR size src dst) = pprSizeOpOp SLIT("xor") size src dst pprInstr (NOT size op) = pprSizeOp SLIT("not") size op pprInstr (NEGI size op) = pprSizeOp SLIT("neg") size op -pprInstr (SHL size imm dst) = {-pprSizeByteOpOp-} pprSizeOpOp SLIT("shl") size imm dst -pprInstr (SAR size imm dst) = {-pprSizeByteOpOp-} pprSizeOpOp SLIT("sar") size imm dst -pprInstr (SHR size imm dst) = {-pprSizeByteOpOp-} pprSizeOpOp SLIT("shr") size imm dst +pprInstr (SHL size imm dst) = pprSizeImmOp SLIT("shl") size imm dst +pprInstr (SAR size imm dst) = pprSizeImmOp SLIT("sar") size imm dst +pprInstr (SHR size imm dst) = pprSizeImmOp SLIT("shr") size imm dst +pprInstr (BT size imm src) = pprSizeImmOp SLIT("bt") size imm src pprInstr (CMP size src dst) = pprSizeOpOp SLIT("cmp") size src dst pprInstr (TEST size src dst) = pprSizeOpOp SLIT("test") size src dst @@ -989,7 +990,6 @@ pprInstr PUSHA = ptext SLIT("\tpushal") pprInstr POPA = ptext SLIT("\tpopal") pprInstr (NOP) = ptext SLIT("\tnop") -pprInstr (BT size imm src) = pprSizeImmOp SLIT("bt") size imm src pprInstr (CLTD) = ptext SLIT("\tcltd") pprInstr (SETCC cond op) = pprCondInstr SLIT("set") cond (pprOperand B op) |