gdb/testsuite/gdb.dap/memory.exp

   1 # Copyright 2023 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 # Test DAP read/write memory.
  17
  18 require allow_dap_tests
  19
  20 load_lib dap-support.exp
  21
  22 standard_testfile
  23
  24 if {[build_executable ${testfile}.exp $testfile] == -1} {
  25     return
  26 }
  27
  28 if {[dap_launch $testfile] == ""} {
  29     return
  30 }
  31
  32 set line [gdb_get_line_number "BREAK"]
  33 set obj [dap_check_request_and_response "set breakpoint by line number" \
  34              setBreakpoints \
  35              [format {o source [o path [%s]] breakpoints [a [o line [i %d]]]} \
  36                   [list s $srcfile] $line]]
  37 set line_bpno [dap_get_breakpoint_number $obj]
  38
  39 dap_check_request_and_response "start inferior" configurationDone
  40 dap_wait_for_event_and_check "inferior started" thread "body reason" started
  41
  42 dap_wait_for_event_and_check "stopped at line breakpoint" stopped \
  43     "body reason" breakpoint \
  44     "body hitBreakpointIds" $line_bpno
  45
  46 set obj [dap_check_request_and_response "evaluate global" \
  47              evaluate {o expression [s thirty_two]}]
  48 dap_match_values "global value" [lindex $obj 0] "body result" 7
  49
  50 set obj [dap_check_request_and_response "evaluate global pointer" \
  51              evaluate {o expression [s thirty_two_p]}]
  52 set addr [dict get [lindex $obj 0] body memoryReference]
  53
  54 set obj [dap_check_request_and_response "read memory" \
  55              readMemory [format {o memoryReference [s %s] count [i 4]} $addr]]
  56
  57 set bytes [binary decode base64 [dict get [lindex $obj 0] body data]]
  58 gdb_assert {[string length $bytes] == 4}
  59
  60 set newbytes ""
  61 set zeros 0
  62 set sevens 0
  63 set others 0
  64 foreach byte [split $bytes ""] {
  65     if {$byte == "\0"} {
  66         incr zeros
  67         append newbytes $byte
  68     } elseif {$byte == "\x7"} {
  69         incr sevens
  70         append newbytes "\x8"
  71     } else {
  72         incr others
  73     }
  74 }
  75 gdb_assert {$zeros == 3}
  76 gdb_assert {$sevens == 1}
  77 gdb_assert {$others == 0}
  78
  79 set encoded [binary encode base64 $newbytes]
  80
  81 set obj [dap_check_request_and_response "write memory" \
  82              writeMemory [format {o memoryReference [s %s] count [i 4] data [s %s]} \
  83                               $addr $encoded]]
  84
  85 set obj [dap_check_request_and_response "re-evaluate global" \
  86              evaluate {o expression [s thirty_two]}]
  87 dap_match_values "updated global value" [lindex $obj 0] "body result" 8
  88
  89 dap_shutdown