projects
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
s390x assembly pack: cache capability query results.
[openssl.git]
/
crypto
/
sha
/
asm
/
sha1-s390x.pl
diff --git
a/crypto/sha/asm/sha1-s390x.pl
b/crypto/sha/asm/sha1-s390x.pl
index a62cc31892e2d3cb37f84927a2208f71bb88d257..003ba7647e4a922b70580167a9b06dc966ad440e 100644
(file)
--- a/
crypto/sha/asm/sha1-s390x.pl
+++ b/
crypto/sha/asm/sha1-s390x.pl
@@
-168,10
+168,7
@@
$code.=<<___ if ($kimdfunc);
lg %r0,0(%r1)
tmhl %r0,0x4000 # check for message-security assist
jz .Lsoftware
lg %r0,0(%r1)
tmhl %r0,0x4000 # check for message-security assist
jz .Lsoftware
- lghi %r0,0
- la %r1,`2*$SIZE_T`($sp)
- .long 0xb93e0002 # kimd %r0,%r2
- lg %r0,`2*$SIZE_T`($sp)
+ lg %r0,16(%r1) # check kimd capabilities
tmhh %r0,`0x8000>>$kimdfunc`
jz .Lsoftware
lghi %r0,$kimdfunc
tmhh %r0,`0x8000>>$kimdfunc`
jz .Lsoftware
lghi %r0,$kimdfunc
@@
-238,7
+235,7
@@
$code.=<<___;
br %r14
.size sha1_block_data_order,.-sha1_block_data_order
.string "SHA1 block transform for s390x, CRYPTOGAMS by <appro\@openssl.org>"
br %r14
.size sha1_block_data_order,.-sha1_block_data_order
.string "SHA1 block transform for s390x, CRYPTOGAMS by <appro\@openssl.org>"
-.comm OPENSSL_s390xcap_P,
16
,8
+.comm OPENSSL_s390xcap_P,
80
,8
___
$code =~ s/\`([^\`]*)\`/eval $1/gem;
___
$code =~ s/\`([^\`]*)\`/eval $1/gem;