generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor PPC assembler updates.

Browse Source
This commit is contained in:
Andy Polyakov 2006-05-03 14:07:34 +00:00
parent fe716ba686
commit c09a0318b7
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
crypto/bn/asm/ppc-mont.pl
View File

@ -98,6 +98,7 @@ $nlo="r25";
$nhi="r0"; $nhi="r0";
$code=<<___; $code=<<___;
.machine any
.text .text
.globl .bn_mul_mont .globl .bn_mul_mont

3
crypto/perlasm/ppc-xlate.pl
View File

@ -58,7 +58,8 @@ my $text = sub {
my $machine = sub { my $machine = sub {
my $junk = shift; my $junk = shift;
my $arch = shift; my $arch = shift;
$arch = "ppc970" if ($arch eq "any" and $flavour =~ /osx/); if ($arch eq "any" and $flavour =~ /osx/)
{ $arch = ($flavour =~ /64/) ? "ppc970-64" : "ppc970"; }
".machine $arch"; ".machine $arch";
}; };

5
crypto/sha/asm/sha1-ppc.pl
View File

@ -62,10 +62,10 @@ sub BODY_00_19 {
my ($i,$a,$b,$c,$d,$e,$f)=@_; my ($i,$a,$b,$c,$d,$e,$f)=@_;
my $j=$i+1; my $j=$i+1;
$code.=<<___ if ($i==0); $code.=<<___ if ($i==0);
lwz @X[$i],$i*4($inp) lwz @X[$i],`$i*4`($inp)
___ ___
$code.=<<___ if ($i<15); $code.=<<___ if ($i<15);
lwz @X[$j],$j*4($inp) lwz @X[$j],`$j*4`($inp)
add $f,$K,$e add $f,$K,$e
rotlwi $e,$a,5 rotlwi $e,$a,5
add $f,$f,@X[$i] add $f,$f,@X[$i]
@ -149,6 +149,7 @@ ___
} }
$code=<<___; $code=<<___;
.machine any
.text .text
.globl .sha1_block_asm_data_order .globl .sha1_block_asm_data_order