s390x-mont.pl: optimize for z196.

diff --git a/crypto/bn/asm/s390x-mont.pl b/crypto/bn/asm/s390x-mont.pl
index d23251033b003782b0ada3aefb35d3b0c32b0cf2..f61246f5b6ab679b3767a4372481d810dd424312 100644 (file)
--- a/crypto/bn/asm/s390x-mont.pl
+++ b/crypto/bn/asm/s390x-mont.pl
@@ -69,8 +69,8 @@ bn_mul_mont:
        cghi    $num,16         #
        lghi    %r2,0           #
        blr     %r14            # if($num<16) return 0;
-       cghi    $num,128        #
-       bhr     %r14            # if($num>128) return 0;
+       cghi    $num,96         #
+       bhr     %r14            # if($num>96) return 0;
 
        stmg    %r3,%r15,24($sp)