[gcc r12-10358] testsuite, jit: Allow for target-specific assembler scans.

[Iain D Sandoe <iains@gcc.gnu.org>]

https://gcc.gnu.org/g:e73c4d7a236da0a1a9232861fe32bca0e5304870

commit r12-10358-ge73c4d7a236da0a1a9232861fe32bca0e5304870
Author: Iain Sandoe <iain@sandoe.co.uk>
Date:   Sat Jan 13 13:30:08 2024 +0000

    testsuite, jit: Allow for target-specific assembler scans.
    
    If we want to support multiple object formats and to allow for
    scan-assembler tests, we need to make it possible to adjust the
    tests on a per-target basis.
    
    This adds similar mechamisms to jit-verify-assembler-output
    to those used for the general scan-assembler dg directives.
    
    As an aside; it would, perhaps, be possible to integrate this more
    with scanasm.exp (which would also give access to function body
    scanning) but I did not attempt that for this patch.
    
    After this, we can accept things like:
    ... { jit-verify-assembler-output "......" { target *-*-darwin* } } }
    
    gcc/testsuite/ChangeLog:
    
            * jit.dg/jit.exp: Accept target clauses in jit-verify-assembler
            handling.
    
    Signed-off-by: Iain Sandoe <iain@sandoe.co.uk>
    (cherry picked from commit e0e3ef18a047d54d63be91d82a55448851353260)

Diff:
---
 gcc/testsuite/jit.dg/jit.exp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/gcc/testsuite/jit.dg/jit.exp b/gcc/testsuite/jit.dg/jit.exp
index 3568dbb9d63..35d38cec5bc 100644
--- a/gcc/testsuite/jit.dg/jit.exp
+++ b/gcc/testsuite/jit.dg/jit.exp
@@ -871,9 +871,23 @@ proc jit-verify-assembler { args } {
 proc jit-verify-assembler-output { args } {
     verbose "jit-verify-assembler: $args"
 
+    if { [llength $args] > 3 } {
+	error "jit-verify-assembler-output: too many arguments"
+	return
+    }
+
     set dg-output-text [lindex $args 0]
     verbose "dg-output-text: ${dg-output-text}"
 
+    if { [llength $args] >= 2 } {
+	switch [dg-process-target [lindex $args 1]] {
+	    "S" { }
+	    "N" { return }
+	    "F" { setup_xfail "*-*-*" }
+	    "P" { }
+	}
+    }
+
     upvar 2 name name
     verbose "name: $name"