mirror of
https://github.com/bminor/binutils-gdb.git
synced 2025-12-26 01:07:52 +00:00
8900a92ead
The DAP code already claimed to implement "scopes" and "evaluate", but this wasn't done completely correctly. This patch implements these and also implements the "variables" request. After this patch, variables and scopes correctly report their sub-structure. This also interfaces with the gdb pretty-printer API, so the output of pretty-printers is available.
102 lines
3.1 KiB
Plaintext
102 lines
3.1 KiB
Plaintext
# Copyright 2023 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/>.
|
|
|
|
# Test "scopes" and "variables".
|
|
|
|
require allow_python_tests
|
|
|
|
load_lib dap-support.exp
|
|
|
|
standard_testfile
|
|
|
|
if {[build_executable ${testfile}.exp $testfile] == -1} {
|
|
return
|
|
}
|
|
|
|
if {[dap_launch $testfile] == ""} {
|
|
return
|
|
}
|
|
|
|
set line [gdb_get_line_number "BREAK"]
|
|
set obj [dap_check_request_and_response "set breakpoint by line number" \
|
|
setBreakpoints \
|
|
[format {o source [o path [%s]] breakpoints [a [o line [i %d]]]} \
|
|
[list s $srcfile] $line]]
|
|
set line_bpno [dap_get_breakpoint_number $obj]
|
|
|
|
dap_check_request_and_response "start inferior" configurationDone
|
|
dap_wait_for_event_and_check "inferior started" thread "body reason" started
|
|
|
|
dap_wait_for_event_and_check "stopped at line breakpoint" stopped \
|
|
"body reason" breakpoint \
|
|
"body hitBreakpointIds" $line_bpno
|
|
|
|
set bt [lindex [dap_check_request_and_response "backtrace" stackTrace \
|
|
{o threadId [i 1]}] \
|
|
0]
|
|
set frame_id [dict get [lindex [dict get $bt body stackFrames] 0] id]
|
|
|
|
set scopes [dap_check_request_and_response "get scopes" scopes \
|
|
[format {o frameId [i %d]} $frame_id]]
|
|
set scopes [dict get [lindex $scopes 0] body scopes]
|
|
|
|
gdb_assert {[llength $scopes] == 1} "single scope"
|
|
|
|
set scope [lindex $scopes 0]
|
|
gdb_assert {[dict get $scope name] == "Locals"} "scope is locals"
|
|
gdb_assert {[dict get $scope namedVariables] == 3} "three vars in scope"
|
|
|
|
set num [dict get $scope variablesReference]
|
|
set refs [lindex [dap_check_request_and_response "fetch variables" \
|
|
"variables" \
|
|
[format {o variablesReference [i %d] count [i 3]} \
|
|
$num]] \
|
|
0]
|
|
|
|
foreach var [dict get $refs body variables] {
|
|
set name [dict get $var name]
|
|
|
|
if {$name != "dei"} {
|
|
gdb_assert {[dict get $var variablesReference] == 0} \
|
|
"$name has no structure"
|
|
}
|
|
|
|
switch $name {
|
|
"inner" {
|
|
gdb_assert {[string match "*inner block*" [dict get $var value]]} \
|
|
"check value of inner"
|
|
}
|
|
"dei" {
|
|
gdb_assert {[dict get $var value] == ""} "check value of dei"
|
|
set dei_ref [dict get $var variablesReference]
|
|
}
|
|
"scalar" {
|
|
gdb_assert {[dict get $var value] == 23} "check value of scalar"
|
|
}
|
|
default {
|
|
fail "unknown variable $name"
|
|
}
|
|
}
|
|
}
|
|
|
|
set refs [lindex [dap_check_request_and_response "fetch contents of dei" \
|
|
"variables" \
|
|
[format {o variablesReference [i %d]} $dei_ref]] \
|
|
0]
|
|
set deivals [dict get $refs body variables]
|
|
gdb_assert {[llength $deivals] == 2} "dei has two members"
|
|
|
|
dap_shutdown
|