Imagelibrary/binutils-gdb
1
0
Fork 1
mirror of https://github.com/bminor/binutils-gdb.git synced 2025-12-05 15:15:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

gdb/testsuite: fix pattern in gdb.base/dlmopen-ns-ids.exp

Browse Source 
I forgot one spot when updating the "info shared" header from NS to
"Linker NS", fix that.  This fixes the following failure:

    FAIL: gdb.base/dlmopen-ns-ids.exp: check no duplicates: info sharedlibrary

At the same time, fix a couple of things I found when looking at this
code again.  One is bad indentation, the other is an unnecessary
parameter.

Change-Id: Ibbc2062699264dde08fd3ff7c503524265c73b0c
This commit is contained in:
Simon Marchi
2025-08-14 16:13:01 -04:00
parent a63213cd37
commit 409a49bf88
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
gdb/testsuite/gdb.base/dlmopen-ns-ids.exp
View File

@@ -46,7 +46,7 @@ if { [build_executable "failed to build" $testfile $srcfile \
# - namespace ID # - namespace ID
# - name (file path) # - name (file path)
proc get_info_shared {{arg ""}} { proc get_info_shared {} {
set from_re "($::hex)\\s+" set from_re "($::hex)\\s+"
set to_re "($::hex)\\s+" set to_re "($::hex)\\s+"
set ns_re "(?:($::decimal)\\s+)?" set ns_re "(?:($::decimal)\\s+)?"
@@ -54,19 +54,19 @@ proc get_info_shared {{arg ""}} {
set name_re "(\[^\r\n\]+)" set name_re "(\[^\r\n\]+)"
set libs {} set libs {}
gdb_test_multiple "info sharedlibrary $arg" "" { gdb_test_multiple "info sharedlibrary" "" {
-re {From\s+To\s+(NS\s+)?Syms Read\s+Shared Object Library\r\n} { -re {From\s+To\s+(Linker NS\s+)?Syms Read\s+Shared Object Library\r\n} {
exp_continue exp_continue
} }
-re "^${from_re}${to_re}${ns_re}${syms_read_re}${name_re}\r\n" { -re "^${from_re}${to_re}${ns_re}${syms_read_re}${name_re}\r\n" {
set from $expect_out(1,string) set from $expect_out(1,string)
set to $expect_out(2,string) set to $expect_out(2,string)
set ns $expect_out(3,string) set ns $expect_out(3,string)
set name $expect_out(4,string) set name $expect_out(4,string)
lappend libs [list $from $to $ns $name] lappend libs [list $from $to $ns $name]
exp_continue exp_continue
} }
-re {^\(\*\): Shared library is missing debugging information\.\r\n} { -re {^\(\*\): Shared library is missing debugging information\.\r\n} {