repos/blastem: gdb_remote.c annotate

annotate gdb_remote.c @ 2052:3748a2a8a4b7

Support Sega mapper without 'SEGA SSF' in header or ROM DB entry and implement a subset of the extended Sega mapper implemented in the Mega Everdrive when 'SEGA SSF' is present

author	Michael Pavone <pavone@retrodev.com>
date	Sat, 01 Jan 2022 18:54:46 -0800
parents	3a46ff899fa6
children	a7b753e260a2 f80c6111e1ae

rev	line source
467 140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 456 diff changeset	1 /*
140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 456 diff changeset	2 Copyright 2013 Michael Pavone
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	3 This file is part of BlastEm.
467 140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 456 diff changeset	4 BlastEm is free software distributed under the terms of the GNU General Public License version 3 or greater. See COPYING for full license text.
140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 456 diff changeset	5 */
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	6 #ifdef _WIN32
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	7 #define WINVER 0x501
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	8 #include <winsock2.h>
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	9 #include <ws2tcpip.h>
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	10
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	11 int gdb_sock;
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	12 #define GDB_IN_FD gdb_sock
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	13 #define GDB_OUT_FD gdb_sock
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	14 #define GDB_READ(fd, buf, bufsize) recv(fd, buf, bufsize, 0)
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	15 #define GDB_WRITE(fd, buf, bufsize) send(fd, buf, bufsize, 0)
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	16 #else
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	17 #define GDB_IN_FD STDIN_FILENO
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	18 #define GDB_OUT_FD STDOUT_FILENO
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	19 #define GDB_READ read
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	20 #define GDB_WRITE write
1949 5a76a7373823 Get WIP net play code compiling on Windows and cleanup some unistd.h includes Michael Pavone <pavone@retrodev.com> parents: 1945 diff changeset	21 #include <unistd.h>
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	22 #endif
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	23
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	24 #include "gdb_remote.h"
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	25 #include "68kinst.h"
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	26 #include "debug.h"
792 724bbec47f86 Use a new fatal_error function instead of calling fprintf and exit for fatal errors. This new function more gracefully handles the case in which BlastEm was not started from a terminal or disconnected from ther terminal (Windows). Michael Pavone <pavone@retrodev.com> parents: 757 diff changeset	27 #include "util.h"
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	28 #include <fcntl.h>
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	29 #include <stddef.h>
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	30 #include <stdlib.h>
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	31 #include <stdio.h>
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	32 #include <string.h>
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	33
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	34
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	35
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	36 #define INITIAL_BUFFER_SIZE (16*1024)
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	37
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	38 #ifdef DO_DEBUG_PRINT
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	39 #define dfprintf fprintf
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	40 #else
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	41 #define dfprintf
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	42 #endif
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	43
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	44 char * buf = NULL;
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	45 char * curbuf = NULL;
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	46 char * end = NULL;
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	47 size_t bufsize;
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	48 int cont = 0;
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	49 int expect_break_response=0;
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	50 uint32_t resume_pc;
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	51
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	52
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	53 static uint16_t branch_t;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	54 static uint16_t branch_f;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	55
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	56 static bp_def * breakpoints = NULL;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	57 static uint32_t bp_index = 0;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	58
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	59
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	60 void hex_32(uint32_t num, char * out)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	61 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	62 for (int32_t shift = 28; shift >= 0; shift -= 4)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	63 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	64 uint8_t nibble = num >> shift & 0xF;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	65 *(out++) = nibble > 9 ? nibble - 0xA + 'A' : nibble + '0';
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	66 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	67 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	68
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	69 void hex_16(uint16_t num, char * out)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	70 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	71 for (int16_t shift = 14; shift >= 0; shift -= 4)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	72 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	73 uint8_t nibble = num >> shift & 0xF;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	74 *(out++) = nibble > 9 ? nibble - 0xA + 'A' : nibble + '0';
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	75 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	76 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	77
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	78 void hex_8(uint8_t num, char * out)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	79 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	80 uint8_t nibble = num >> 4;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	81 *(out++) = nibble > 9 ? nibble - 0xA + 'A' : nibble + '0';
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	82 nibble = num & 0xF;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	83 *out = nibble > 9 ? nibble - 0xA + 'A' : nibble + '0';
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	84 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	85
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	86 void gdb_calc_checksum(char * command, char *out)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	87 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	88 uint8_t checksum = 0;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	89 while (*command)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	90 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	91 checksum += *(command++);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	92 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	93 hex_8(checksum, out);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	94 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	95
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	96 void write_or_die(int fd, const void *buf, size_t count)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	97 {
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	98 if (GDB_WRITE(fd, buf, count) < count) {
792 724bbec47f86 Use a new fatal_error function instead of calling fprintf and exit for fatal errors. This new function more gracefully handles the case in which BlastEm was not started from a terminal or disconnected from ther terminal (Windows). Michael Pavone <pavone@retrodev.com> parents: 757 diff changeset	99 fatal_error("Error writing to stdout\n");
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	100 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	101 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	102
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	103 void gdb_send_command(char * command)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	104 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	105 char end[3];
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	106 write_or_die(GDB_OUT_FD, "$", 1);
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	107 write_or_die(GDB_OUT_FD, command, strlen(command));
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	108 end[0] = '#';
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	109 gdb_calc_checksum(command, end+1);
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	110 write_or_die(GDB_OUT_FD, end, 3);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	111 dfprintf(stderr, "Sent $%s#%c%c\n", command, end[1], end[2]);
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	112 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	113
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	114 uint32_t calc_status(m68k_context * context)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	115 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	116 uint32_t status = context->status << 3;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	117 for (int i = 0; i < 5; i++)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	118 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	119 status <<= 1;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	120 status \|= context->flags[i];
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	121 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	122 return status;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	123 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	124
526 6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	125 void update_status(m68k_context * context, uint16_t value)
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	126 {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	127 context->status = value >> 8;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	128 for (int i = 4; i >= 0; i--)
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	129 {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	130 context->flags[i] = value & 1;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	131 value >>= 1;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	132 }
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	133 }
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	134
1965 3a46ff899fa6 More correct implementation of byte printing in builtin debugger. Fix GDB debugger to use helper in backend.c for reading bytes Michael Pavone <pavone@retrodev.com> parents: 1963 diff changeset	135 static uint8_t m68k_read_byte(m68k_context *context, uint32_t address)
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	136 {
1965 3a46ff899fa6 More correct implementation of byte printing in builtin debugger. Fix GDB debugger to use helper in backend.c for reading bytes Michael Pavone <pavone@retrodev.com> parents: 1963 diff changeset	137 //TODO: share this implementation with builtin debugger
3a46ff899fa6 More correct implementation of byte printing in builtin debugger. Fix GDB debugger to use helper in backend.c for reading bytes Michael Pavone <pavone@retrodev.com> parents: 1963 diff changeset	138 return read_byte(address, (void **)context->mem_pointers, &context->options->gen, context);
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	139 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	140
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1329 diff changeset	141 void m68k_write_byte(m68k_context * context, uint32_t address, uint8_t value)
530 92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	142 {
801 092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	143 genesis_context *gen = context->system;
530 92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	144 //TODO: Use generated read/write functions so that memory map is properly respected
801 092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	145 uint16_t * word = get_native_pointer(address & 0xFFFFFFFE, (void **)context->mem_pointers, &context->options->gen);
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	146 if (word) {
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	147 if (address & 1) {
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	148 word = (word & 0xFF00) \| value;
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	149 } else {
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	150 word = (word & 0xFF) \| value << 8;
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	151 }
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	152 //TODO: Deal with this more generally once m68k_handle_code_write can handle it
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	153 if (address >= 0xE00000) {
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	154 m68k_handle_code_write(address, context);
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	155 }
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	156 return;
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	157 }
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	158 if (address >= 0xA00000 && address < 0xA04000) {
1103 22e87b739ad6 WIP split of ROM loading/argument parsing from Genesis emulation code. Compiles and doesn't crash, but nothing works. Still a few too many globals as well. Michael Pavone <pavone@retrodev.com> parents: 804 diff changeset	159 gen->zram[address & 0x1FFF] = value;
530 92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	160 genesis_context * gen = context->system;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1329 diff changeset	161 #if !defined(NO_Z80) && !defined(NEW_CORE)
804 59e664fa2da8 Fix a search/replace bug from the old Win32 GDB remote debugging work and replace some more print+exit combos with fatal_error Michael Pavone <pavone@retrodev.com> parents: 803 diff changeset	162 z80_handle_code_write(address & 0x1FFF, gen->z80);
548 a3afee2271ce Initial work on the x86-32 target Michael Pavone <pavone@retrodev.com> parents: 530 diff changeset	163 #endif
530 92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	164 return;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	165 } else {
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	166 return;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	167 }
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	168 }
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	169
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	170 void gdb_run_command(m68k_context * context, uint32_t pc, char * command)
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	171 {
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	172 char send_buf[512];
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	173 dfprintf(stderr, "Received command %s\n", command);
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	174 switch(*command)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	175 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	176
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	177 case 'c':
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	178 if (*(command+1) != 0) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	179 //TODO: implement resuming at an arbitrary address
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	180 goto not_impl;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	181 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	182 cont = 1;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	183 expect_break_response = 1;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	184 break;
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	185 case 's': {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	186 if (*(command+1) != 0) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	187 //TODO: implement resuming at an arbitrary address
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	188 goto not_impl;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	189 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	190 m68kinst inst;
801 092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	191 genesis_context *gen = context->system;
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	192 uint16_t * pc_ptr = get_native_pointer(pc, (void **)context->mem_pointers, &context->options->gen);
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	193 if (!pc_ptr) {
792 724bbec47f86 Use a new fatal_error function instead of calling fprintf and exit for fatal errors. This new function more gracefully handles the case in which BlastEm was not started from a terminal or disconnected from ther terminal (Windows). Michael Pavone <pavone@retrodev.com> parents: 757 diff changeset	194 fatal_error("Entered gdb remote debugger stub at address %X\n", pc);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	195 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	196 uint16_t * after_pc = m68k_decode(pc_ptr, &inst, pc & 0xFFFFFF);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	197 uint32_t after = pc + (after_pc-pc_ptr)*2;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	198
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	199 if (inst.op == M68K_RTS) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	200 after = (read_dma_value(context->aregs[7]/2) << 16) \| read_dma_value(context->aregs[7]/2 + 1);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	201 } else if (inst.op == M68K_RTE \|\| inst.op == M68K_RTR) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	202 after = (read_dma_value((context->aregs[7]+2)/2) << 16) \| read_dma_value((context->aregs[7]+2)/2 + 1);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	203 } else if(m68k_is_branch(&inst)) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	204 if (inst.op == M68K_BCC && inst.extra.cond != COND_TRUE) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	205 branch_f = after;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	206 branch_t = m68k_branch_target(&inst, context->dregs, context->aregs) & 0xFFFFFF;
1111 2eb54e24914e Mostly working changes to allow support for multiple emulated system types in main blastem program Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	207 insert_breakpoint(context, branch_t, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	208 } else if(inst.op == M68K_DBCC && inst.extra.cond != COND_FALSE) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	209 branch_t = after;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	210 branch_f = m68k_branch_target(&inst, context->dregs, context->aregs) & 0xFFFFFF;
1111 2eb54e24914e Mostly working changes to allow support for multiple emulated system types in main blastem program Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	211 insert_breakpoint(context, branch_f, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	212 } else {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	213 after = m68k_branch_target(&inst, context->dregs, context->aregs) & 0xFFFFFF;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	214 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	215 }
1111 2eb54e24914e Mostly working changes to allow support for multiple emulated system types in main blastem program Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	216 insert_breakpoint(context, after, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	217
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	218 cont = 1;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	219 expect_break_response = 1;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	220 break;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	221 }
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	222 case 'H':
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	223 if (command[1] == 'g' \|\| command[1] == 'c') {;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	224 //no thread suport, just acknowledge
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	225 gdb_send_command("OK");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	226 } else {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	227 goto not_impl;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	228 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	229 break;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	230 case 'Z': {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	231 uint8_t type = command[1];
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	232 if (type < '2') {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	233 uint32_t address = strtoul(command+3, NULL, 16);
1111 2eb54e24914e Mostly working changes to allow support for multiple emulated system types in main blastem program Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	234 insert_breakpoint(context, address, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	235 bp_def *new_bp = malloc(sizeof(bp_def));
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	236 new_bp->next = breakpoints;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	237 new_bp->address = address;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	238 new_bp->index = bp_index++;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	239 breakpoints = new_bp;
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	240 gdb_send_command("OK");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	241 } else {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	242 //watchpoints are not currently supported
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	243 gdb_send_command("");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	244 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	245 break;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	246 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	247 case 'z': {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	248 uint8_t type = command[1];
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	249 if (type < '2') {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	250 uint32_t address = strtoul(command+3, NULL, 16);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	251 remove_breakpoint(context, address);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	252 bp_def **found = find_breakpoint(&breakpoints, address);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	253 if (*found)
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	254 {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	255 bp_def * to_remove = *found;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	256 *found = to_remove->next;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	257 free(to_remove);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	258 }
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	259 gdb_send_command("OK");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	260 } else {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	261 //watchpoints are not currently supported
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	262 gdb_send_command("");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	263 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	264 break;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	265 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	266 case 'g': {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	267 char * cur = send_buf;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	268 for (int i = 0; i < 8; i++)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	269 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	270 hex_32(context->dregs[i], cur);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	271 cur += 8;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	272 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	273 for (int i = 0; i < 8; i++)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	274 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	275 hex_32(context->aregs[i], cur);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	276 cur += 8;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	277 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	278 hex_32(calc_status(context), cur);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	279 cur += 8;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	280 hex_32(pc, cur);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	281 cur += 8;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	282 *cur = 0;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	283 gdb_send_command(send_buf);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	284 break;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	285 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	286 case 'm': {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	287 char * rest;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	288 uint32_t address = strtoul(command+1, &rest, 16);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	289 uint32_t size = strtoul(rest+1, NULL, 16);
757 483f7e7926a6 More clang warning cleanup Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	290 if (size > (sizeof(send_buf)-1)/2) {
483f7e7926a6 More clang warning cleanup Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	291 size = (sizeof(send_buf)-1)/2;
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	292 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	293 char *cur = send_buf;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	294 while (size)
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	295 {
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1329 diff changeset	296 hex_8(m68k_read_byte(context, address), cur);
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	297 cur += 2;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	298 address++;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	299 size--;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	300 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	301 *cur = 0;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	302 gdb_send_command(send_buf);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	303 break;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	304 }
530 92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	305 case 'M': {
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	306 char * rest;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	307 uint32_t address = strtoul(command+1, &rest, 16);
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	308 uint32_t size = strtoul(rest+1, &rest, 16);
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	309
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	310 char *cur = rest+1;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	311 while (size)
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	312 {
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	313 char tmp[3];
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	314 tmp[0] = *(cur++);
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	315 tmp[1] = *(cur++);
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	316 tmp[2] = 0;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1329 diff changeset	317 m68k_write_byte(context, address, strtoul(tmp, NULL, 16));
530 92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	318 address++;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	319 size--;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	320 }
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	321 gdb_send_command("OK");
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	322 break;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	323 }
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	324 case 'X':
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	325 //binary transfers aren't supported currently as I don't feel like dealing with the escaping
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	326 gdb_send_command("");
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	327 break;
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	328 case 'p': {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	329 unsigned long reg = strtoul(command+1, NULL, 16);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	330
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	331 if (reg < 8) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	332 hex_32(context->dregs[reg], send_buf);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	333 } else if (reg < 16) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	334 hex_32(context->aregs[reg-8], send_buf);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	335 } else if (reg == 16) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	336 hex_32(calc_status(context), send_buf);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	337 } else if (reg == 17) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	338 hex_32(pc, send_buf);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	339 } else {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	340 send_buf[0] = 0;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	341 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	342 send_buf[8] = 0;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	343 gdb_send_command(send_buf);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	344 break;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	345 }
526 6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	346 case 'P': {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	347 char *after = NULL;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	348 unsigned long reg = strtoul(command+1, &after, 16);
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	349 uint32_t value = strtoul(after+1, NULL, 16);
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	350
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	351 if (reg < 8) {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	352 context->dregs[reg] = value;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	353 } else if (reg < 16) {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	354 context->aregs[reg-8] = value;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	355 } else if (reg == 16) {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	356 update_status(context, value);
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	357 } else {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	358 //supporting updates to PC is going to be a pain
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	359 gdb_send_command("E01");
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	360 break;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	361 }
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	362 gdb_send_command("OK");
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	363 break;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	364 }
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	365 case 'q':
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	366 if (!memcmp("Supported", command+1, strlen("Supported"))) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	367 sprintf(send_buf, "PacketSize=%X", (int)bufsize);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	368 gdb_send_command(send_buf);
1166 73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	369 } else if (!memcmp("Attached", command+1, strlen("Attached"))) {
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	370 //not really meaningful for us, but saying we spawned a new process
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	371 //is probably closest to the truth
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	372 gdb_send_command("0");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	373 } else if (!memcmp("Offsets", command+1, strlen("Offsets"))) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	374 //no relocations, so offsets are all 0
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	375 gdb_send_command("Text=0;Data=0;Bss=0");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	376 } else if (!memcmp("Symbol", command+1, strlen("Symbol"))) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	377 gdb_send_command("");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	378 } else if (!memcmp("TStatus", command+1, strlen("TStatus"))) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	379 //TODO: actual tracepoint support
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	380 gdb_send_command("T0;tnotrun:0");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	381 } else if (!memcmp("TfV", command+1, strlen("TfV")) \|\| !memcmp("TfP", command+1, strlen("TfP"))) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	382 //TODO: actual tracepoint support
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	383 gdb_send_command("");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	384 } else if (command[1] == 'C') {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	385 //we only support a single thread currently, so send 1
1166 73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	386 gdb_send_command("QC1");
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	387 } else if (!strcmp("fThreadInfo", command + 1)) {
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	388 //we only support a single thread currently, so send 1
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	389 gdb_send_command("m1");
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	390 } else if (!strcmp("sThreadInfo", command + 1)) {
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	391 gdb_send_command("l");
1963 495569c1dc61 Add support for printing a byte from memory in native debugger. Add stubs for GDB commands qThreadExtraInfo and qP Eric Fry <yuv422@users.noreply.github.com> parents: 1949 diff changeset	392 } else if (!memcmp("ThreadExtraInfo", command+1, strlen("ThreadExtraInfo"))) {
495569c1dc61 Add support for printing a byte from memory in native debugger. Add stubs for GDB commands qThreadExtraInfo and qP Eric Fry <yuv422@users.noreply.github.com> parents: 1949 diff changeset	393 gdb_send_command("");
495569c1dc61 Add support for printing a byte from memory in native debugger. Add stubs for GDB commands qThreadExtraInfo and qP Eric Fry <yuv422@users.noreply.github.com> parents: 1949 diff changeset	394 } else if (command[1] == 'P') {
495569c1dc61 Add support for printing a byte from memory in native debugger. Add stubs for GDB commands qThreadExtraInfo and qP Eric Fry <yuv422@users.noreply.github.com> parents: 1949 diff changeset	395 gdb_send_command("");
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	396 } else {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	397 goto not_impl;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	398 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	399 break;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	400 case 'v':
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	401 if (!memcmp("Cont?", command+1, strlen("Cont?"))) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	402 gdb_send_command("vCont;c;C;s;S");
1166 73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	403 } else if (!strcmp("MustReplyEmpty", command + 1)) {
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	404 gdb_send_command("");
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	405 } else if (!memcmp("Cont;", command+1, strlen("Cont;"))) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	406 switch (*(command + 1 + strlen("Cont;")))
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	407 {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	408 case 'c':
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	409 case 'C':
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	410 //might be interesting to have continue with signal fire a
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	411 //trap exception or something, but for no we'll treat it as
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	412 //a normal continue
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	413 cont = 1;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	414 expect_break_response = 1;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	415 break;
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	416 case 's':
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	417 case 'S': {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	418 m68kinst inst;
801 092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	419 genesis_context *gen = context->system;
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	420 uint16_t * pc_ptr = get_native_pointer(pc, (void **)context->mem_pointers, &context->options->gen);
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	421 if (!pc_ptr) {
792 724bbec47f86 Use a new fatal_error function instead of calling fprintf and exit for fatal errors. This new function more gracefully handles the case in which BlastEm was not started from a terminal or disconnected from ther terminal (Windows). Michael Pavone <pavone@retrodev.com> parents: 757 diff changeset	422 fatal_error("Entered gdb remote debugger stub at address %X\n", pc);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	423 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	424 uint16_t * after_pc = m68k_decode(pc_ptr, &inst, pc & 0xFFFFFF);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	425 uint32_t after = pc + (after_pc-pc_ptr)*2;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	426
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	427 if (inst.op == M68K_RTS) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	428 after = (read_dma_value(context->aregs[7]/2) << 16) \| read_dma_value(context->aregs[7]/2 + 1);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	429 } else if (inst.op == M68K_RTE \|\| inst.op == M68K_RTR) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	430 after = (read_dma_value((context->aregs[7]+2)/2) << 16) \| read_dma_value((context->aregs[7]+2)/2 + 1);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	431 } else if(m68k_is_branch(&inst)) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	432 if (inst.op == M68K_BCC && inst.extra.cond != COND_TRUE) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	433 branch_f = after;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	434 branch_t = m68k_branch_target(&inst, context->dregs, context->aregs) & 0xFFFFFF;
1111 2eb54e24914e Mostly working changes to allow support for multiple emulated system types in main blastem program Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	435 insert_breakpoint(context, branch_t, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	436 } else if(inst.op == M68K_DBCC && inst.extra.cond != COND_FALSE) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	437 branch_t = after;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	438 branch_f = m68k_branch_target(&inst, context->dregs, context->aregs) & 0xFFFFFF;
1111 2eb54e24914e Mostly working changes to allow support for multiple emulated system types in main blastem program Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	439 insert_breakpoint(context, branch_f, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	440 } else {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	441 after = m68k_branch_target(&inst, context->dregs, context->aregs) & 0xFFFFFF;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	442 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	443 }
1111 2eb54e24914e Mostly working changes to allow support for multiple emulated system types in main blastem program Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	444 insert_breakpoint(context, after, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	445
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	446 cont = 1;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	447 expect_break_response = 1;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	448 break;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	449 }
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	450 default:
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	451 goto not_impl;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	452 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	453 } else {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	454 goto not_impl;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	455 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	456 break;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	457 case '?':
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	458 gdb_send_command("S05");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	459 break;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	460 default:
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	461 goto not_impl;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	462
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	463 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	464 return;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	465 not_impl:
792 724bbec47f86 Use a new fatal_error function instead of calling fprintf and exit for fatal errors. This new function more gracefully handles the case in which BlastEm was not started from a terminal or disconnected from ther terminal (Windows). Michael Pavone <pavone@retrodev.com> parents: 757 diff changeset	466 fatal_error("Command %s is not implemented, exiting...\n", command);
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	467 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	468
1329 85a90964b557 Fix interaction between 68K debugger and instruction retranslation due to self modifying code or bank switching Michael Pavone <pavone@retrodev.com> parents: 1245 diff changeset	469 void gdb_debug_enter(m68k_context * context, uint32_t pc)
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	470 {
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	471 dfprintf(stderr, "Entered debugger at address %X\n", pc);
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	472 if (expect_break_response) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	473 gdb_send_command("S05");
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	474 expect_break_response = 0;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	475 }
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	476 if ((pc & 0xFFFFFF) == branch_t) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	477 bp_def ** f_bp = find_breakpoint(&breakpoints, branch_f);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	478 if (!*f_bp) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	479 remove_breakpoint(context, branch_f);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	480 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	481 branch_t = branch_f = 0;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	482 } else if((pc & 0xFFFFFF) == branch_f) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	483 bp_def ** t_bp = find_breakpoint(&breakpoints, branch_t);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	484 if (!*t_bp) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	485 remove_breakpoint(context, branch_t);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	486 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	487 branch_t = branch_f = 0;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	488 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	489 //Check if this is a user set breakpoint, or just a temporary one
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	490 bp_def ** this_bp = find_breakpoint(&breakpoints, pc & 0xFFFFFF);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	491 if (!*this_bp) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	492 remove_breakpoint(context, pc & 0xFFFFFF);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	493 }
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	494 resume_pc = pc;
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	495 cont = 0;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	496 uint8_t partial = 0;
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	497 while(!cont)
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	498 {
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	499 if (!curbuf) {
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	500 int numread = GDB_READ(GDB_IN_FD, buf, bufsize);
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	501 if (numread < 0) {
804 59e664fa2da8 Fix a search/replace bug from the old Win32 GDB remote debugging work and replace some more print+exit combos with fatal_error Michael Pavone <pavone@retrodev.com> parents: 803 diff changeset	502 fatal_error("Failed to read on GDB input file descriptor\n");
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	503 }
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	504 dfprintf(stderr, "read %d bytes\n", numread);
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	505 curbuf = buf;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	506 end = buf + numread;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	507 } else if (partial) {
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	508 if (curbuf != buf) {
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	509 memmove(curbuf, buf, end-curbuf);
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	510 end -= curbuf - buf;
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	511 }
1245 42fb3ee1e92c Fix direct usage of read rather than GDB_READ in gdb_remote.c Michael Pavone <pavone@retrodev.com> parents: 1189 diff changeset	512 int numread = GDB_READ(GDB_IN_FD, end, bufsize - (end-buf));
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	513 end += numread;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	514 curbuf = buf;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	515 }
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	516 for (; curbuf < end; curbuf++)
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	517 {
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	518 if (*curbuf == '$')
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	519 {
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	520 curbuf++;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	521 char * start = curbuf;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	522 while (curbuf < end && *curbuf != '#') {
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	523 curbuf++;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	524 }
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	525 if (*curbuf == '#') {
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	526 //check to make sure we've received the checksum bytes
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	527 if (end-curbuf >= 2) {
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	528 //TODO: verify checksum
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	529 //Null terminate payload
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	530 *curbuf = 0;
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	531 //send acknowledgement
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	532 if (GDB_WRITE(GDB_OUT_FD, "+", 1) < 1) {
792 724bbec47f86 Use a new fatal_error function instead of calling fprintf and exit for fatal errors. This new function more gracefully handles the case in which BlastEm was not started from a terminal or disconnected from ther terminal (Windows). Michael Pavone <pavone@retrodev.com> parents: 757 diff changeset	533 fatal_error("Error writing to stdout\n");
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	534 }
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	535 gdb_run_command(context, pc, start);
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	536 curbuf += 2;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	537 }
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	538 } else {
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	539 curbuf--;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	540 partial = 1;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	541 break;
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	542 }
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	543 } else {
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	544 dfprintf(stderr, "Ignoring character %c\n", *curbuf);
505 b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	545 }
b7b7a1cab44a The local clone on my laptop got messed up and some changes had not been pushed. This commit represents the status of the working copy from that clone. It unfortunately contains some changes that I did not intend to commit yet, but this seems like the best option at the moment. Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	546 }
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	547 if (curbuf == end) {
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	548 curbuf = NULL;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	549 }
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	550 }
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	551 }
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	552
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	553 void gdb_remote_init(void)
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	554 {
515 1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	555 buf = malloc(INITIAL_BUFFER_SIZE);
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	556 curbuf = NULL;
1495179d6737 Initial GDB remote debugging support. Lacks some features, but breakpoints and basic inspection of registers and memory work. Mike Pavone <pavone@retrodev.com> parents: 505 diff changeset	557 bufsize = INITIAL_BUFFER_SIZE;
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	558 #ifdef _WIN32
1949 5a76a7373823 Get WIP net play code compiling on Windows and cleanup some unistd.h includes Michael Pavone <pavone@retrodev.com> parents: 1945 diff changeset	559 socket_init();
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	560
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	561 struct addrinfo request, *result;
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	562 memset(&request, 0, sizeof(request));
1189 75ba222877f7 Force IPV4 for GDB remote debugging on Windows. Bind to localhost instead of unspecified address since listening on external ports probably isn't a good idea in the general case Michael Pavone <pavone@retrodev.com> parents: 1166 diff changeset	563 request.ai_family = AF_INET;
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	564 request.ai_socktype = SOCK_STREAM;
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	565 request.ai_flags = AI_PASSIVE;
1189 75ba222877f7 Force IPV4 for GDB remote debugging on Windows. Bind to localhost instead of unspecified address since listening on external ports probably isn't a good idea in the general case Michael Pavone <pavone@retrodev.com> parents: 1166 diff changeset	566 getaddrinfo("localhost", "1234", &request, &result);
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	567
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	568 int listen_sock = socket(result->ai_family, result->ai_socktype, result->ai_protocol);
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	569 if (listen_sock < 0) {
804 59e664fa2da8 Fix a search/replace bug from the old Win32 GDB remote debugging work and replace some more print+exit combos with fatal_error Michael Pavone <pavone@retrodev.com> parents: 803 diff changeset	570 fatal_error("Failed to open GDB remote debugging socket");
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	571 }
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	572 if (bind(listen_sock, result->ai_addr, result->ai_addrlen) < 0) {
804 59e664fa2da8 Fix a search/replace bug from the old Win32 GDB remote debugging work and replace some more print+exit combos with fatal_error Michael Pavone <pavone@retrodev.com> parents: 803 diff changeset	573 fatal_error("Failed to bind GDB remote debugging socket");
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	574 }
1945 ba7231d2411c Fix addrinfo leak in GDB remote debug support Michael Pavone <pavone@retrodev.com> parents: 1792 diff changeset	575 freeaddrinfo(result);
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	576 if (listen(listen_sock, 1) < 0) {
804 59e664fa2da8 Fix a search/replace bug from the old Win32 GDB remote debugging work and replace some more print+exit combos with fatal_error Michael Pavone <pavone@retrodev.com> parents: 803 diff changeset	577 fatal_error("Failed to listen on GDB remote debugging socket");
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	578 }
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	579 gdb_sock = accept(listen_sock, NULL, NULL);
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	580 if (gdb_sock < 0) {
804 59e664fa2da8 Fix a search/replace bug from the old Win32 GDB remote debugging work and replace some more print+exit combos with fatal_error Michael Pavone <pavone@retrodev.com> parents: 803 diff changeset	581 fatal_error("accept returned an error while listening on GDB remote debugging socket");
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	582 }
1949 5a76a7373823 Get WIP net play code compiling on Windows and cleanup some unistd.h includes Michael Pavone <pavone@retrodev.com> parents: 1945 diff changeset	583 socket_close(listen_sock);
1792 52a47611a273 Avoid printing a bunch of junk to stdout when GDB remote debugging is enabled as this can confuse GDB Michael Pavone <pavone@retrodev.com> parents: 1752 diff changeset	584 #else
52a47611a273 Avoid printing a bunch of junk to stdout when GDB remote debugging is enabled as this can confuse GDB Michael Pavone <pavone@retrodev.com> parents: 1752 diff changeset	585 disable_stdout_messages();
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	586 #endif
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	587 }

Mercurial > repos > blastem

annotate gdb_remote.c @ 2052:3748a2a8a4b7