diff options
author | 2005-05-10 14:03:22 +0000 | |
---|---|---|
committer | 2005-05-10 14:03:22 +0000 | |
commit | 4f878326328493d15f3c88d5ffb051c494084aae (patch) | |
tree | d9f09cf8f63a9f6a278b8b297443af2544887a96 /lib/libssl/src/crypto/perlasm/x86unix.pl | |
parent | support NULL encryption for ESP; ok hshoexer, ho (diff) | |
download | wireguard-openbsd-4f878326328493d15f3c88d5ffb051c494084aae.tar.xz wireguard-openbsd-4f878326328493d15f3c88d5ffb051c494084aae.zip |
import i386 AES asm code from openssl.org; ok and help with testing djm@
Diffstat (limited to 'lib/libssl/src/crypto/perlasm/x86unix.pl')
-rw-r--r-- | lib/libssl/src/crypto/perlasm/x86unix.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/libssl/src/crypto/perlasm/x86unix.pl b/lib/libssl/src/crypto/perlasm/x86unix.pl index 9717d185579..b61425e9519 100644 --- a/lib/libssl/src/crypto/perlasm/x86unix.pl +++ b/lib/libssl/src/crypto/perlasm/x86unix.pl @@ -179,7 +179,9 @@ sub main'not { &out1("notl",@_); } sub main'call { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); } sub main'ret { &out0("ret"); } sub main'nop { &out0("nop"); } +sub main'test { &out2("testl",@_); } sub main'movz { &out2("movzbl",@_); } +sub main'neg { &out1("negl",@_); } # The bswapl instruction is new for the 486. Emulate if i386. sub main'bswap @@ -462,6 +464,12 @@ sub main'comment } } +sub main'public_label + { + $label{$_[0]}="${under}${_[0]}" if (!defined($label{$_[0]})); + push(@out,".globl\t$label{$_[0]}\n"); + } + sub main'label { if (!defined($label{$_[0]})) @@ -498,7 +506,7 @@ sub main'file_end sub main'data_word { - push(@out,"\t.long $_[0]\n"); + push(@out,"\t.long\t".join(',',@_)."\n"); } # debug output functions: puts, putx, printf |