diff options
Diffstat (limited to 'src/lib/libcrypto/perlasm/x86unix.pl')
-rw-r--r-- | src/lib/libcrypto/perlasm/x86unix.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/lib/libcrypto/perlasm/x86unix.pl b/src/lib/libcrypto/perlasm/x86unix.pl index 53ad5f4927..9717d18557 100644 --- a/src/lib/libcrypto/perlasm/x86unix.pl +++ b/src/lib/libcrypto/perlasm/x86unix.pl | |||
@@ -143,12 +143,12 @@ sub main'shl { &out2("sall",@_); } | |||
143 | sub main'shr { &out2("shrl",@_); } | 143 | sub main'shr { &out2("shrl",@_); } |
144 | sub main'xor { &out2("xorl",@_); } | 144 | sub main'xor { &out2("xorl",@_); } |
145 | sub main'xorb { &out2("xorb",@_); } | 145 | sub main'xorb { &out2("xorb",@_); } |
146 | sub main'add { &out2("addl",@_); } | 146 | sub main'add { &out2($_[0]=~/%[a-d][lh]/?"addb":"addl",@_); } |
147 | sub main'adc { &out2("adcl",@_); } | 147 | sub main'adc { &out2("adcl",@_); } |
148 | sub main'sub { &out2("subl",@_); } | 148 | sub main'sub { &out2("subl",@_); } |
149 | sub main'rotl { &out2("roll",@_); } | 149 | sub main'rotl { &out2("roll",@_); } |
150 | sub main'rotr { &out2("rorl",@_); } | 150 | sub main'rotr { &out2("rorl",@_); } |
151 | sub main'exch { &out2("xchg",@_); } | 151 | sub main'exch { &out2($_[0]=~/%[a-d][lh]/?"xchgb":"xchgl",@_); } |
152 | sub main'cmp { &out2("cmpl",@_); } | 152 | sub main'cmp { &out2("cmpl",@_); } |
153 | sub main'lea { &out2("leal",@_); } | 153 | sub main'lea { &out2("leal",@_); } |
154 | sub main'mul { &out1("mull",@_); } | 154 | sub main'mul { &out1("mull",@_); } |
@@ -170,7 +170,7 @@ sub main'jc { &out1("jc",@_); } | |||
170 | sub main'jnc { &out1("jnc",@_); } | 170 | sub main'jnc { &out1("jnc",@_); } |
171 | sub main'jno { &out1("jno",@_); } | 171 | sub main'jno { &out1("jno",@_); } |
172 | sub main'dec { &out1("decl",@_); } | 172 | sub main'dec { &out1("decl",@_); } |
173 | sub main'inc { &out1("incl",@_); } | 173 | sub main'inc { &out1($_[0]=~/%[a-d][hl]/?"incb":"incl",@_); } |
174 | sub main'push { &out1("pushl",@_); $stack+=4; } | 174 | sub main'push { &out1("pushl",@_); $stack+=4; } |
175 | sub main'pop { &out1("popl",@_); $stack-=4; } | 175 | sub main'pop { &out1("popl",@_); $stack-=4; } |
176 | sub main'pushf { &out0("pushf"); $stack+=4; } | 176 | sub main'pushf { &out0("pushf"); $stack+=4; } |
@@ -179,6 +179,7 @@ sub main'not { &out1("notl",@_); } | |||
179 | sub main'call { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); } | 179 | sub main'call { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); } |
180 | sub main'ret { &out0("ret"); } | 180 | sub main'ret { &out0("ret"); } |
181 | sub main'nop { &out0("nop"); } | 181 | sub main'nop { &out0("nop"); } |
182 | sub main'movz { &out2("movzbl",@_); } | ||
182 | 183 | ||
183 | # The bswapl instruction is new for the 486. Emulate if i386. | 184 | # The bswapl instruction is new for the 486. Emulate if i386. |
184 | sub main'bswap | 185 | sub main'bswap |