gdb/testsuite/gdb.opt/inline-locals.exp

   1 # Copyright 2008-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 standard_testfile .c inline-markers.c
  17
  18 if {[prepare_for_testing "failed to prepare" $testfile \
  19          [list $srcfile $srcfile2] {debug additional_flags=-Winline}]} {
  20     return -1
  21 }
  22
  23 runto_main
  24
  25 get_debug_format
  26 if { [skip_inline_var_tests] } {
  27     untested inline-bt.exp
  28     return
  29 }
  30
  31 set no_frames [skip_inline_frame_tests]
  32
  33 set line1 [gdb_get_line_number "set breakpoint 1 here" ${srcfile2}]
  34 gdb_breakpoint $srcfile2:$line1
  35
  36 gdb_test "continue" ".*set breakpoint 1 here.*" "continue to bar 1"
  37
  38 gdb_test "continue" ".*set breakpoint 1 here.*" "continue to bar 2"
  39
  40 if { ! $no_frames } {
  41     gdb_test "backtrace" "#0  bar.*#1  .*func1.*#2  .*main.*" \
  42         "backtrace from bar 2"
  43     gdb_test "up" "#1  .*func1 .* at .*" "up from bar 2"
  44     gdb_test "info frame" ".*inlined into frame.*" "func1 inlined 2"
  45     set pass_re "array = \\{0 <repeats 64 times>\\}"
  46     set kfail_re [multi_line $pass_re \
  47                       "array = <optimized out>"]
  48     gdb_test_multiple "info locals" "info locals above bar 2" {
  49         -re -wrap $pass_re {
  50             pass $gdb_test_name
  51         }
  52         -re -wrap $kfail_re {
  53             kfail gdb/25695 $gdb_test_name
  54         }
  55     }
  56
  57     set msg "info args above bar 2"
  58     gdb_test_multiple "info args" $msg {
  59         -re "arg1 = $decimal\r\n$gdb_prompt $" {
  60             pass $msg
  61         }
  62         -re "arg1 = <optimized out>\r\n$gdb_prompt $" {
  63             # GCC 4.3 and later lose location information for arg1.  GCC 4.2 is OK.
  64             if { [test_compiler_info "gcc-4-3-*"]  || [test_compiler_info "gcc-4-4-*"]} {
  65                 setup_xfail *-*-*
  66             }
  67             fail $msg
  68         }
  69     }
  70 } else {
  71     gdb_test "up" "#1  .*main .* at .*" "up from bar 2"
  72     gdb_test "info locals" ".*arg1 = 0.*" "info locals above bar 2"
  73 }
  74
  75 # Make sure that locals on the stack are found.  This is an array to
  76 # prevent it from living in a register.
  77 gdb_test "print array\[0\]" "\\\$$decimal = 0" "print local 2"
  78
  79 if { ! $no_frames } {
  80     # Verify that we do not print out variables from the inlined
  81     # function's caller.
  82     gdb_test "print val" "No symbol \"val\" in current context\\." \
  83         "print out of scope local"
  84 }
  85
  86 # Repeat the tests from a depth of two inlined functions, and with a
  87 # more interesting value in the local array.
  88 gdb_test "continue" ".*set breakpoint 1 here.*" "continue to bar 3"
  89 if { ! $no_frames } {
  90     gdb_test "backtrace" "#0  bar.*#1  .*func1.*#2  .*func2.*#3  .*main.*" \
  91         "backtrace from bar 3"
  92     gdb_test "up" "#1  .*func1 .* at .*" "up from bar 3"
  93     gdb_test "info frame" ".*inlined into frame.*" "func1 inlined 3"
  94     set pass_re "array = {$decimal, \[^\r\n\]*}"
  95     set kfail_re [multi_line $pass_re \
  96                       "array = <optimized out>"]
  97     gdb_test_multiple "info locals" "info locals above bar 3" {
  98         -re -wrap $pass_re {
  99             pass $gdb_test_name
 100         }
 101         -re -wrap $kfail_re {
 102             kfail gdb/25695 $gdb_test_name
 103         }
 104     }
 105
 106     set msg "info args above bar 3"
 107     gdb_test_multiple "info args" $msg {
 108         -re "arg1 = $decimal\r\n$gdb_prompt $" {
 109             pass $msg
 110         }
 111         -re "arg1 = <optimized out>\r\n$gdb_prompt $" {
 112             # GCC 4.3 and later lose location information for arg1.  GCC 4.2 is OK.
 113             if { [test_compiler_info "gcc-4-3-*"]  || [test_compiler_info "gcc-4-4-*"]} {
 114                 setup_xfail *-*-*
 115             }
 116             fail $msg
 117         }
 118     }
 119 } else {
 120     gdb_test "up" "#1  .*main .* at .*" "up from bar 3"
 121     gdb_test "info locals" ".*arg1 = 1.*" "info locals above bar (3a)"
 122     gdb_test "info locals" ".*arg2 = 184.*" "info locals above bar (3b)"
 123 }
 124
 125 gdb_test "print array\[0\]" "\\\$$decimal = 184" "print local 3"
 126
 127 # Test printing scoped local variables.
 128
 129 proc check_scoped_locals {bp_label pass_re} {
 130     global srcfile
 131
 132     set locals_bp [gdb_get_line_number $bp_label ${srcfile}]
 133     gdb_breakpoint $srcfile:$locals_bp
 134
 135     gdb_continue_to_breakpoint "$bp_label" ".*$srcfile:$locals_bp.*"
 136     set kfail_re [multi_line $pass_re ".*<optimized out>"]
 137     gdb_test_multiple "info locals" "scoped info locals at $bp_label" {
 138         -re -wrap $pass_re {
 139             pass $gdb_test_name
 140         }
 141         -re -wrap $kfail_re {
 142             if {[test_compiler_info {gcc-[0-8]-*-*}]} {
 143                 kfail gdb/25695 $gdb_test_name
 144             } else {
 145                 fail $gdb_test_name
 146             }
 147         }
 148     }
 149 }
 150
 151 if {! $no_frames } {
 152     check_scoped_locals "bp for locals 1" "loc2 = 20\r\nloc1 = 10"
 153     check_scoped_locals "bp for locals 2" "loc3 = 30\r\nloc2 = 20\r\nloc1 = 10"
 154     check_scoped_locals "bp for locals 3" "loc1 = 10"
 155 }