Commit c09a0318 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

Minor PPC assembler updates.

parent fe716ba6

crypto/bn/asm/ppc-mont.pl

+1 −0
Original line number Diff line number Diff line
@@ -98,6 +98,7 @@ $nlo="r25"; 
$nhi="r0";



$code=<<___;

.machine any

.text



.globl	.bn_mul_mont

crypto/perlasm/ppc-xlate.pl

+2 −1
Original line number Diff line number Diff line
@@ -58,7 +58,8 @@ my $text = sub { 
my $machine = sub {

    my $junk = 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";

};

crypto/sha/asm/sha1-ppc.pl

+3 −2
Original line number Diff line number Diff line
@@ -62,10 +62,10 @@ sub BODY_00_19 { 
my ($i,$a,$b,$c,$d,$e,$f)=@_;

my $j=$i+1;

$code.=<<___ if ($i==0);

	lwz	@X[$i],$i*4($inp)

	lwz	@X[$i],`$i*4`($inp)

___

$code.=<<___ if ($i<15);

	lwz	@X[$j],$j*4($inp)

	lwz	@X[$j],`$j*4`($inp)

	add	$f,$K,$e

	rotlwi	$e,$a,5

	add	$f,$f,@X[$i]
@@ -149,6 +149,7 @@ ___ 
}



$code=<<___;

.machine any

.text



.globl	.sha1_block_asm_data_order