From 1598af9ac955625ad620bd86d07d55a9dbf6d6b8 Mon Sep 17 00:00:00 2001
From: Andy Polyakov <appro@openssl.org>
Date: Tue, 22 Jan 2013 21:09:14 +0100
Subject: [PATCH] sha512-ppc.pl: minimize stack frame.

---
 crypto/sha/asm/sha512-ppc.pl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/crypto/sha/asm/sha512-ppc.pl b/crypto/sha/asm/sha512-ppc.pl
index e9677f811f..125a19df8a 100755
--- a/crypto/sha/asm/sha512-ppc.pl
+++ b/crypto/sha/asm/sha512-ppc.pl
@@ -91,10 +91,6 @@ if ($output =~ /512/) {
 
 $FRAME=32*$SIZE_T+16*$SZ;
 $LOCALS=6*$SIZE_T;
-if ($SZ==8 && $SIZE_T==4) {
-	$FRAME+=16*$SZ;
-	$XOFF=$LOCALS+16*$SZ;
-}
 
 $sp ="r1";
 $toc="r2";
@@ -436,6 +432,8 @@ ___
 # (*)	~1/3 of -m64 result [and ~20% better than -m32 code generated
 #	by xlc-12.1]
 
+my $XOFF=$LOCALS;
+
 my @V=map("r$_",(16..31));	# A..H
 
 my ($s0,$s1,$t0,$t1,$t2,$t3,$a0,$a1,$a2,$a3)=map("r$_",(0,5,6,8..12,14,15));
-- 
2.40.0