Commit 1cbdca7b authored by Andy Polyakov's avatar Andy Polyakov
Browse files

Harmonize s390x assembler modules with "catch-all" rules from commit#19749.

parent e216cd6e

crypto/aes/asm/aes-s390x.pl

+4 −0
Original line number Diff line number Diff line
@@ -50,6 +50,9 @@ 
# it was measured to be ~6.6x. It's less than previously mentioned 8x,

# because software implementation was optimized.



while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}

open STDOUT,">$output";



$softonly=0;	# allow hardware support



$t0="%r0";	$mask="%r0";
@@ -1337,3 +1340,4 @@ ___ 


$code =~ s/\`([^\`]*)\`/eval $1/gem;

print $code;

close STDOUT;	# force flush

crypto/bn/asm/s390x-mont.pl

+3 −0
Original line number Diff line number Diff line
@@ -32,6 +32,9 @@ 
# Reschedule to minimize/avoid Address Generation Interlock hazard,

# make inner loops counter-based.



while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}

open STDOUT,">$output";



$mn0="%r0";

$num="%r1";

crypto/sha/asm/sha1-s390x.pl

+1 −1
Original line number Diff line number Diff line
@@ -23,7 +23,7 @@ 


$kimdfunc=1;	# magic function code for kimd instruction



$output=shift;

while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}

open STDOUT,">$output";



$K_00_39="%r0"; $K=$K_00_39;

crypto/sha/asm/sha512-s390x.pl

+1 −1
Original line number Diff line number Diff line
@@ -44,7 +44,7 @@ $tbl="%r13"; 
$T1="%r14";

$sp="%r15";



$output=shift;

while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}

open STDOUT,">$output";



if ($output =~ /512/) {