From 606fc72a5f05a61184bc476dd877200336c1e3d0 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Thu, 30 Nov 2023 13:28:48 -0700 Subject: Rename a couple of DAP procs in the testsuite MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This renames a couple of DAP procs in the testsuite, to clarify that they are now exported. The cancellation test will need these. Reviewed-By: Kévin Le Gouguec --- gdb/testsuite/lib/dap-support.exp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'gdb') diff --git a/gdb/testsuite/lib/dap-support.exp b/gdb/testsuite/lib/dap-support.exp index 82d83d9..b9ac314 100644 --- a/gdb/testsuite/lib/dap-support.exp +++ b/gdb/testsuite/lib/dap-support.exp @@ -111,7 +111,7 @@ proc _dap_send_ton {obj} { # omitted. The sequence number of the request is automatically added, # and this is also the return value. OBJ is assumed to already be in # TON form. -proc _dap_send_request {command {obj {}}} { +proc dap_send_request {command {obj {}}} { # We can construct this directly as a TON object. set result $::dap_seq incr ::dap_seq @@ -186,7 +186,7 @@ proc _dap_read_json {} { # response is seen, this leaves the global "last_ton" set to the TON # for the response. -proc _dap_read_response {cmd num} { +proc dap_read_response {cmd num} { set result {} while 1 { set d [_dap_read_json] @@ -204,11 +204,11 @@ proc _dap_read_response {cmd num} { } } -# A wrapper for _dap_send_request and _dap_read_response. This sends a +# A wrapper for dap_send_request and dap_read_response. This sends a # request to gdb and returns the response as a dict. proc dap_request_and_response {command {obj {}}} { - set seq [_dap_send_request $command $obj] - return [_dap_read_response $command $seq] + set seq [dap_send_request $command $obj] + return [dap_read_response $command $seq] } # Like dap_request_and_response, but also checks that the response -- cgit v1.1