repos/blastem: gdb_remote.c annotate

annotate gdb_remote.c @ 2673:2c8f541af3c5

Get Pico games running with new 68K core

author	Michael Pavone <pavone@retrodev.com>
date	Sat, 08 Mar 2025 21:09:54 -0800
parents	d44fe974fb85
children	7e86ec94c899

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
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	53 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	54 {
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	55 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	56 {
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	57 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	58 *(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	59 }
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 }
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 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	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 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	65 {
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 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	67 *(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	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 }
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 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	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 >> 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	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 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	76 *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	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
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 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	80 {
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 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	82 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	83 {
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 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	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 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	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
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 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	90 {
802 6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	91 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	92 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	93 }
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 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	97 {
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	98 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	99 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	100 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	101 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	102 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	103 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	104 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	105 }
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	106
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	107 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	108 {
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 uint32_t status = context->status << 3;
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	110 #ifdef NEW_CORE
d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	111 //TODO: implement me
d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	112 #else
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	113 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	114 {
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 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	116 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	117 }
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	118 #endif
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	119 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	120 }
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
526 6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	122 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	123 {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	124 context->status = value >> 8;
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	125 #ifdef NEW_CORE
d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	126 //TODO: implement me
d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	127 #else
526 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 }
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	133 #endif
526 6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	134 }
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	135
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	136 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	137 {
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	138 //TODO: share this implementation with builtin debugger
2499 d74d3998482c Make some progress on compiling full emulator with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2398 diff changeset	139 return read_byte(address, (void **)context->mem_pointers, &context->opts->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	140 }
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	141
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	142 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	143 {
801 092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	144 genesis_context *gen = context->system;
530 92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	145 //TODO: Use generated read/write functions so that memory map is properly respected
2499 d74d3998482c Make some progress on compiling full emulator with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2398 diff changeset	146 uint16_t * word = get_native_pointer(address & 0xFFFFFFFE, (void **)context->mem_pointers, &context->opts->gen);
801 092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	147 if (word) {
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	148 if (address & 1) {
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	149 word = (word & 0xFF00) \| value;
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	150 } else {
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	151 word = (word & 0xFF) \| value << 8;
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	152 }
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	153 //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	154 if (address >= 0xE00000) {
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	155 m68k_handle_code_write(address, context);
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	156 }
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	157 return;
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	158 }
092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	159 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	160 gen->zram[address & 0x1FFF] = value;
530 92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	161 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	162 #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	163 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	164 #endif
530 92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	165 return;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	166 } else {
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	167 return;
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 }
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	170
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	171 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	172 {
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	173 char send_buf[512];
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	174 dfprintf(stderr, "Received command %s\n", command);
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	175 debug_root *root = find_root(context);
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	176 if (!root) {
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	177 fatal_error("Could not find debug root for CPU %p\n", context);
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	178 }
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	179 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	180 {
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 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	183 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	184 //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	185 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	186 }
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	187 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	188 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	189 break;
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	190 case 's': {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	191 if (*(command+1) != 0) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	192 //TODO: implement resuming at an arbitrary address
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	193 goto not_impl;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	194 }
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	195 #ifndef NEW_CORE
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	196 m68kinst inst;
801 092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	197 genesis_context *gen = context->system;
2133 8554751f17b5 Remove use of get_native_pointer in 68K instruction decoding in preparation for word RAM interleaving Michael Pavone <pavone@retrodev.com> parents: 2107 diff changeset	198 uint32_t after = m68k_decode(m68k_instruction_fetch, context, &inst, pc & 0xFFFFFF);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	199
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	200 if (inst.op == M68K_RTS) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	201 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	202 } 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	203 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	204 } else if(m68k_is_branch(&inst)) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	205 if (inst.op == M68K_BCC && inst.extra.cond != COND_TRUE) {
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	206 root->branch_f = after;
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	207 root->branch_t = m68k_branch_target(&inst, context->dregs, context->aregs) & 0xFFFFFF;
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	208 insert_breakpoint(context, root->branch_t, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	209 } else if(inst.op == M68K_DBCC && inst.extra.cond != COND_FALSE) {
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	210 root->branch_t = after;
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	211 root->branch_f = m68k_branch_target(&inst, context->dregs, context->aregs) & 0xFFFFFF;
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	212 insert_breakpoint(context, root->branch_f, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	213 } else {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	214 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	215 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	216 }
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	217 insert_breakpoint(context, after, gdb_debug_enter);
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	218 #endif
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	219
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	220 cont = 1;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	221 expect_break_response = 1;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	222 break;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	223 }
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	224 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	225 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	226 //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	227 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	228 } 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	229 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	230 }
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 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	232 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	233 uint8_t type = command[1];
2397 39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	234 char *after_address;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	235 uint32_t address = strtoul(command+3, &after_address, 16);
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	236 uint32_t kind = strtoul(after_address +1, NULL, 16);
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	237 if (type < '2') {
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	238 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	239 bp_def *new_bp = malloc(sizeof(bp_def));
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	240 new_bp->next = root->breakpoints;
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	241 new_bp->address = address;
2361 3350b3c8faa8 Initial implementation of VDP register write breakpoints Michael Pavone <pavone@retrodev.com> parents: 2133 diff changeset	242 new_bp->mask = 0xFFFFFF;
3350b3c8faa8 Initial implementation of VDP register write breakpoints Michael Pavone <pavone@retrodev.com> parents: 2133 diff changeset	243 new_bp->type = BP_TYPE_CPU;
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	244 new_bp->index = root->bp_index++;
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	245 root->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	246 gdb_send_command("OK");
2397 39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	247 } else if (type == '2') {
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	248 m68k_add_watchpoint(context, address, kind);
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	249 bp_def *new_bp = malloc(sizeof(bp_def));
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	250 new_bp->next = root->breakpoints;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	251 new_bp->address = address;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	252 new_bp->mask = kind;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	253 new_bp->type = BP_TYPE_CPU_WATCH;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	254 new_bp->index = root->bp_index++;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	255 root->breakpoints = new_bp;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	256 gdb_send_command("OK");
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	257 } else {
2397 39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	258 //read and access watchpoints are not currently supported
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("");
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 }
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 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	262 }
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 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	264 uint8_t type = command[1];
2397 39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	265 char *after_address;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	266 uint32_t address = strtoul(command+3, &after_address, 16);
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	267 uint32_t kind = strtoul(after_address +1, NULL, 16);
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	268 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	269 remove_breakpoint(context, address);
2361 3350b3c8faa8 Initial implementation of VDP register write breakpoints Michael Pavone <pavone@retrodev.com> parents: 2133 diff changeset	270 bp_def **found = find_breakpoint(&root->breakpoints, address, BP_TYPE_CPU);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	271 if (*found)
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	272 {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	273 bp_def * to_remove = *found;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	274 *found = to_remove->next;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	275 free(to_remove);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	276 }
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	277 gdb_send_command("OK");
2397 39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	278 } else if (type == '2') {
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	279 m68k_remove_watchpoint(context, address, kind);
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	280 bp_def **cur = &root->breakpoints;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	281 while (*cur)
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	282 {
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	283 if ((cur)->type == BP_TYPE_CPU_WATCH && (cur)->address == address && (*cur)->mask == kind) {
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	284 break;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	285 }
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	286 cur = &(*cur)->next;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	287 }
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	288 if (*cur) {
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	289 bp_def to_remove = cur;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	290 *cur = to_remove->next;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	291 free(to_remove);
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	292 }
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	293 gdb_send_command("OK");
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	294 } else {
2397 39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	295 //read and access watchpoints are not currently supported
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	296 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	297 }
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 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	299 }
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 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	301 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	302 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	303 {
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 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	305 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	306 }
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	307 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	308 {
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	309 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	310 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	311 }
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	312 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	313 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	314 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	315 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	316 *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	317 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	318 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	319 }
2398 8445e814d495 Implement gdb remote kill command Michael Pavone <pavone@retrodev.com> parents: 2397 diff changeset	320 case 'k':
8445e814d495 Implement gdb remote kill command Michael Pavone <pavone@retrodev.com> parents: 2397 diff changeset	321 exit(0);
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	322 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	323 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	324 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	325 uint32_t size = strtoul(rest+1, NULL, 16);
757 483f7e7926a6 More clang warning cleanup Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	326 if (size > (sizeof(send_buf)-1)/2) {
483f7e7926a6 More clang warning cleanup Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	327 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	328 }
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 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	330 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	331 {
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	332 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	333 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	334 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	335 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	336 }
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 *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	338 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	339 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	340 }
530 92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	341 case 'M': {
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	342 char * rest;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	343 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	344 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	345
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	346 char *cur = rest+1;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	347 while (size)
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	348 {
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	349 char tmp[3];
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	350 tmp[0] = *(cur++);
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	351 tmp[1] = *(cur++);
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	352 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	353 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	354 address++;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	355 size--;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	356 }
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	357 gdb_send_command("OK");
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	358 break;
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	359 }
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	360 case 'X':
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	361 //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	362 gdb_send_command("");
92606a032d56 Implement memory writes in GDB remote debugging stub Mike Pavone <pavone@retrodev.com> parents: 526 diff changeset	363 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	364 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	365 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	366
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 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	368 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	369 } 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	370 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	371 } 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	372 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	373 } 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	374 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	375 } 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	376 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	377 }
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 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	379 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	380 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	381 }
526 6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	382 case 'P': {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	383 char *after = NULL;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	384 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	385 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	386
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	387 if (reg < 8) {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	388 context->dregs[reg] = value;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	389 } else if (reg < 16) {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	390 context->aregs[reg-8] = value;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	391 } else if (reg == 16) {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	392 update_status(context, value);
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	393 } else {
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	394 //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	395 gdb_send_command("E01");
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	396 break;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	397 }
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	398 gdb_send_command("OK");
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	399 break;
6fe73296938a Support setting registers in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 525 diff changeset	400 }
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	401 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	402 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	403 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	404 gdb_send_command(send_buf);
1166 73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	405 } 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	406 //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	407 //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	408 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	409 } 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	410 //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	411 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	412 } 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	413 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	414 } 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	415 //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	416 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	417 } 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	418 //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	419 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	420 } 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	421 //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	422 gdb_send_command("QC1");
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	423 } else if (!strcmp("fThreadInfo", command + 1)) {
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	424 //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	425 gdb_send_command("m1");
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	426 } else if (!strcmp("sThreadInfo", command + 1)) {
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	427 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	428 } 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	429 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	430 } 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	431 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	432 } 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	433 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	434 }
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	435 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	436 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	437 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	438 gdb_send_command("vCont;c;C;s;S");
1166 73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	439 } else if (!strcmp("MustReplyEmpty", command + 1)) {
73e36dac5be7 Fix GDB remote protocol support Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	440 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	441 } 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	442 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	443 {
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	444 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	445 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	446 //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	447 //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	448 //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	449 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	450 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	451 break;
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	452 case 's':
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	453 case 'S': {
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	454 #ifndef NEW_CORE
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	455 m68kinst inst;
801 092524bb2e8f Fix GDB remote debugging support Michael Pavone <pavone@retrodev.com> parents: 792 diff changeset	456 genesis_context *gen = context->system;
2133 8554751f17b5 Remove use of get_native_pointer in 68K instruction decoding in preparation for word RAM interleaving Michael Pavone <pavone@retrodev.com> parents: 2107 diff changeset	457 uint32_t after = m68k_decode(m68k_instruction_fetch, context, &inst, pc & 0xFFFFFF);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	458
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	459 if (inst.op == M68K_RTS) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	460 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	461 } 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	462 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	463 } else if(m68k_is_branch(&inst)) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	464 if (inst.op == M68K_BCC && inst.extra.cond != COND_TRUE) {
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	465 root->branch_f = after;
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	466 root->branch_t = m68k_branch_target(&inst, context->dregs, context->aregs) & 0xFFFFFF;
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	467 insert_breakpoint(context, root->branch_t, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	468 } else if(inst.op == M68K_DBCC && inst.extra.cond != COND_FALSE) {
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	469 root->branch_t = after;
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	470 root->branch_f = m68k_branch_target(&inst, context->dregs, context->aregs) & 0xFFFFFF;
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	471 insert_breakpoint(context, root->branch_f, gdb_debug_enter);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	472 } else {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	473 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	474 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	475 }
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	476 insert_breakpoint(context, after, gdb_debug_enter);
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2499 diff changeset	477 #endif
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	478
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	479 cont = 1;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	480 expect_break_response = 1;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	481 break;
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	482 }
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	483 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	484 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	485 }
2398 8445e814d495 Implement gdb remote kill command Michael Pavone <pavone@retrodev.com> parents: 2397 diff changeset	486 } else if (!memcmp("Kill;", command+1, strlen("Kill;"))) {
8445e814d495 Implement gdb remote kill command Michael Pavone <pavone@retrodev.com> parents: 2397 diff changeset	487 exit(0);
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	488 } 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	489 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	490 }
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	491 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	492 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	493 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	494 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	495 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	496 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	497
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	498 }
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	499 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	500 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	501 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	502 }
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	503
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	504 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	505 {
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	506 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	507 if (expect_break_response) {
2397 39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	508 if (context->wp_hit) {
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	509 context->wp_hit = 0;
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	510 char reply[128];
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	511 snprintf(reply, sizeof(reply), "T05watch:%X;", context->wp_hit_address);
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	512 gdb_send_command(reply);
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	513 } else {
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	514 gdb_send_command("S05");
39a009aea113 Implement watchpoints in gdb remote protocol Michael Pavone <pavone@retrodev.com> parents: 2361 diff changeset	515 }
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	516 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	517 }
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	518 debug_root *root = find_root(context);
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	519 if (!root) {
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	520 fatal_error("Could not find debug root for CPU %p\n", context);
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	521 }
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	522 if ((pc & 0xFFFFFF) == root->branch_t) {
2361 3350b3c8faa8 Initial implementation of VDP register write breakpoints Michael Pavone <pavone@retrodev.com> parents: 2133 diff changeset	523 bp_def ** f_bp = find_breakpoint(&root->breakpoints, root->branch_f, BP_TYPE_CPU);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	524 if (!*f_bp) {
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	525 remove_breakpoint(context, root->branch_f);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	526 }
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	527 root->branch_t = root->branch_f = 0;
f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	528 } else if((pc & 0xFFFFFF) == root->branch_f) {
2361 3350b3c8faa8 Initial implementation of VDP register write breakpoints Michael Pavone <pavone@retrodev.com> parents: 2133 diff changeset	529 bp_def ** t_bp = find_breakpoint(&root->breakpoints, root->branch_t, BP_TYPE_CPU);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	530 if (!*t_bp) {
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	531 remove_breakpoint(context, root->branch_t);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	532 }
2107 f80c6111e1ae Move some debugger state to a per-CPU structure. Add m command for returning to main CPU from sub CPU Michael Pavone <pavone@retrodev.com> parents: 1965 diff changeset	533 root->branch_t = root->branch_f = 0;
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	534 }
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	535 //Check if this is a user set breakpoint, or just a temporary one
2361 3350b3c8faa8 Initial implementation of VDP register write breakpoints Michael Pavone <pavone@retrodev.com> parents: 2133 diff changeset	536 bp_def ** this_bp = find_breakpoint(&root->breakpoints, pc & 0xFFFFFF, BP_TYPE_CPU);
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	537 if (!*this_bp) {
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	538 remove_breakpoint(context, pc & 0xFFFFFF);
62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	539 }
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	540 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	541 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	542 uint8_t partial = 0;
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	543 while(!cont)
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	544 {
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 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	546 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	547 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	548 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	549 }
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	550 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	551 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	552 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	553 } 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	554 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	555 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	556 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	557 }
1245 42fb3ee1e92c Fix direct usage of read rather than GDB_READ in gdb_remote.c Michael Pavone <pavone@retrodev.com> parents: 1189 diff changeset	558 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	559 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	560 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	561 }
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	562 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	563 {
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	564 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	565 {
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	566 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	567 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	568 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	569 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	570 }
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	571 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	572 //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	573 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	574 //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	575 //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	576 *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	577 //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	578 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	579 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	580 }
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	581 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	582 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	583 }
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	584 } 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	585 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	586 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	587 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	588 }
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	589 } else {
525 62860044337d Support single stepping in gdb remote debugger Mike Pavone <pavone@retrodev.com> parents: 515 diff changeset	590 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	591 }
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	592 }
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	593 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	594 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	595 }
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	596 }
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	597 }
249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	598
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	599 void gdb_remote_init(void)
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	600 {
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	601 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	602 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	603 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	604 #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	605 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	606
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	607 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	608 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	609 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	610 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	611 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	612 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	613
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	614 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	615 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	616 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	617 }
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	618 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	619 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	620 }
1945 ba7231d2411c Fix addrinfo leak in GDB remote debug support Michael Pavone <pavone@retrodev.com> parents: 1792 diff changeset	621 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	622 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	623 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	624 }
6811f601008f Old changes for GDB remote debugging on Windows I forgot to commit Michael Pavone <pavone@retrodev.com> parents: 565 diff changeset	625 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	626 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	627 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	628 }
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	629 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	630 #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	631 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	632 #endif
456 249d24973682 Initial work on GDB remote debugging support Mike Pavone <pavone@retrodev.com> parents: diff changeset	633 }

Mercurial > repos > blastem

annotate gdb_remote.c @ 2673:2c8f541af3c5