1# Copyright 1997-2020 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 test was written by Rich Title. 17# Purpose is to test conditional breakpoints. 18# Modeled after "break.exp". 19 20# 21# test running programs 22# 23 24standard_testfile break.c break1.c 25 26if {[prepare_for_testing "failed to prepare" $testfile [list $srcfile $srcfile2] \ 27 {debug nowarnings}]} { 28 return -1 29} 30 31if [get_compiler_info] { 32 return -1 33} 34 35clean_restart ${binfile} 36 37 38set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] 39set bp_location6 [gdb_get_line_number "set breakpoint 6 here"] 40set bp_location8 [gdb_get_line_number "set breakpoint 8 here" $srcfile2] 41set bp_location14 [gdb_get_line_number "set breakpoint 14 here" $srcfile2] 42set bp_location15 [gdb_get_line_number "set breakpoint 15 here" $srcfile2] 43set bp_location17 [gdb_get_line_number "set breakpoint 17 here" $srcfile2] 44 45# 46# test break at function 47# 48gdb_test "break main" \ 49 "Breakpoint.*at.* file .*$srcfile, line.*" \ 50 "breakpoint function" 51 52# 53# test conditional break at function 54# 55gdb_test "break marker1 if 1==1" \ 56 "Breakpoint.*at.* file .*$srcfile2, line.*" 57 58gdb_test_no_output "delete 2" 59 60# 61# test conditional break at line number 62# 63gdb_test "break $srcfile:$bp_location1 if 1==1" \ 64 "Breakpoint.*at.* file .*$srcfile, line $bp_location1\\." 65 66gdb_test_no_output "delete 3" 67 68# 69# test conditional break at function 70# 71gdb_test "break marker1 if (1==1)" \ 72 "Breakpoint.*at.* file .*$srcfile2, line.*" 73 74# 75# test conditional break at line number 76# 77gdb_test "break $srcfile:$bp_location1 if (1==1)" \ 78 "Breakpoint.*at.* file .*$srcfile, line $bp_location1\\." 79 80gdb_test "break marker2 if (a==43)" \ 81 "Breakpoint.*at.* file .*$srcfile2, line.*" 82 83# 84# Check break involving inferior function call. 85# Ensure there is at least one additional breakpoint with higher VMA. 86# 87gdb_test "break marker3 if (multi_line_if_conditional(1,1,1)==0)" \ 88 "Breakpoint.*at.* file .*$srcfile2, line.*" 89gdb_test "break marker4" \ 90 "Breakpoint.*at.* file .*$srcfile2, line.*" 91 92# 93# check to see what breakpoints are set 94# 95gdb_test "info break" \ 96 "Num Type\[ \]+Disp Enb Address\[ \]+What.* 97\[0-9\]+\[\t \]+breakpoint keep y.* in main at .*$srcfile:$bp_location6.* 98\[0-9\]+\[\t \]+breakpoint keep y.* in marker1 at .*$srcfile2:$bp_location15.* 99\[\t \]+stop only if \\(1==1\\).* 100\[0-9\]+\[\t \]+breakpoint keep y.* in main at .*$srcfile:$bp_location1.* 101\[\t \]+stop only if \\(1==1\\).* 102\[0-9\]+\[\t \]+breakpoint keep y.* in marker2 at .*$srcfile2:$bp_location8.* 103\[\t \]+stop only if \\(a==43\\).* 104\[0-9\]+\[\t \]+breakpoint keep y.* in marker3 at .*$srcfile2:$bp_location17.* 105\[\t \]+stop only if \\(multi_line_if_conditional\\(1,1,1\\)==0\\).* 106\[0-9\]+\[\t \]+breakpoint keep y.* in marker4 at .*$srcfile2:$bp_location14.*" \ 107 "breakpoint info" 108 109 110# 111# run until the breakpoint at main is hit. 112# 113 114 115rerun_to_main 116 117# 118# run until the breakpoint at a line number 119# 120gdb_test "continue" "Continuing\\..*Breakpoint \[0-9\]+, main \\(argc=.*, argv=.*, envp=.*\\) at .*$srcfile:$bp_location1.*$bp_location1\[\t \]+printf.*factorial.*" \ 121 "run until breakpoint set at a line number" 122 123# 124# run until the breakpoint at marker1 125# 126# If the inferior stops at the first instruction of a source line, GDB 127# won't print the actual PC value; the source line is enough to 128# exactly specify the PC. But if the inferior is instead stopped in 129# the midst of a source line, GDB will include the PC in the 130# breakpoint hit message. This way, GDB always provides the exact 131# stop location, but avoids clutter when possible. 132# 133# Suppose you have a function written completely on one source line, like: 134# int foo (int x) { return 0; } 135# Setting a breakpoint at `foo' actually places the breakpoint after 136# foo's prologue. 137# 138# GCC's STABS writer always emits a line entry attributing the 139# prologue instructions to the line containing the function's open 140# brace, even if the first user instruction is also on that line. 141# This means that, in the case of a one-line function, you will get 142# two line entries in the debug info for the same line: one at the 143# function's entry point, and another at the first user instruction. 144# GDB preserves these duplicated line entries, and prefers the later 145# one; thus, when the program stops after the prologue, at the first 146# user instruction, GDB's search finds the second line entry, decides 147# that the PC is indeed at the beginning of a source line, and doesn't 148# print an address in the breakpoint hit message. 149# 150# GCC's Dwarf2 writer, on the other hand, squeezes out duplicate line 151# entries, so GDB considers the source line to begin at the start of 152# the function's prologue. Thus, if the program stops at the 153# breakpoint, GDB will decide that the PC is not at the beginning of a 154# source line, and will print an address. 155# 156# I think the Dwarf2 writer's behavior is arguably correct, but not 157# helpful. If the user sets a breakpoint at that source line, they 158# want that breakpoint to fall after the prologue. Identifying the 159# prologue's code with the opening brace is nice, but it shouldn't 160# take precedence over real code. 161# 162# Until the Dwarf2 writer gets fixed, I'm going to XFAIL its behavior. 163gdb_test_multiple "continue" "run until breakpoint at marker1" { 164 -re "Continuing\\..*Breakpoint \[0-9\]+, marker1 \\(\\) at .*$srcfile2:$bp_location15.*$bp_location15\[\t \]+.*$gdb_prompt $" { 165 pass "run until breakpoint at marker1" 166 } 167 -re "Continuing\\..*Breakpoint \[0-9\]+, $hex in marker1 \\(\\) at .*$srcfile2:$bp_location15.*$bp_location15\[\t \]+.*$gdb_prompt $" { 168 xfail "run until breakpoint at marker1" 169 } 170} 171 172# run until the breakpoint at marker2 173# Same issues here as above. 174setup_xfail hppa2.0w-*-* 11512CLLbs 175gdb_test_multiple "continue" "run until breakpoint at marker2" { 176 -re "Continuing\\..*Breakpoint \[0-9\]+, marker2 \\(a=43\\) at .*$srcfile2:$bp_location8.*$bp_location8\[\t \]+.*$gdb_prompt $" { 177 pass "run until breakpoint at marker2" 178 } 179 -re "Continuing\\..*Breakpoint \[0-9\]+, $hex in marker2 \\(a=43\\) at .*$srcfile2:$bp_location8.*$bp_location8\[\t \]+.*$gdb_prompt $" { 180 xfail "run until breakpoint at marker2" 181 } 182} 183 184# Test combinations of conditional and thread-specific breakpoints. 185gdb_test "break main if (1==1) thread 999" \ 186 "Unknown thread 999\\." 187gdb_test "break main thread 999 if (1==1)" \ 188 "Unknown thread 999\\." 189 190# Verify that both if and thread can be distinguished from a breakpoint 191# address expression. 192gdb_test "break *main if (1==1) thread 999" \ 193 "Unknown thread 999\\." 194gdb_test "break *main thread 999 if (1==1)" \ 195 "Unknown thread 999\\." 196 197# Similarly for task. 198gdb_test "break *main if (1==1) task 999" \ 199 "Unknown task 999\\." 200gdb_test "break *main task 999 if (1==1)" \ 201 "Unknown task 999\\." 202 203# GDB accepts abbreviations for "thread" and "task". 204gdb_test "break *main if (1==1) t 999" \ 205 "Unknown thread 999\\." 206gdb_test "break *main if (1==1) th 999" \ 207 "Unknown thread 999\\." 208gdb_test "break *main if (1==1) ta 999" \ 209 "Unknown task 999\\." 210 211set test "run until breakpoint at marker3" 212gdb_test_multiple "continue" $test { 213 -re "Continuing\\..*Breakpoint \[0-9\]+, marker3 \\(a=$hex \"stack\", b=$hex \"trace\"\\) at .*$srcfile2:$bp_location17.*$bp_location17\[\t \]+.*$gdb_prompt $" { 214 pass $test 215 } 216 -re "Continuing\\..*Breakpoint \[0-9\]+, $hex in marker3 \\(a=$hex \"stack\", b=$hex \"trace\"\\) at .*$srcfile2:$bp_location17.*$bp_location17\[\t \]+.*$gdb_prompt $" { 217 xfail $test 218 } 219} 220 221set test "run until breakpoint at marker4" 222gdb_test_multiple "continue" $test { 223 -re "Continuing\\..*Breakpoint \[0-9\]+, marker4 \\(d=177601976\\) at .*$srcfile2:$bp_location14.*$bp_location14\[\t \]+.*$gdb_prompt $" { 224 pass $test 225 } 226 -re "Continuing\\..*Breakpoint \[0-9\]+, $hex in marker4 \\(d=177601976\\) at .*$srcfile2:$bp_location14.*$bp_location14\[\t \]+.*$gdb_prompt $" { 227 xfail $test 228 } 229} 230 231gdb_test "complete cond 1" "cond 1" 232gdb_test "set variable \$var = 1" 233gdb_test "complete cond \$v" "cond \\\$var" 234gdb_test "complete cond 1 values\[0\].a" "cond 1 values.0..a_field" 235