Commit c9c21d3b authored by Richard Levitte's avatar Richard Levitte
Browse files

Detect one-step shifts of the dso_scheme.

parent d0d046ec

Configure

+13 −1
Original line number Diff line number Diff line
@@ -1544,7 +1544,19 @@ sub test_sanity 
		{

		@fields = split(/\s*:\s*/,$table{$target} . ":" x 30 , -1);



		if ($fields[$idx_dso_scheme] !~ /^(dl|dlfcn|win32|vms|)$/)

		if ($fields[$idx_dso_scheme-1] =~ /^(dl|dlfcn|win32|vms)$/)

			{

			$errorcnt++;

			print STDERR "SANITY ERROR: '$target' has the dso_scheme [$idx_dso_scheme] values\n";

			print STDERR "              in the previous field\n";

			}

		elsif ($fields[$idx_dso_scheme+1] =~ /^(dl|dlfcn|win32|vms)$/)

			{

			$errorcnt++;

			print STDERR "SANITY ERROR: '$target' has the dso_scheme [$idx_dso_scheme] values\n";

			print STDERR "              in the following field\n";

			}

		elsif ($fields[$idx_dso_scheme] !~ /^(dl|dlfcn|win32|vms|)$/)

			{

			$errorcnt++;

			print STDERR "SANITY ERROR: '$target' has the dso_scheme [$idx_dso_scheme] field = ",$fields[$idx_dso_scheme],"\n";