Commit 965c1775 authored by Richard Levitte's avatar Richard Levitte
Browse files

mkdef.pl has erroneous conditions to check if a symbol is excluded 

from the given target.  Fixed, I hope.
parent 0c415ddd

util/mkdef.pl

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

			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";