Latest update.
This commit is contained in:
@@ -68,19 +68,19 @@ sub LL()
|
||||
unshift(@_,pop(@_));
|
||||
}
|
||||
}
|
||||
else { die "unvalid SCALE value"; }
|
||||
else { die "invalid SCALE value"; }
|
||||
}
|
||||
|
||||
sub scale()
|
||||
{ if ($SCALE==2) { &lea(@_[0],&DWP(0,@_[1],@_[1])); }
|
||||
elsif ($SCALE==8) { &lea(@_[0],&DWP(0,"",@_[1],8)); }
|
||||
else { die "unvalid SCALE value"; }
|
||||
else { die "invalid SCALE value"; }
|
||||
}
|
||||
|
||||
sub row()
|
||||
{ if ($SCALE==2) { ((8-shift)&7); }
|
||||
elsif ($SCALE==8) { (8*shift); }
|
||||
else { die "unvalid SCALE value"; }
|
||||
else { die "invalid SCALE value"; }
|
||||
}
|
||||
|
||||
$tbl="ebp";
|
||||
@@ -503,4 +503,4 @@ for($i=0;$i<8;$i++) {
|
||||
&function_end_B("whirlpool_block_mmx");
|
||||
&asm_finish();
|
||||
|
||||
close STDOUT;
|
||||
close STDOUT or die "error closing STDOUT";
|
||||
@@ -616,4 +616,4 @@ ___
|
||||
|
||||
$code =~ s/\`([^\`]*)\`/eval $1/gem;
|
||||
print $code;
|
||||
close STDOUT;
|
||||
close STDOUT or die "error closing STDOUT";
|
||||
@@ -26,8 +26,7 @@ DEFINE[../../libcrypto]=$WPDEF
|
||||
|
||||
# When all deprecated symbols are removed, libcrypto doesn't export the
|
||||
# WHIRLPOOL functions, so we must include them directly in liblegacy.a
|
||||
IF[{- $disabled{"deprecated"}
|
||||
&& (defined $config{"api"} && $config{"api"} >= 30000) -}]
|
||||
IF[{- $disabled{'deprecated-3.0'} -}]
|
||||
SOURCE[../../providers/liblegacy.a]=wp_dgst.c $WPASM
|
||||
DEFINE[../../providers/liblegacy.a]=$WPDEF
|
||||
ENDIF
|
||||
|
||||
Reference in New Issue
Block a user