diff options
author | djm <> | 2005-04-29 05:37:32 +0000 |
---|---|---|
committer | djm <> | 2005-04-29 05:37:32 +0000 |
commit | 588543a0946f1dbf0f1dd5135f8f6447486dc183 (patch) | |
tree | f74e14f98abfec33221f0f2e15cc88a34a3df7e5 /src/lib/libcrypto/perlasm/x86unix.pl | |
parent | 00b426069b0dfa8f0d9b87308646e9684f45c515 (diff) | |
download | openbsd-588543a0946f1dbf0f1dd5135f8f6447486dc183.tar.gz openbsd-588543a0946f1dbf0f1dd5135f8f6447486dc183.tar.bz2 openbsd-588543a0946f1dbf0f1dd5135f8f6447486dc183.zip |
import of openssl-0.9.7g; tested on platforms from alpha to zaurus, ok deraadt@
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 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",@_); } | |||
137 | sub main'shr { &out2("shrl",@_); } | 137 | sub main'shr { &out2("shrl",@_); } |
138 | sub main'xor { &out2("xorl",@_); } | 138 | sub main'xor { &out2("xorl",@_); } |
139 | sub main'xorb { &out2("xorb",@_); } | 139 | sub main'xorb { &out2("xorb",@_); } |
140 | sub main'add { &out2("addl",@_); } | 140 | sub main'add { &out2($_[0]=~/%[a-d][lh]/?"addb":"addl",@_); } |
141 | sub main'adc { &out2("adcl",@_); } | 141 | sub main'adc { &out2("adcl",@_); } |
142 | sub main'sub { &out2("subl",@_); } | 142 | sub main'sub { &out2("subl",@_); } |
143 | sub main'rotl { &out2("roll",@_); } | 143 | sub main'rotl { &out2("roll",@_); } |
144 | sub main'rotr { &out2("rorl",@_); } | 144 | sub main'rotr { &out2("rorl",@_); } |
145 | sub main'exch { &out2("xchg",@_); } | 145 | sub main'exch { &out2($_[0]=~/%[a-d][lh]/?"xchgb":"xchgl",@_); } |
146 | sub main'cmp { &out2("cmpl",@_); } | 146 | sub main'cmp { &out2("cmpl",@_); } |
147 | sub main'lea { &out2("leal",@_); } | 147 | sub main'lea { &out2("leal",@_); } |
148 | sub main'mul { &out1("mull",@_); } | 148 | sub main'mul { &out1("mull",@_); } |
@@ -164,7 +164,7 @@ sub main'jc { &out1("jc",@_); } | |||
164 | sub main'jnc { &out1("jnc",@_); } | 164 | sub main'jnc { &out1("jnc",@_); } |
165 | sub main'jno { &out1("jno",@_); } | 165 | sub main'jno { &out1("jno",@_); } |
166 | sub main'dec { &out1("decl",@_); } | 166 | sub main'dec { &out1("decl",@_); } |
167 | sub main'inc { &out1("incl",@_); } | 167 | sub main'inc { &out1($_[0]=~/%[a-d][hl]/?"incb":"incl",@_); } |
168 | sub main'push { &out1("pushl",@_); $stack+=4; } | 168 | sub main'push { &out1("pushl",@_); $stack+=4; } |
169 | sub main'pop { &out1("popl",@_); $stack-=4; } | 169 | sub main'pop { &out1("popl",@_); $stack-=4; } |
170 | sub main'pushf { &out0("pushf"); $stack+=4; } | 170 | sub main'pushf { &out0("pushf"); $stack+=4; } |
@@ -173,6 +173,7 @@ sub main'not { &out1("notl",@_); } | |||
173 | sub main'call { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); } | 173 | sub main'call { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); } |
174 | sub main'ret { &out0("ret"); } | 174 | sub main'ret { &out0("ret"); } |
175 | sub main'nop { &out0("nop"); } | 175 | sub main'nop { &out0("nop"); } |
176 | sub 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. |
178 | sub main'bswap | 179 | sub main'bswap |