diff options
author | Andy Polyakov <appro@openssl.org> | 2010-07-26 21:42:07 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2010-07-26 21:42:07 +0000 |
commit | 133a7f9a50ad4da2db829f1e59cd7c733b4485b0 (patch) | |
tree | a6a620fec5a9c58915cb0b4b32da1729232a6a2e /crypto/perlasm/x86asm.pl | |
parent | eb1c48be6f27180fbb0622ea3ed26ea683f78869 (diff) |
perlasm/x86asm.pl: move aesni and pclmulqdq opcodes to aesni-x86.pl and
ghash-x86.pl.
Diffstat (limited to 'crypto/perlasm/x86asm.pl')
-rw-r--r-- | crypto/perlasm/x86asm.pl | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/crypto/perlasm/x86asm.pl b/crypto/perlasm/x86asm.pl index d39bc28b22..e0b228eb55 100644 --- a/crypto/perlasm/x86asm.pl +++ b/crypto/perlasm/x86asm.pl @@ -107,31 +107,6 @@ sub ::pshufb { &::generic("pshufb",@_); } } -# AESNI extenstion -sub ::aeskeygenassist -{ my($dst,$src,$imm)=@_; - if ("$dst:$src" =~ /xmm([0-7]):xmm([0-7])/) - { &::data_byte(0x66,0x0f,0x3a,0xdf,0xc0|($1<<3)|$2,$imm); } -} -sub ::aescommon -{ my($opcodelet,$dst,$src)=@_; - if ("$dst:$src" =~ /xmm([0-7]):xmm([0-7])/) - { &::data_byte(0x66,0x0f,0x38,$opcodelet,0xc0|($1<<3)|$2);} -} -sub ::aesimc { ::aescommon(0xdb,@_); } -sub ::aesenc { ::aescommon(0xdc,@_); } -sub ::aesenclast { ::aescommon(0xdd,@_); } -sub ::aesdec { ::aescommon(0xde,@_); } -sub ::aesdeclast { ::aescommon(0xdf,@_); } - -sub ::pclmulqdq -{ my($dst,$src,$imm)=@_; - if ("$dst:$src" =~ /xmm([0-7]):xmm([0-7])/) - { &::data_byte(0x66,0x0f,0x3a,0x44,0xc0|($1<<3)|$2,$imm); } - else - { &::generic("pclmulqdq",@_); } -} - # label management $lbdecor="L"; # local label decoration, set by package $label="000"; |