From 0f529cbdc354570dc872dbc72a37a9f85bebc9e8 Mon Sep 17 00:00:00 2001
From: Andy Polyakov <appro@openssl.org>
Date: Tue, 10 Feb 2009 08:46:48 +0000
Subject: [PATCH] s390x-mont.pl: optimize prologue.

---
 crypto/bn/asm/s390x-mont.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
2.25.1