sha512-ppc.pl: minimize stack frame.

diff --git a/crypto/sha/asm/sha512-ppc.pl b/crypto/sha/asm/sha512-ppc.pl
index e9677f811f56d07c9bf1d6c738c01e69144c3103..125a19df8adff8613d1e71b3abebf7ed82f03342 100755 (executable)
--- 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;
 
 $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";
 
 $sp ="r1";
 $toc="r2";


@@ -436,6 +432,8 @@ ___
 # (*)  ~1/3 of -m64 result [and ~20% better than -m32 code generated
 #      by xlc-12.1]
 
 # (*)  ~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));
 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));