mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2025-01-12 12:16:04 +08:00
286acbb5c2
When debugging an Ada program, and inserting a watchpoint tracking
a local variable, the watchpoint doesn't get automatically deleted
upon leaving that variable's scope. This watchpoint then starts
creating problems later on, when trying to resume the program's
execution from a location outside of the watchpoint's scope:
(gdb) c
Continuing.
Breakpoint 2, foo_p708_025 () at foo_p708_025.adb:7
7 Do_Nothing (Val);
(gdb) n
No frame is currently executing in block pck.get_val.
Command aborted.
(gdb) c
Continuing.
No frame is currently executing in block pck.get_val.
Command aborted.
The expected output is the following:
- The program's execution after the first continue should stop
as soon as we reach the end of the watchpoint's scope, and
the debugger should be deleting it.
- Then we can continue until reaching breakpoint 2 above;
- After which we should be able to do next/continue as usual.
The reason the watchpoint is not automatically deleted at scope exit
is because the watchpoint is not marked as being scope-specific
(b->exp_valid_block is equal NULL), and this is because the
symbol lookup for our local variable failed to set the innermost_block
global variable during the lookup.
More precisely, if we look at watch_command_1, we do the following:
innermost_block = NULL;
[...]
exp = parse_exp_1 (&arg, 0, 0, 0);
[...]
exp_valid_block = innermost_block;
Currently, innermost_block stays NULL after the call to parse_exp_1.
Digging further, this innermost_block is typically set during symbol
lookup when the symbol is considered to have a frame-relative address.
For instance, in c-exp.y, we see some code like the following:
if (symbol_read_needs_frame (sym.symbol))
{
if (innermost_block == 0
|| contained_in (sym.block,
innermost_block))
innermost_block = sym.block;
}
We actually have the exact same mechanism in ada-exp.y, except
that it vhas accidently been turned off. See write_var_from_sym,
where we start with:
if (orig_left_context == NULL && symbol_read_needs_frame (sym))
{
if (innermost_block == 0
|| contained_in (block, innermost_block))
innermost_block = block;
}
In this case, orig_left_context is a parameter, and looking at
the point of call in write_var_or_type, we see:
if (nsyms == 1)
{
write_var_from_sym (par_state, block, syms[0].block,
syms[0].symbol);
In the call above, the paramater we are interested in is "block",
which is a parameter for write_var_or_type as well, except we
explicitly override its value at the beginning when found to be NULL:
if (block == NULL)
block = expression_context_block;
So the block we pass to write_var_from_sym is not NULL, and
we therefore don't set innermost_block, which leads to the watchpoint
no longer being marked as scope-specific.
The handling of orig_left_context in write_var_from_sym was there
to handle the case where a user writes an expression where the symbol
is qualified with a scope (Eg: "function::variable"). But it appears
that handling this is specifically here is no longer necessary,
so this patch simply removes that parameter and the associated check,
and then updates all the points of calls.
Interestingly, this also affects GDB/MI, and in particular varobjs,
because local variables are now properly reported as having a block,
which causes the associated varob to have a "thread-id" field.
This patch also adjusts a couple of Ada/gdb-mi tests.
gdb/ChangeLog:
* ada-exp.y (write_var_from_sym): Remove parameter
"orig_left_context". Update all callers.
gdb/testsuite/ChangeLog:
* gdb.ada/scoped_watch: New testcase.
* gdb.ada/watch_arg.exp: Adjust expected behavior to the behavior
which is actually correct.
* gdb.ada/mi_interface.exp: Add missing thread-id in expected varobj.
* gdb.ada/mi_var_array.exp: Add missing thread-id in expected varobj.
84 lines
2.7 KiB
Plaintext
84 lines
2.7 KiB
Plaintext
# Copyright 2017 Free Software Foundation, Inc.
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
load_lib "ada.exp"
|
|
|
|
if { [skip_ada_tests] } { return -1 }
|
|
|
|
standard_ada_testfile foo_p708_025
|
|
|
|
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
|
|
return -1
|
|
}
|
|
|
|
clean_restart ${testfile}
|
|
|
|
set bp_location [gdb_get_line_number "START" ${testdir}/pck.adb]
|
|
runto "pck.adb:$bp_location"
|
|
|
|
# Insert a watchpoint on local variable "result"
|
|
|
|
gdb_test "watch result" \
|
|
".*atchpoint \[0-9\]+: result"
|
|
|
|
# Insert a breakpoint we'll reach after returning from the current
|
|
# function.
|
|
|
|
set bp_location [gdb_get_line_number "Do_Nothing" ${testdir}/foo_p708_025.adb]
|
|
gdb_test "break foo_p708_025.adb:$bp_location" \
|
|
"Breakpoint \[0-9\]+ at.*: file .*foo_p708_025.adb, line \[0-9\]+."
|
|
|
|
# This breakpoint will be there to stop us after we test what happens
|
|
# during a continue (see below...)
|
|
|
|
gdb_test "break pck.increment" \
|
|
"Breakpoint \[0-9\]+ at.*: file .*pck.adb, line \[0-9\]+."
|
|
|
|
# Continue until we reach our watchpoint. It isn't strictly necessary
|
|
# for our purpose that the watchpoint actually triggers, but this shows
|
|
# that the watchpoint exists and is active.
|
|
gdb_test "cont" \
|
|
".*atchpoint \[0-9\]+: result.*Old value = 8.*New value = 64.*" \
|
|
"continuing to watchpoint hit"
|
|
|
|
# Continue again. We should be stopped at the (internal) breakpoint
|
|
# that we setup to delete the watchpoint as soon as the program leaves
|
|
# the current scope.
|
|
|
|
gdb_test \
|
|
"cont" \
|
|
".*atchpoint \[0-9\]+ deleted because the program has left the block.*" \
|
|
"continuing until watchpoint automatic deletion"
|
|
|
|
# Continue one more time. We should be reaching one of the breakpoints
|
|
# (on the call to Do_Nothing) we set earlier.
|
|
|
|
gdb_test "cont" \
|
|
"Breakpoint \[0-9\]+.*Do_Nothing.*" \
|
|
"continuing to breakpoint on call to Do_Nothing"
|
|
|
|
# Do a next, to verify that it works...
|
|
|
|
gdb_test "next" \
|
|
".* Call_Me;" \
|
|
"next to call to Call_Me"
|
|
|
|
# And finally, one more continue.
|
|
|
|
|
|
gdb_test "cont" \
|
|
"Breakpoint \[0-9\]+.*pck\\.increment.*" \
|
|
"continuing to breakpoint in pck.increment"
|