Commit d3fdc27a authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

Fix logic in mkdef.pl function is_valid. 

Update symbols
parent 40e950ae

util/libeay.num

+2 −1
Original line number Diff line number Diff line
@@ -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:

util/mkdef.pl

+2 −2
Original line number Diff line number Diff line
@@ -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;