wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Andy Polyakov 2010-07-09 12:11:12 +00:00
parent e216cd6ee9
commit 1cbdca7bf2
4 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
crypto/aes/asm/aes-s390x.pl
View file

@ -50,6 +50,9 @@
# it was measured to be ~6.6x. It's less than previously mentioned 8x, # it was measured to be ~6.6x. It's less than previously mentioned 8x,
# because software implementation was optimized. # because software implementation was optimized.
while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}
open STDOUT,">$output";
$softonly=0; # allow hardware support $softonly=0; # allow hardware support
$t0="%r0"; $mask="%r0"; $t0="%r0"; $mask="%r0";
@ -1337,3 +1340,4 @@ ___
$code =~ s/\`([^\`]*)\`/eval $1/gem; $code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code; print $code;
close STDOUT; # force flush

3
crypto/bn/asm/s390x-mont.pl
View file

@ -32,6 +32,9 @@
# Reschedule to minimize/avoid Address Generation Interlock hazard, # Reschedule to minimize/avoid Address Generation Interlock hazard,
# make inner loops counter-based. # make inner loops counter-based.
while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}
open STDOUT,">$output";
$mn0="%r0"; $mn0="%r0";
$num="%r1"; $num="%r1";

2
crypto/sha/asm/sha1-s390x.pl
View file

@ -23,7 +23,7 @@
$kimdfunc=1; # magic function code for kimd instruction $kimdfunc=1; # magic function code for kimd instruction
$output=shift; while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}
open STDOUT,">$output"; open STDOUT,">$output";
$K_00_39="%r0"; $K=$K_00_39; $K_00_39="%r0"; $K=$K_00_39;

2
crypto/sha/asm/sha512-s390x.pl
View file

@ -44,7 +44,7 @@ $tbl="%r13";
$T1="%r14"; $T1="%r14";
$sp="%r15"; $sp="%r15";
$output=shift; while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}
open STDOUT,">$output"; open STDOUT,">$output";
if ($output =~ /512/) { if ($output =~ /512/) {