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

aesp8-ppc.pl: fix typos.

Browse Source
This commit is contained in:
Andy Polyakov 2014-06-04 08:34:18 +02:00
parent 53a224bb0a
commit d86689e1d9
2 changed files with 5 additions and 5 deletions

8
crypto/aes/asm/aesp8-ppc.pl

@ -55,7 +55,7 @@ $sp="r1";
$vrsave="r12"; $vrsave="r12";
######################################################################### #########################################################################
{{{ Key setup procedures # {{{ # Key setup procedures #
my ($inp,$bits,$out,$ptr,$cnt,$rounds)=map("r$_",(3..8)); my ($inp,$bits,$out,$ptr,$cnt,$rounds)=map("r$_",(3..8));
my ($zero,$in0,$in1,$key,$rcon,$mask,$tmp)=map("v$_",(0..6)); my ($zero,$in0,$in1,$key,$rcon,$mask,$tmp)=map("v$_",(0..6));
my ($stage,$outperm,$outmask,$outhead,$outtail)=map("v$_",(7..11)); my ($stage,$outperm,$outmask,$outhead,$outtail)=map("v$_",(7..11));
@ -375,7 +375,7 @@ Ldeckey:
___ ___
}}} }}}
######################################################################### #########################################################################
{{{ Single block en- and decrypt procedures # {{{ # Single block en- and decrypt procedures #
sub gen_block () { sub gen_block () {
my $dir = shift; my $dir = shift;
my $n = $dir eq "de" ? "n" : ""; my $n = $dir eq "de" ? "n" : "";
@ -455,7 +455,7 @@ ___
&gen_block("de"); &gen_block("de");
}}} }}}
######################################################################### #########################################################################
{{{ CBC en- and decrypt procedures # {{{ # CBC en- and decrypt procedures #
my ($inp,$out,$len,$key,$ivp,$enc,$rounds,$idx)=map("r$_",(3..10)); my ($inp,$out,$len,$key,$ivp,$enc,$rounds,$idx)=map("r$_",(3..10));
my ($rndkey0,$rndkey1,$inout,$tmp)= map("v$_",(0..3)); my ($rndkey0,$rndkey1,$inout,$tmp)= map("v$_",(0..3));
my ($ivec,$inptail,$inpperm,$outhead,$outperm,$outmask,$keyperm)= my ($ivec,$inptail,$inpperm,$outhead,$outperm,$outmask,$keyperm)=
@ -623,7 +623,7 @@ Lcbc_done:
.long 0 .long 0
___ ___
######################################################################### #########################################################################
{{ Optimized CBC decrypt procedure # {{ # Optimized CBC decrypt procedure #
my $key_="r11"; my $key_="r11";
my ($x00,$x10,$x20,$x30,$x40,$x50,$x60,$x70)=map("r$_",(0,8,26..31)); my ($x00,$x10,$x20,$x30,$x40,$x50,$x60,$x70)=map("r$_",(0,8,26..31));
my ($in0, $in1, $in2, $in3, $in4, $in5, $in6, $in7 )=map("v$_",(0..3,10..13)); my ($in0, $in1, $in2, $in3, $in4, $in5, $in6, $in7 )=map("v$_",(0..3,10..13));

2
crypto/ppccpuid.pl

@ -44,7 +44,7 @@ $code=<<___;
.globl .OPENSSL_crypto207_probe .globl .OPENSSL_crypto207_probe
.align 4 .align 4
.OPENSSL_crypto207_probe .OPENSSL_crypto207_probe:
lvx_u v0,0,r1 lvx_u v0,0,r1
vcipher v0,v0,v0 vcipher v0,v0,v0
blr blr