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

Update sha512-parisc.pl and add make rules.

Browse Source
This commit is contained in:
Andy Polyakov 2009-12-27 21:05:19 +00:00
parent cb3b9b1323
commit b57599b70c
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crypto/sha/Makefile
View File

@ -71,6 +71,10 @@ sha1-ppc.s: asm/sha1-ppc.pl; $(PERL) asm/sha1-ppc.pl $(PERLASM_SCHEME) $@
sha256-ppc.s: asm/sha512-ppc.pl; $(PERL) asm/sha512-ppc.pl $(PERLASM_SCHEME) $@ sha256-ppc.s: asm/sha512-ppc.pl; $(PERL) asm/sha512-ppc.pl $(PERLASM_SCHEME) $@
sha512-ppc.s: asm/sha512-ppc.pl; $(PERL) asm/sha512-ppc.pl $(PERLASM_SCHEME) $@ sha512-ppc.s: asm/sha512-ppc.pl; $(PERL) asm/sha512-ppc.pl $(PERLASM_SCHEME) $@
sha1-parisc.s: asm/sha1-parisc.pl; $(PERL) asm/sha1-parisc.pl $(PERLASM_SCHEME) $@
sha256-parisc.s:asm/sha512-parisc.pl; $(PERL) asm/sha512-parisc.pl $(PERLASM_SCHEME) $@
sha512-parisc.s:asm/sha512-parisc.pl; $(PERL) asm/sha512-parisc.pl $(PERLASM_SCHEME) $@
# GNU make "catch all" # GNU make "catch all"
sha1-%.s: asm/sha1-%.pl; $(PERL) $< $@ sha1-%.s: asm/sha1-%.pl; $(PERL) $< $@
sha256-%.s: asm/sha512-%.pl; $(PERL) $< $@ sha256-%.s: asm/sha512-%.pl; $(PERL) $< $@

15
crypto/sha/asm/sha512-parisc.pl
View File

@ -391,7 +391,7 @@ $code.=<<___;
shd $elo,$ehi,$Sigma1[0],$t1 shd $elo,$ehi,$Sigma1[0],$t1
addc $Xhi,$hhi,$hhi ; h += X[i] addc $Xhi,$hhi,$hhi ; h += X[i]
shd $ehi,$elo,$Sigma1[1],$t2 shd $ehi,$elo,$Sigma1[1],$t2
ldw,ma 8($Tbl),$Xhi ldwm 8($Tbl),$Xhi
shd $elo,$ehi,$Sigma1[1],$t3 shd $elo,$ehi,$Sigma1[1],$t3
ldw -4($Tbl),$Xlo ; load K[i] ldw -4($Tbl),$Xlo ; load K[i]
xor $t2,$t0,$t0 xor $t2,$t0,$t0
@ -694,9 +694,10 @@ my $ldd = sub {
my ($mod,$args) = @_; my ($mod,$args) = @_;
my $orig = "ldd$mod\t$args"; my $orig = "ldd$mod\t$args";
if ($args =~ /([0-9]+)\(%r([0-9]+)\),%r([0-9]+)/) # format 3 suffices if ($args =~ /(\-[0-9]+)\(%r([0-9]+)\),%r([0-9]+)/) # format 3 suffices
{ my $opcode=(0x14<<26)|($2<<21)|($3<<16)|($1<<1); { my $opcode=(0x14<<26)|($2<<21)|($3<<16)|(($1&0x1FF8)<<1)|(($1>>13)&1);
$opcode|=0x8 if ($mod eq ",ma"); $opcode|=(1<<3) if ($mod =~ /^,m/);
$opcode|=(1<<2) if ($mod =~ /^,mb/);
sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig;
} }
else { "\t".$orig; } else { "\t".$orig; }
@ -706,9 +707,9 @@ my $std = sub {
my ($mod,$args) = @_; my ($mod,$args) = @_;
my $orig = "std$mod\t$args"; my $orig = "std$mod\t$args";
if ($args =~ /%r([0-9]+),([0-9]+)\(%r([0-9]+)\)/) # format 3 suffices if ($args =~ /%r([0-9]+),(\-[0-9]+)\(%r([0-9]+)\)/) # format 3 suffices
{ sprintf "\t.WORD\t0x%08x\t; %s", { my $opcode=(0x1c<<26)|($3<<21)|($1<<16)|(($2&0x1FF8)<<1)|(($2>>13)&1);
(0x1c<<26)|($3<<21)|($1<<16)|($2<<1),$orig; sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig;
} }
else { "\t".$orig; } else { "\t".$orig; }
}; };