[Bug dap/30644] New: [gdb/dap] ERROR: tcl error sourcing gdb.dap/stop-at-main.exp

["vries at gcc dot gnu.org" <sourceware-bugzilla@sourceware.org>]

https://sourceware.org/bugzilla/show_bug.cgi?id=30644

            Bug ID: 30644
           Summary: [gdb/dap] ERROR: tcl error sourcing
                    gdb.dap/stop-at-main.exp
           Product: gdb
           Version: HEAD
            Status: NEW
          Severity: normal
          Priority: P2
         Component: dap
          Assignee: unassigned at sourceware dot org
          Reporter: vries at gcc dot gnu.org
  Target Milestone: ---

Created attachment 14974
  --> https://sourceware.org/bugzilla/attachment.cgi?id=14974&action=edit
gdb.log

As noted here (
https://sourceware.org/pipermail/gdb-patches/2023-July/200945.html ), commit
75ec0982978 ("Use correct inferior in Inferior.read_memory et al") breaks
test-case gdb.dap/stop-at-main.exp:
...
{"request_seq": 2, "type": "response", "command": "launch", "success": true,
"seq": 3}PASS: gdb.dap/stop-at-main.exp: startup - launch success
>>> {"seq": 3, "type": "request", "command": "configurationDone"}
Content-Length: 97^M
^M
{"request_seq": 3, "type": "response", "command": "configurationDone",
"success": true, "seq": 4}PASS: gdb.dap/stop-at-main.exp: start inferior
success
ERROR: eof reading json header
    while executing
"error "eof reading json header""
    invoked from within
"expect {
-i exp19 -timeout 10
        -re "^Content-Length: (\[0-9\]+)\r\n" {
            set length $expect_out(1,string)
            exp_continue
        }
        -re "^(\[^\r\n\]+)..."
    ("uplevel" body line 1)
    invoked from within
"uplevel $body" NONE eof reading json header
ERROR: tcl error sourcing
/data/vries/gdb/src/gdb/testsuite/gdb.dap/stop-at-main.exp.
...

Unfortunately, the failure comes in the form of an ERROR.

-- 
You are receiving this mail because:
You are on the CC list for the bug.