Commit 1a002d88 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

MIPS assembly pack: assign default value to $flavour.

parent 619aab84

crypto/aes/asm/aes-mips.pl

+1 −1
Original line number Diff line number Diff line
@@ -47,7 +47,7 @@ 
# ($s0,$s1,$s2,$s3,$s4,$s5,$s6,$s7)=map("\$$_",(16..23));

# ($gp,$sp,$fp,$ra)=map("\$$_",(28..31));

#

$flavour = shift; # supported flavours are o32,n32,64,nubi32,nubi64

$flavour = shift || "o32"; # supported flavours are o32,n32,64,nubi32,nubi64



if ($flavour =~ /64|n32/i) {

	$PTR_ADD="dadd";	# incidentally works even on n32

crypto/bn/asm/mips-mont.pl

+1 −1
Original line number Diff line number Diff line
@@ -46,7 +46,7 @@ 
# ($s0,$s1,$s2,$s3,$s4,$s5,$s6,$s7)=map("\$$_",(16..23));

# ($gp,$sp,$fp,$ra)=map("\$$_",(28..31));

#

$flavour = shift; # supported flavours are o32,n32,64,nubi32,nubi64

$flavour = shift || "o32"; # supported flavours are o32,n32,64,nubi32,nubi64



if ($flavour =~ /64|n32/i) {

	$PTR_ADD="dadd";	# incidentally works even on n32

crypto/bn/asm/mips.pl

+1 −1
Original line number Diff line number Diff line
@@ -48,7 +48,7 @@ 
# has to content with 40-85% improvement depending on benchmark and

# key length, more for longer keys.



$flavour = shift;

$flavour = shift || "o32";

while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}

open STDOUT,">$output";

crypto/sha/asm/sha1-mips.pl

+1 −1
Original line number Diff line number Diff line
@@ -42,7 +42,7 @@ 
# ($s0,$s1,$s2,$s3,$s4,$s5,$s6,$s7)=map("\$$_",(16..23));

# ($gp,$sp,$fp,$ra)=map("\$$_",(28..31));

#

$flavour = shift; # supported flavours are o32,n32,64,nubi32,nubi64

$flavour = shift || "o32"; # supported flavours are o32,n32,64,nubi32,nubi64



if ($flavour =~ /64|n32/i) {

	$PTR_ADD="dadd";	# incidentally works even on n32

crypto/sha/asm/sha512-mips.pl

+1 −1
Original line number Diff line number Diff line
@@ -45,7 +45,7 @@ 
# ($s0,$s1,$s2,$s3,$s4,$s5,$s6,$s7)=map("\$$_",(16..23));

# ($gp,$sp,$fp,$ra)=map("\$$_",(28..31));

#

$flavour = shift; # supported flavours are o32,n32,64,nubi32,nubi64

$flavour = shift || "o32"; # supported flavours are o32,n32,64,nubi32,nubi64



if ($flavour =~ /64|n32/i) {

	$PTR_ADD="dadd";	# incidentally works even on n32