[gcc r13-4720] testsuite: Fix up * quoting in glob strings

[Jakub Jelinek <jakub@gcc.gnu.org>]

https://gcc.gnu.org/g:4a1648084137f515eddd5dc087d5dfbf360a5bfa

commit r13-4720-g4a1648084137f515eddd5dc087d5dfbf360a5bfa
Author: Jakub Jelinek <jakub@redhat.com>
Date:   Thu Dec 15 14:15:27 2022 +0100

    testsuite: Fix up * quoting in glob strings
    
    \* wasn't enough, we need \\* and for ObjC it wasn't done at all.
    
    2022-12-15  Jakub Jelinek  <jakub@redhat.com>
    
            * lib/target-supports.exp (check_compile): Further quoting
            fixes for /* Assembly, /* ObjC and (* Modula-2 *) checks.

Diff:
---
 gcc/testsuite/lib/target-supports.exp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index e9867a4529c..61026785eef 100644
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -60,15 +60,15 @@ proc check_compile {basename type contents args} {
 	set options ""
     }
     switch -glob -- $contents {
-	"*/\* Assembly*" { set src ${basename}[pid].S }
+	"*/\\* Assembly*" { set src ${basename}[pid].S }
 	"*! Fortran*" { set src ${basename}[pid].f90 }
 	"*// C++*" { set src ${basename}[pid].cc }
 	"*// D*" { set src ${basename}[pid].d }
 	"*// ObjC++*" { set src ${basename}[pid].mm }
-	"*/* ObjC*" { set src ${basename}[pid].m }
+	"*/\\* ObjC*" { set src ${basename}[pid].m }
 	"*// Go*" { set src ${basename}[pid].go }
 	"*// Rust*" { set src ${basename}[pid].rs }
-	"*(\* Modula-2*" { set src ${basename}[pid].mod }
+	"*(\\* Modula-2*" { set src ${basename}[pid].mod }
 	default {
 	    switch -- $tool {
 		"objc" { set src ${basename}[pid].m }