diff options
author | Andy Polyakov <appro@openssl.org> | 2005-11-28 20:09:58 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2005-11-28 20:09:58 +0000 |
commit | d1593e6b15a6cb39a306b41669cda170c1d0da99 (patch) | |
tree | 9f2028e4c86be081a28a3915ac99c454b4755fc2 /crypto/perlasm | |
parent | a53cb070e34d645ccc1b63c6c2e82658ca7cda37 (diff) |
Whirlpool hash implementation. The fact that subdirectory and .h file are
called whrlpool is not a typo, but a way to keep the names shorter than
8 characters. Remaining TODO list comprises adding OID, EVP, corresponding
flag to apps/openssl dgst, benchmark, engage assembler...
Diffstat (limited to 'crypto/perlasm')
-rw-r--r-- | crypto/perlasm/x86ms.pl | 5 | ||||
-rw-r--r-- | crypto/perlasm/x86nasm.pl | 5 | ||||
-rw-r--r-- | crypto/perlasm/x86unix.pl | 5 |
3 files changed, 15 insertions, 0 deletions
diff --git a/crypto/perlasm/x86ms.pl b/crypto/perlasm/x86ms.pl index de5273ede7..23cb121e26 100644 --- a/crypto/perlasm/x86ms.pl +++ b/crypto/perlasm/x86ms.pl @@ -416,6 +416,11 @@ sub main'set_label } } +sub main'data_byte + { + push(@out,"\tDB\t".join(',',@_)."\n"); + } + sub main'data_word { push(@out,"\tDD\t".join(',',@_)."\n"); diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl index 331f18bb22..78b1f94c07 100644 --- a/crypto/perlasm/x86nasm.pl +++ b/crypto/perlasm/x86nasm.pl @@ -401,6 +401,11 @@ sub main'set_label push(@out,"$label{$_[0]}:\n"); } +sub main'data_byte + { + push(@out,(($main'mwerks)?".byte\t":"DB\t").join(',',@_)."\n"); + } + sub main'data_word { push(@out,(($main'mwerks)?".long\t":"DD\t").join(',',@_)."\n"); diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl index 8b6e502cfb..348bf2d357 100644 --- a/crypto/perlasm/x86unix.pl +++ b/crypto/perlasm/x86unix.pl @@ -594,6 +594,11 @@ ___ } } +sub main'data_byte + { + push(@out,"\t.byte\t".join(',',@_)."\n"); + } + sub main'data_word { push(@out,"\t.long\t".join(',',@_)."\n"); |