[PATCH 2/2] LD/testsuite: run_dump_test: Report UNSUPPORTED for excluded targets

[Maciej W. Rozycki]

Bring the LD implementation of `run_dump_test' in line with its binutils 
and GAS counterparts and report the UNSUPPORTED status for tests the run 
of which has been prevented by means of one or more of `target', 
`alltargets' and `notarget' tags.  Define `skip', `anyskip' and `noskip' 
tags, which do not report anything for tests that are not run.

The rationale behind this is that we want to have unsupported tests 
reported to ensure that they have actually been attempted and have not 
been accidentally suppressed.  Then tests which have target-specific 
variants that cannot be expressed with a single .d file can make use of 
the newly added tags to silently suppress the uninteresting variants.

	ld/
	* testsuite/lib/ld-lib.exp (run_dump_test): Call `unsupported' 
	if the target being tested has been excluded by means of one or 
	more of `target', `alltargets' and `notarget' tags.  Add support 
	for `skip', `anyskip' and `noskip' tags.
---
Hi,

 It would be good to have `run_ld_link_tests' updated accordingly, but it 
would be a larger change and I have not attempted to implement it at this 
time.

  Maciej
---
 ld/testsuite/lib/ld-lib.exp |   47 +++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 44 insertions(+), 3 deletions(-)

binutils-ld-test-run-dump-test-unsupported.diff
Index: binutils/ld/testsuite/lib/ld-lib.exp
===================================================================
--- binutils.orig/ld/testsuite/lib/ld-lib.exp	2018-07-04 00:34:10.876852850 +0100
+++ binutils/ld/testsuite/lib/ld-lib.exp	2018-07-04 00:37:29.793760354 +0100
@@ -542,19 +542,29 @@ proc ld_link_defsyms {} {
 #	as a TCL procedure if surrounded by square brackets, or passed
 #	to "istarget" if not.
 #	This may occur more than once; the target being tested must match
-#	at least one.
+#	at least one.  Otherwise the test will be marked unsupported.
 #
 #   alltargets: TARGET
 #	Only run the test for TARGET.
 #	The syntax for TARGET is as with 'target'.
 #	This may occur more than once; the target being tested must match
-#	all of them.
+#	all of them.  Otherwise the test will be marked unsupported.
 #
 #   notarget: TARGET
 #	Do not run the test for TARGET.
 #	The syntax for TARGET is as with 'target'.
 #	This may occur more than once; the target being tested must not
-#	match any of them.
+#	match any of them.  Otherwise the test will be marked unsupported.
+#
+#   skip: TARGET
+#   anyskip: TARGET
+#   noskip: TARGET
+#	These are exactly the same as "notarget", "alltargets" and
+#	"target" respectively, except that they do nothing at all if the
+#	check fails.  They should only be used in groups, to construct a
+#	single test which is run on all targets but with variant options
+#	or expected output on some targets.  (For example, see
+#	gas/arm/inst.d and gas/arm/wince_inst.d.)
 #
 #   error: REGEX
 #	An error with message matching REGEX must be emitted for the test
@@ -632,6 +642,9 @@ proc run_dump_test { name {extra_options
     set opts(target) {}
     set opts(alltargets) {}
     set opts(notarget) {}
+    set opts(skip) {}
+    set opts(anyskip) {}
+    set opts(noskip) {}
     set opts(objdump) {}
     set opts(nm) {}
     set opts(objcopy) {}
@@ -662,6 +675,9 @@ proc run_dump_test { name {extra_options
 	    target {}
 	    alltargets {}
 	    notarget {}
+	    skip {}
+	    anyskip {}
+	    noskip {}
 	    warning {}
 	    error {}
 	    source {
@@ -753,6 +769,28 @@ proc run_dump_test { name {extra_options
     }
 
     # Decide early whether we should run the test for this target.
+    if { [llength $opts(noskip)] > 0 } {
+	set targmatch 0
+	foreach targ $opts(noskip) {
+	    if [match_target $targ] {
+		set targmatch 1
+		break
+	    }
+	}
+	if { $targmatch == 0 } {
+	    return
+	}
+    }
+    foreach targ $opts(anyskip) {
+	if ![match_target $targ] {
+	    return
+	}
+    }
+    foreach targ $opts(skip) {
+	if [match_target $targ] {
+	    return
+	}
+    }
     if { [llength $opts(target)] > 0 } {
 	set targmatch 0
 	foreach targ $opts(target) {
@@ -762,16 +800,19 @@ proc run_dump_test { name {extra_options
 	    }
 	}
 	if { $targmatch == 0 } {
+	    unsupported $testname
 	    return
 	}
     }
     foreach targ $opts(alltargets) {
 	if ![match_target $targ] {
+	    unsupported $testname
 	    return
 	}
     }
     foreach targ $opts(notarget) {
 	if [match_target $targ] {
+	    unsupported $testname
 	    return
 	}
     }