[PATCH][gdb/testsuite] Fix gdb.mi/mi-info-sources.exp for extra debug info

[Tom de Vries <tdevries@suse.de>]

Hi,

When running test-case gdb.mi/mi-info-sources.exp, I run into:
...
Running src/gdb/testsuite/gdb.mi/mi-info-sources.exp ...
ERROR: internal buffer is full.
...
due to extra debug info from the shared libraries.

Fix this by using "nosharedlibrary".

Then I run into these FAILs:
...
FAIL: gdb.mi/mi-info-sources.exp: debug_read=false: \
  -file-list-exec-source-files (unexpected output)
FAIL: gdb.mi/mi-info-sources.exp: debug_read=true: \
  -file-list-exec-source-files (unexpected output)
FAIL: gdb.mi/mi-info-sources.exp: debug_read=true: \
  -file-list-exec-source-files --group-by-objfile, look for \
  mi-info-sources.c (unexpected output)
FAIL: gdb.mi/mi-info-sources.exp: debug_read=true: \
  -file-list-exec-source-files --group-by-objfile, look for \
  mi-info-sources-base.c (unexpected output)
...
due to openSUSE executables which have debug info for objects from sources
like sysdeps/x86_64/crtn.S.

Fix these by updating the patterns.

Tested on x86_64-linux.

Any comments?

Thanks,
- Tom

[gdb/testsuite] Fix gdb.mi/mi-info-sources.exp for extra debug info

gdb/testsuite/ChangeLog:

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

	* gdb.mi/mi-info-sources.exp: Use nosharedlibrary.  Update patterns.

---
 gdb/testsuite/gdb.mi/mi-info-sources.exp | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/gdb/testsuite/gdb.mi/mi-info-sources.exp b/gdb/testsuite/gdb.mi/mi-info-sources.exp
index c4d6b910ef8..6d69de0e29f 100644
--- a/gdb/testsuite/gdb.mi/mi-info-sources.exp
+++ b/gdb/testsuite/gdb.mi/mi-info-sources.exp
@@ -30,6 +30,10 @@ mi_clean_restart $binfile
 
 mi_runto_main
 
+# Unload symbols for shared libraries to prevent
+# 'ERROR: internal buffer is full'.
+mi_gdb_test "nosharedlibrary" ".*\\^done" "nosharedlibrary"
+
 # Helper to build expected MI output pattern for a list.  NAME is the
 # name of the list (which can be the empty string) and args is one
 # or more strings representing the fields of the list, which will be
@@ -113,20 +117,24 @@ proc check_info_sources { debug_fully_read } {
 			    [mi_field "file" "\[^\"\]+/mi-info-sources-base\\.c"] \
 			    [mi_field "fullname" "\[^\"\]+/mi-info-sources-base\\.c"] \
 			    [mi_field "debug-fully-read" "${debug_fully_read}"]] \
+		       ".*" \
 		       [mi_tuple "" \
 			    [mi_field "file" "\[^\"\]+/mi-info-sources\\.c"] \
 			    [mi_field "fullname" "\[^\"\]+/mi-info-sources\\.c"] \
-			    [mi_field "debug-fully-read" "true"]]]
+			    [mi_field "debug-fully-read" "true"]] \
+		      ".*"]
 	} else {
 	    set p [mi_list "files" \
 		       [mi_tuple "" \
 			    [mi_field "file" "\[^\"\]+/mi-info-sources\\.c"] \
 			    [mi_field "fullname" "\[^\"\]+/mi-info-sources\\.c"] \
 			    [mi_field "debug-fully-read" "true"]] \
+		       ".*" \
 		       [mi_tuple "" \
 			    [mi_field "file" "\[^\"\]+/mi-info-sources-base\\.c"] \
 			    [mi_field "fullname" "\[^\"\]+/mi-info-sources-base\\.c"] \
-			    [mi_field "debug-fully-read" "${debug_fully_read}"]]]
+			    [mi_field "debug-fully-read" "${debug_fully_read}"]] \
+		      ".*"]
 	}
 	mi_gdb_test "-file-list-exec-source-files" ".*\\^done,${p}" "-file-list-exec-source-files"
 
@@ -140,7 +148,7 @@ proc check_info_sources { debug_fully_read } {
 
 	# Figure out the value for the 'debug-info' field.
 	if {${debug_fully_read} == "true"} {
-	    set debug_info "fully-read"
+	    set debug_info "(fully-read|partially-read)"
 	} else {
 	    set debug_info "partially-read"
 	}