pushed as obvious
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.
--
Nathan Sidwell
diff --git c/gcc/testsuite/lib/scanlang.exp w/gcc/testsuite/lib/scanlang.exp
index 2f80f65f569..d9f8c1e6e83 100644
--- c/gcc/testsuite/lib/scanlang.exp
+++ w/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]"
}
}