From: Andy Polyakov <appro@openssl.org>
Date: Tue, 10 Feb 2009 08:46:48 +0000 (+0000)
Subject: s390x-mont.pl: optimize prologue.
X-Git-Tag: OpenSSL_0_9_8k^2~42
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=0f529cbdc354570dc872dbc72a37a9f85bebc9e8;p=oweals%2Fopenssl.git

s390x-mont.pl: optimize prologue.
---

diff --git a/crypto/bn/asm/s390x-mont.pl b/crypto/bn/asm/s390x-mont.pl
index b575eb70d1..d23251033b 100644
--- a/crypto/bn/asm/s390x-mont.pl
+++ b/crypto/bn/asm/s390x-mont.pl
@@ -64,7 +64,7 @@ bn_mul_mont:
 	sla	$num,3		# $num to enumerate bytes
 	la	$bp,0($num,$bp)
 
-	stmg	%r2,%r15,16($sp)
+	stg	%r2,16($sp)
 
 	cghi	$num,16		#
 	lghi	%r2,0		#
@@ -72,6 +72,8 @@ bn_mul_mont:
 	cghi	$num,128	#
 	bhr	%r14		# if($num>128) return 0;
 
+	stmg	%r3,%r15,24($sp)
+
 	lghi	$rp,-160-8	# leave room for carry bit
 	lcgr	$j,$num		# -$num
 	lgr	%r0,$sp