espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-20 09:58:19 +08:00
Code Issues Packages Projects Releases Wiki Activity

[gdb/testsuite] Simplify gdb.base/info-types.exp.tcl

Browse Source 
The regexp matching state machine in gdb.base/info-types.exp.tcl handles
"File .*:" lines individually.  Now that we do line-by-line matching, that's
no longer necessary.

Simplify accordingly.

Tested on x86_64-linux.

gdb/testsuite/ChangeLog:

2021-06-07  Tom de Vries  <tdevries@suse.de>

	* gdb.base/info-types.exp.tcl: Remove "File .*" matching from regexp
	matching state machine.
This commit is contained in:
Tom de Vries
2021-06-07 14:33:51 +02:00
parent bc37aacde1
commit 409cac34d9
2 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2021-06-07 Tom de Vries <tdevries@suse.de>
* gdb.base/info-types.exp.tcl: Remove "File .*" matching from regexp
matching state machine.
2021-06-07 Tom de Vries <tdevries@suse.de> 2021-06-07 Tom de Vries <tdevries@suse.de>
* gdb.base/new-ui-pending-input.exp * gdb.base/new-ui-pending-input.exp

20
gdb/testsuite/gdb.base/info-types.exp.tcl
View File

@ -89,9 +89,12 @@ proc run_test { lang } {
return 0 return 0
} }
set file_re "File .*[string_to_regexp $srcfile]:"
if { $lang == "c++" } { if { $lang == "c++" } {
set output_lines \ set output_lines \
[list \ [list \
$file_re \
"98:\[\t \]+CL;" \ "98:\[\t \]+CL;" \
"42:\[\t \]+anon_struct_t;" \ "42:\[\t \]+anon_struct_t;" \
"65:\[\t \]+anon_union_t;" \ "65:\[\t \]+anon_union_t;" \
@ -126,6 +129,7 @@ proc run_test { lang } {
} else { } else {
set output_lines \ set output_lines \
[list \ [list \
$file_re \
"52:\[\t \]+typedef enum {\\.\\.\\.} anon_enum_t;" \ "52:\[\t \]+typedef enum {\\.\\.\\.} anon_enum_t;" \
"45:\[\t \]+typedef struct {\\.\\.\\.} anon_struct_t;" \ "45:\[\t \]+typedef struct {\\.\\.\\.} anon_struct_t;" \
"68:\[\t \]+typedef union {\\.\\.\\.} anon_union_t;" \ "68:\[\t \]+typedef union {\\.\\.\\.} anon_union_t;" \
@ -160,28 +164,20 @@ proc run_test { lang } {
if { $state == 0 } { set state 1 } else { set state -1 } if { $state == 0 } { set state 1 } else { set state -1 }
exp_continue exp_continue
} }
-re "^\r\nFile .*[string_to_regexp $srcfile]:" {
if { $state == 1 } { set state 2 } else { set state -2 }
exp_continue
}
-re "^\r\nFile \[^\r\n\]*:" {
if { $state == 2 } { set state -4 }
exp_continue
}
-re "^\r\n(\[^\r\n\]*)(?=\r\n)" { -re "^\r\n(\[^\r\n\]*)(?=\r\n)" {
if { $state == 2 } { if { $state == 1 } {
set line $expect_out(1,string) set line $expect_out(1,string)
set res [match_line $line $output_lines idx] set res [match_line $line $output_lines idx]
if { $res == 1 } { if { $res == 1 } {
set state 3 set state 2
} elseif { $res == -1 } { } elseif { $res == -1 } {
set state -3 set state -2
} }
} }
exp_continue exp_continue
} }
-re -wrap "" { -re -wrap "" {
if { $state == 3} { if { $state == 2} {
pass $gdb_test_name pass $gdb_test_name
} else { } else {
fail "$gdb_test_name (state == $state)" fail "$gdb_test_name (state == $state)"