From a43125192237ce7f3aac7406fd425f9aaad7d9bf Mon Sep 17 00:00:00 2001 From: Nathan Sidwell Date: Mon, 13 Jul 2020 08:04:26 -0700 Subject: [PATCH] testsuite: Fix scan-lang-dump-not turned out scan-lang-dump-not was broken in the 3 argument case -- I'd missed a necessary empty arg. Fixed thusly. gcc/testsuite/ * lib/scanlang.exp (scan-lang-dump-not): Fix 3-arg case. --- gcc/testsuite/lib/scanlang.exp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/lib/scanlang.exp b/gcc/testsuite/lib/scanlang.exp index 2f80f65f569..d9f8c1e6e83 100644 --- a/gcc/testsuite/lib/scanlang.exp +++ b/gcc/testsuite/lib/scanlang.exp @@ -36,10 +36,11 @@ proc scan-lang-dump { args } { return } if { [llength $args] >= 3 } { - scan-dump "lang" [lindex $args 0] \ - "\[0-9\]\[0-9\]\[0-9\]l.[lindex $args 1]" "" [lindex $args 2] + scan-dump-not "lang" [lindex $args 0] \ + "\[0-9\]\[0-9\]\[0-9\]l.[lindex $args 1]" "" \ + [lindex $args 2] } else { - scan-dump "lang" [lindex $args 0] \ - "\[0-9\]\[0-9\]\[0-9\]l.[lindex $args 1]" "" + scan-dump-not "lang" [lindex $args 0] \ + "\[0-9\]\[0-9\]\[0-9\]l.[lindex $args 1]" } }