diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-04-21 22:05:59 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-04-28 04:17:48 -0500 |
| commit | e2cc1c5135c77736bfc8a188e7b4cc29fa50d39a (patch) | |
| tree | b1aaac05872712f2bfad153d9b16bc0cee6d9ce6 /compiler/nativeGen/X86/Ppr.hs | |
| parent | 41ddcd7d7909224ac891c7b1ced8f2c59cb07dfc (diff) | |
| download | haskell-wip/ermsb.tar.gz | |
When using Ivy Bridge, emit 'rep movsb' for copieswip/ermsb
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'compiler/nativeGen/X86/Ppr.hs')
| -rw-r--r-- | compiler/nativeGen/X86/Ppr.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs index f38a04d069..9af038c7e5 100644 --- a/compiler/nativeGen/X86/Ppr.hs +++ b/compiler/nativeGen/X86/Ppr.hs @@ -582,6 +582,8 @@ pprInstr (PREFETCH Lvl0 size src) = pprSizeOp_ (sLit "prefetcht0") size src pprInstr (PREFETCH Lvl1 size src) = pprSizeOp_ (sLit "prefetcht1") size src pprInstr (PREFETCH Lvl2 size src) = pprSizeOp_ (sLit "prefetcht2") size src +pprInstr REPMOVSB = ptext (sLit "\trep movsb") + pprInstr (NOT size op) = pprSizeOp (sLit "not") size op pprInstr (BSWAP size op) = pprSizeOp (sLit "bswap") size (OpReg op) pprInstr (NEGI size op) = pprSizeOp (sLit "neg") size op |