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";
$code=<<___;
.machine any
.machine "any"
.text
.globl .bn_mul_mont

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

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

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

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