diff --git a/util/mkdef.pl b/util/mkdef.pl index 1989589424d2e3221410a10755e005d1fe8fad83..706073dd74e0906952bd143f9598e88d110cc6f7 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";