diff options
| author | mrchebas@gmail.com <unknown> | 2007-01-22 11:42:01 +0000 |
|---|---|---|
| committer | mrchebas@gmail.com <unknown> | 2007-01-22 11:42:01 +0000 |
| commit | 22bbcd1dcd94851b8f9409310cf95f3b9332850c (patch) | |
| tree | bd08f40aaa2894b9a5a71155b371a78bec988a1d /compiler/nativeGen/PprMach.hs | |
| parent | 7f1bc015a4094a8282ad4090768d780fd4d6122d (diff) | |
| download | haskell-22bbcd1dcd94851b8f9409310cf95f3b9332850c.tar.gz | |
optimisation: shortcut branches when possible (x86/x86_64 only for now)
This is only turned on with -O, and probably won't make much
difference at the moment, but it will be important for semi-tagging.
Diffstat (limited to 'compiler/nativeGen/PprMach.hs')
| -rw-r--r-- | compiler/nativeGen/PprMach.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs index 5016726cef..5c731f1b35 100644 --- a/compiler/nativeGen/PprMach.hs +++ b/compiler/nativeGen/PprMach.hs @@ -1291,6 +1291,8 @@ pprInstr (JXX cond (BlockId id)) = pprCondInstr SLIT("j") cond (pprCLabel_asm lab) where lab = mkAsmTempLabel id +pprInstr (JXX_GBL cond imm) = pprCondInstr SLIT("j") cond (pprImm imm) + pprInstr (JMP (OpImm imm)) = (<>) (ptext SLIT("\tjmp ")) (pprImm imm) pprInstr (JMP op) = (<>) (ptext SLIT("\tjmp *")) (pprOperand wordRep op) pprInstr (JMP_TBL op ids) = pprInstr (JMP op) |