From: Richard Levitte Date: Mon, 11 Sep 2000 17:31:05 +0000 (+0000) Subject: mkdef.pl has erroneous conditions to check if a symbol is excluded X-Git-Tag: OpenSSL-engine-0_9_6-beta2~13^2~7 X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=commitdiff_plain;h=965c17756a248f512056197f41f248c615be5a0d;hp=0c415ddd6723006765ec7c167742f05e981b2b32 mkdef.pl has erroneous conditions to check if a symbol is excluded from the given target. Fixed, I hope. --- diff --git a/util/mkdef.pl b/util/mkdef.pl index 1989589424..706073dd74 100755 --- a/util/mkdef.pl +++ b/util/mkdef.pl @@ -693,14 +693,15 @@ EOF } else { (my $n, my $i) = split /\\/, $nums{$s}; my @p = split(/,/, ($i =~ /^.*?:(.*?):/,$1)); - printf OUT " %s%-40s@%d\n",($W32)?"":"_",$s,$n - # It is very important to check NT before W32 - if ($NT && (!@p || (grep(/^WINNT$/,@p) - && !grep(/^!WINNT$/,@p))) - || $W32 && (!@p || (grep(/^WIN32$/,@p) - && !grep(/^!WIN32$/,@p))) - || $W16 && (!@p || (grep(/^WIN16$/,@p) - && !grep(/^!WIN16$/,@p)))); + # It is very important to check NT before W32 + if (($NT && (!@p || (grep(/^WINNT$/,@p) + || !grep(/^!WINNT$/,@p)))) + || ($W32 && (!@p || (grep(/^WIN32$/,@p) + || !grep(/^!WIN32$/,@p)))) + || ($W16 && (!@p || (grep(/^WIN16$/,@p) + || !grep(/^!WIN16$/,@p))))) { + printf OUT " %s%-40s@%d\n",($W32)?"":"_",$s,$n; + } } } printf OUT "\n";