gdb/testsuite/gdb.base/skip-solib.exp

   1 #   Copyright 2011-2024 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 # This file was written by Justin Lebar. (justin.lebar@gmail.com)
  17
  18 #
  19 # Tests skipping shared libraries.
  20 #
  21
  22 # This only works on GNU/Linux.
  23 require isnative allow_shlib_tests
  24 require {!is_remote host}
  25 require {istarget *-linux*}
  26
  27 set test "skip-solib"
  28 set srcfile_main "${test}-main.c"
  29 set executable_main ${test}-test
  30 set binfile_main [standard_output_file ${executable_main}]
  31 set srcfile_lib "${test}-lib.c"
  32 set libname "lib${test}"
  33 set binfile_lib [standard_output_file ${libname}.so]
  34
  35 #
  36 # Compile our program under test.  The main program references a shared library
  37 # libskip-solib.so, which contains two functions, square(), which is
  38 # referenced by the main program, and multiply(), which is not referenced by
  39 # the main program.
  40 #
  41
  42 if {[gdb_compile_shlib ${srcdir}/${subdir}/${srcfile_lib} ${binfile_lib} \
  43          [list debug]] != ""} {
  44     return -1
  45 }
  46
  47 if {[gdb_compile "${srcdir}/${subdir}/${srcfile_main}" "${binfile_main}.o" \
  48          object debug] != ""} {
  49     return -1
  50 }
  51
  52 set testobjdir [standard_output_file {}]
  53 if {[gdb_compile "${binfile_main}.o" "${binfile_main}" executable \
  54          [list debug shlib=$binfile_lib]] != ""} {
  55     return -1
  56 }
  57
  58 #
  59 # Test ignoring of a file inside a solib.
  60 #
  61 with_test_prefix "ignoring solib file" {
  62
  63     clean_restart ${executable_main}
  64     gdb_load_shlib $binfile_lib
  65
  66     gdb_test "skip file ${srcfile_lib}" \
  67         "File ${srcfile_lib} will be skipped when stepping." \
  68         "skip file"
  69
  70     gdb_test "info skip" \
  71         [multi_line \
  72              "Num\\s+Enb\\s+Glob\\s+File\\s+RE\\s+Function\\s*" \
  73              "1\\s+y\\s+n\\s+${srcfile_lib}\\s+n\\s+<none>\\s*"]
  74
  75     if ![runto_main] {
  76         return
  77     }
  78
  79     #
  80     # We shouldn't step into square(), since we skipped skip-solib-lib.c.
  81     #
  82     gdb_test "step" ""
  83     gdb_test "bt" "#0\\s+main.*"
  84 }
  85
  86 #
  87 # Now test ignoring of a function inside a solib.
  88 #
  89 with_test_prefix "ignoring solib function" {
  90     clean_restart ${executable_main}
  91     gdb_load_shlib $binfile_lib
  92
  93     gdb_test "skip function multiply" \
  94         "Function multiply will be skipped when stepping\\." \
  95         "skip function"
  96
  97     if ![runto_main] {
  98         return
  99     }
 100
 101     #
 102     # Our first step should take us into square.
 103     #
 104     gdb_test "step" "square.*" "step into other function"
 105
 106     gdb_test "info skip" \
 107         [multi_line \
 108              "Num\\s+Enb\\s+Glob\\s+File\\s+RE\\s+Function\\s*" \
 109              "1\\s+y\\s+n\\s+<none>\\s+n\\s+multiply\\s*"]
 110
 111     #
 112     # This step shouldn't go into multiply -- we should skip it and go on to
 113     # the last line of square.
 114     #
 115     gdb_test "step" ""
 116     gdb_test "bt" "#0\\s+square.*"
 117 }