generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

s390x-mont.pl: optimize prologue.

Browse Source
This commit is contained in:
Andy Polyakov 2009-02-10 08:46:48 +00:00
parent eb55b9fc19
commit 0f529cbdc3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crypto/bn/asm/s390x-mont.pl
View File

@ -64,7 +64,7 @@ bn_mul_mont:
sla $num,3 # $num to enumerate bytes sla $num,3 # $num to enumerate bytes
la $bp,0($num,$bp) la $bp,0($num,$bp)
stmg %r2,%r15,16($sp) stg %r2,16($sp)
cghi $num,16 # cghi $num,16 #
lghi %r2,0 # lghi %r2,0 #
@ -72,6 +72,8 @@ bn_mul_mont:
cghi $num,128 # cghi $num,128 #
bhr %r14 # if($num>128) return 0; bhr %r14 # if($num>128) return 0;
stmg %r3,%r15,24($sp)
lghi $rp,-160-8 # leave room for carry bit lghi $rp,-160-8 # leave room for carry bit
lcgr $j,$num # -$num lcgr $j,$num # -$num
lgr %r0,$sp lgr %r0,$sp