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

Futher minor PPC assembler update.

Browse Source
This commit is contained in:
Andy Polyakov 2006-05-04 21:30:41 +00:00
parent f3df90b2bb
commit 67d990904e
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

@ -58,8 +58,10 @@ my $text = sub {
my $machine = sub { my $machine = sub {
my $junk = shift; my $junk = shift;
my $arch = shift; my $arch = shift;
if ($arch eq "any" and $flavour =~ /osx/) if ($flavour =~ /osx/)
{ $arch = ($flavour =~ /64/) ? "ppc970-64" : "ppc970"; } { $arch =~ s/\"//g;
$arch = ($flavour=~/64/) ? "ppc970-64" : "ppc970" if ($arch eq "any");
}
".machine $arch"; ".machine $arch";
}; };
@ -69,12 +71,10 @@ my $machine = sub {
my $cmplw = sub { my $cmplw = sub {
my $f = shift; my $f = shift;
my $cr = 0; $cr = shift if ($#_>1); my $cr = 0; $cr = shift if ($#_>1);
" cmpl$f ".join(',',$cr,0,@_); # Some out-of-date 32-bit GNU assembler just can't handle cmplw...
}; ($flavour =~ /linux.*32/) ?
my $cmpld = sub { " .long ".sprintf "0x%x",31<<26|$cr<<23|$_[0]<<16|$_[1]<<11|64 :
my $f = shift; " cmplw ".join(',',$cr,@_);
my $cr = 0; $cr = shift if ($#_>1);
" cmpl$f ".join(',',$cr,1,@_);
}; };
my $bdnz = sub { my $bdnz = sub {
my $f = shift; my $f = shift;

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

@ -149,7 +149,7 @@ ___
} }
$code=<<___; $code=<<___;
.machine any .machine "any"
.text .text
.globl .sha1_block_asm_data_order .globl .sha1_block_asm_data_order