gdb: Add new -n flag to some info commands

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / info-fun.exp

diff --git a/gdb/testsuite/gdb.base/info-fun.exp b/gdb/testsuite/gdb.base/info-fun.exp
index 208525eda659ef30ef3d9dade8f998a8592abe54..cee3a09ac141ab370df9c6c7523233f74fd8762e 100644 (file)
--- a/gdb/testsuite/gdb.base/info-fun.exp
+++ b/gdb/testsuite/gdb.base/info-fun.exp
@@ -30,54 +30,63 @@ if [get_compiler_info] {
     return -1
 }
 
-# SEP must be last for the possible `unsupported' error path.
-foreach libsepdebug {NO IN SEP} { with_test_prefix "$libsepdebug" {
+foreach_with_prefix n_flag { 0 1 } {
 
-    set sep_lib_flags $lib_flags
-    if {$libsepdebug != "NO"} {
-       lappend sep_lib_flags {debug}
-    }
-    if { [gdb_compile_shlib ${srcfile_lib} ${binfile_lib} $sep_lib_flags] != ""
-        || [gdb_compile $srcdir/$subdir/${srcfile} ${binfile} \
-                executable $bin_flags] != "" } {
-      untested "failed to compile"
-      return -1
-    }
+    # SEP must be last for the possible `unsupported' error path.
+    foreach libsepdebug {NO IN SEP} { with_test_prefix "$libsepdebug" {
 
-    if {$libsepdebug == "SEP"} {
-       if {[gdb_gnu_strip_debug $binfile_lib] != 0} {
-           unsupported "could not split debug of $binfile_lib."
-           return
-       } else {
-           pass "split solib"
+       set sep_lib_flags $lib_flags
+       if {$libsepdebug != "NO"} {
+           lappend sep_lib_flags {debug}
+       }
+       if { [gdb_compile_shlib ${srcfile_lib} ${binfile_lib} $sep_lib_flags] != ""
+            || [gdb_compile $srcdir/$subdir/${srcfile} ${binfile} \
+                    executable $bin_flags] != "" } {
+           untested "failed to compile"
+           return -1
        }
-    }
 
-    clean_restart $executable
+       if {$libsepdebug == "SEP"} {
+           if {[gdb_gnu_strip_debug $binfile_lib] != 0} {
+               unsupported "could not split debug of $binfile_lib."
+               return
+           } else {
+               pass "split solib"
+           }
+       }
+
+       clean_restart $executable
+
+       if ![runto_main] then {
+           fail "can't run to main"
+           return 0
+       }
 
-    if ![runto_main] then {
-      fail "can't run to main"
-      return 0
-    }
+       set match_str {All functions matching regular expression "foo":[\r\n]*}
+       if { "$libsepdebug" != "NO"  } {
+           append match_str {File .*/info-fun-solib[.]c:[\r\n]*}
+           append match_str {\d+:\tint foo\(void\);[\r\n]*}
+       }
 
-    set match_str {All functions matching regular expression "foo":[\r\n]*}
-    if { "$libsepdebug" != "NO"  } {
-       append match_str {File .*/info-fun-solib[.]c:[\r\n]*}
-       append match_str {\d+:\tint foo\(void\);[\r\n]*}
-    }
-    append match_str {Non-debugging symbols:[\r\n]*}
-    # Note: Targets like {m68k,ppc64,s390x}-linux also have, e.g.,
-    # 00000011.plt_call.foo+0 (m68k).
-    set plt_foo_match "($hex \[^\r\n\]*plt\[^\r\n\]*foo\[^\r\n\]*\[\r\n\]*)?"
-    append match_str $plt_foo_match
-    # This text we want to match precisely.
-    append match_str "$hex *foo(@plt)?\[\r\n\]*"
-    # Watch for again to not have to worry about the order of appearance.
-    append match_str $plt_foo_match
-    if { "$libsepdebug" == "NO"  } {
-       # Note: The ".?" is for targets like m68k-linux that have ".foo" here.
-       append match_str "$hex *.?foo\[\r\n\]*"
-    }
+       set opt ""
+       if { !$n_flag } {
+           append match_str {Non-debugging symbols:[\r\n]*}
+           # Note: Targets like {m68k,ppc64,s390x}-linux also have, e.g.,
+           # 00000011.plt_call.foo+0 (m68k).
+           set plt_foo_match "($hex \[^\r\n\]*plt\[^\r\n\]*foo\[^\r\n\]*\[\r\n\]*)?"
+           append match_str $plt_foo_match
+           # This text we want to match precisely.
+           append match_str "$hex *foo(@plt)?\[\r\n\]*"
+           # Watch for again to not have to worry about the order of appearance.
+           append match_str $plt_foo_match
+           if { "$libsepdebug" == "NO"  } {
+               # Note: The ".?" is for targets like m68k-linux that have ".foo" here.
+               append match_str "$hex *.?foo\[\r\n\]*"
+           }
+       } else {
+           set opt "-n"
+       }
 
-    gdb_test "info fun foo" "$match_str"
-}}
+       gdb_test "info fun $opt foo" "$match_str"
+    }}
+}