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 '')
| -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 |
