git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

go-test.exp (errchk): Combine quoted strings in comments. 

* go.test/go-test.exp (errchk): Combine quoted strings in
	comments.

From-SVN: r204033
This commit is contained in:
Ian Lance Taylor 2013-10-24 19:08:45 +00:00 committed by Ian Lance Taylor
parent 4a7cb16f83
commit ccc2311566
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2013-10-24 Ian Lance Taylor <iant@google.com>
* go.test/go-test.exp (errchk): Combine quoted strings in
comments.
2013-10-24 Cong Hou <congh@google.com> 2013-10-24 Cong Hou <congh@google.com>
* gcc.c-torture/execute/20030125-1.c: Update. * gcc.c-torture/execute/20030125-1.c: Update.

15
gcc/testsuite/go.test/go-test.exp
View File

@ -90,6 +90,21 @@ proc errchk { test opts } {
puts $fdout $copy_line puts $fdout $copy_line
continue continue
} }
# Combine quoted strings in comments, so that
# // ERROR "first error" "second error"
# turns into
# // ERROR "first error|second error"
# This format is used by the master testsuite to recognize
# multiple errors on a single line. We don't require that all
# the errors be present, but we do want to accept any of them.
set changed ""
while { $changed != $copy_line } {
set changed $copy_line
regsub "\(// \[^\"\]*\"\[^\"\]*\)\" \"" $copy_line "\\1|" out_line
set copy_line $out_line
}
regsub "// \(GCCGO_\)?ERROR \"\(\[^\"\]*\)\".*$" $copy_line "// \{ dg-error \"\\2\" \}" out_line regsub "// \(GCCGO_\)?ERROR \"\(\[^\"\]*\)\".*$" $copy_line "// \{ dg-error \"\\2\" \}" out_line
if [string match "*dg-error*\\\[*" $out_line] { if [string match "*dg-error*\\\[*" $out_line] {
set index [string first "dg-error" $out_line] set index [string first "dg-error" $out_line]