Fix logic in mkdef.pl function is_valid.

Update symbols
This commit is contained in:
Dr. Stephen Henson 2005-04-19 23:54:44 +00:00
parent 40e950aed6
commit d3fdc27aa8
2 changed files with 4 additions and 3 deletions

View File

@ -2891,7 +2891,7 @@ BN_GF2m_mod_exp_arr 3324 EXIST::FUNCTION:
STORE_ATTR_INFO_modify_number 3325 EXIST::FUNCTION:
X509_keyid_get0 3326 EXIST::FUNCTION:
EC_GROUP_new_by_nid 3327 EXIST::FUNCTION:EC
ENGINE_load_gmp 3328 EXIST::FUNCTION:ENGINE,STATIC_ENGINE
ENGINE_load_gmp 3328 EXIST::FUNCTION:ENGINE,GMP,STATIC_ENGINE
BN_GF2m_mod_mul_arr 3329 EXIST::FUNCTION:
STORE_list_public_key_endp 3330 EXIST::FUNCTION:
o2i_ECPublicKey 3331 EXIST::FUNCTION:EC
@ -3300,3 +3300,4 @@ BIO_dump_cb 3699 EXIST::FUNCTION:
SHA256_Update 3700 EXIST::FUNCTION:SHA,SHA256
BN_GF2m_mod_inv_arr 3701 EXIST::FUNCTION:
ENGINE_unregister_ECDSA 3702 EXIST::FUNCTION:ENGINE
OPENSSL_ia32cap_loc 3703 EXIST::FUNCTION:

View File

@ -1032,7 +1032,7 @@ sub is_valid
{
my ($keywords_txt,$platforms) = @_;
my (@keywords) = split /,/,$keywords_txt;
my ($falsesum, $truesum) = (0, !grep(/^[^!]/,@keywords));
my ($falsesum, $truesum) = (0, 1);
# Param: one keyword
sub recognise
@ -1102,7 +1102,7 @@ sub is_valid
if ($k =~ /^!(.*)$/) {
$falsesum += &recognise($1,$platforms);
} else {
$truesum += &recognise($k,$platforms);
$truesum *= &recognise($k,$platforms);
}
}
print STDERR "DEBUG: [",$#keywords,",",$#keywords < 0,"] is_valid($keywords_txt) => (\!$falsesum) && $truesum = ",(!$falsesum) && $truesum,"\n" if $debug;