summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/perlasm/x86unix.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/perlasm/x86unix.pl')
-rw-r--r--src/lib/libcrypto/perlasm/x86unix.pl7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/lib/libcrypto/perlasm/x86unix.pl b/src/lib/libcrypto/perlasm/x86unix.pl
index 10b669bf04..a31a25c12b 100644
--- a/src/lib/libcrypto/perlasm/x86unix.pl
+++ b/src/lib/libcrypto/perlasm/x86unix.pl
@@ -137,12 +137,12 @@ sub main'shl { &out2("sall",@_); }
137sub main'shr { &out2("shrl",@_); } 137sub main'shr { &out2("shrl",@_); }
138sub main'xor { &out2("xorl",@_); } 138sub main'xor { &out2("xorl",@_); }
139sub main'xorb { &out2("xorb",@_); } 139sub main'xorb { &out2("xorb",@_); }
140sub main'add { &out2("addl",@_); } 140sub main'add { &out2($_[0]=~/%[a-d][lh]/?"addb":"addl",@_); }
141sub main'adc { &out2("adcl",@_); } 141sub main'adc { &out2("adcl",@_); }
142sub main'sub { &out2("subl",@_); } 142sub main'sub { &out2("subl",@_); }
143sub main'rotl { &out2("roll",@_); } 143sub main'rotl { &out2("roll",@_); }
144sub main'rotr { &out2("rorl",@_); } 144sub main'rotr { &out2("rorl",@_); }
145sub main'exch { &out2("xchg",@_); } 145sub main'exch { &out2($_[0]=~/%[a-d][lh]/?"xchgb":"xchgl",@_); }
146sub main'cmp { &out2("cmpl",@_); } 146sub main'cmp { &out2("cmpl",@_); }
147sub main'lea { &out2("leal",@_); } 147sub main'lea { &out2("leal",@_); }
148sub main'mul { &out1("mull",@_); } 148sub main'mul { &out1("mull",@_); }
@@ -164,7 +164,7 @@ sub main'jc { &out1("jc",@_); }
164sub main'jnc { &out1("jnc",@_); } 164sub main'jnc { &out1("jnc",@_); }
165sub main'jno { &out1("jno",@_); } 165sub main'jno { &out1("jno",@_); }
166sub main'dec { &out1("decl",@_); } 166sub main'dec { &out1("decl",@_); }
167sub main'inc { &out1("incl",@_); } 167sub main'inc { &out1($_[0]=~/%[a-d][hl]/?"incb":"incl",@_); }
168sub main'push { &out1("pushl",@_); $stack+=4; } 168sub main'push { &out1("pushl",@_); $stack+=4; }
169sub main'pop { &out1("popl",@_); $stack-=4; } 169sub main'pop { &out1("popl",@_); $stack-=4; }
170sub main'pushf { &out0("pushf"); $stack+=4; } 170sub main'pushf { &out0("pushf"); $stack+=4; }
@@ -173,6 +173,7 @@ sub main'not { &out1("notl",@_); }
173sub main'call { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); } 173sub main'call { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); }
174sub main'ret { &out0("ret"); } 174sub main'ret { &out0("ret"); }
175sub main'nop { &out0("nop"); } 175sub main'nop { &out0("nop"); }
176sub main'movz { &out2("movzbl",@_); }
176 177
177# The bswapl instruction is new for the 486. Emulate if i386. 178# The bswapl instruction is new for the 486. Emulate if i386.
178sub main'bswap 179sub main'bswap