# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1392276122 28800
# Node ID 92606a032d567c7ae6e690fe66f2773b0c3e78d9
# Parent  6a648d944311329f56cbc9037e304f45a1629a7a
Implement memory writes in GDB remote debugging stub

diff -r 6a648d944311 -r 92606a032d56 gdb_remote.c
--- a/gdb_remote.c	Wed Feb 12 23:21:47 2014 -0800
+++ b/gdb_remote.c	Wed Feb 12 23:22:02 2014 -0800
@@ -121,6 +121,8 @@
 		word = context->mem_pointers[0] + address/2;
 	} else if (address >= 0xE00000) {
 		word = context->mem_pointers[1] + (address & 0xFFFF)/2;
+	} else if (address >= 0xA00000 && address < 0xA04000) {
+		return z80_ram[address & 0x1FFF];
 	} else {
 		return 0;
 	}
@@ -130,6 +132,31 @@
 	return *word >> 8;
 }
 
+void write_byte(m68k_context * context, uint32_t address, uint8_t value)
+{
+	uint16_t * word;
+	//TODO: Use generated read/write functions so that memory map is properly respected
+	if (address < 0x400000) {
+		//TODO: Invalidate translated code
+		word = context->mem_pointers[0] + address/2;
+	} else if (address >= 0xE00000) {
+		m68k_handle_code_write(address & 0xFFFF, context);
+		word = context->mem_pointers[1] + (address & 0xFFFF)/2;
+	} else if (address >= 0xA00000 && address < 0xA04000) {
+		z80_ram[address & 0x1FFF] = value;
+		genesis_context * gen = context->system;
+		z80_handle_code_write(address & 0x1FFF, gen->z80);
+		return;
+	} else {
+		return;
+	}
+	if (address & 1) {
+		*word = (*word & 0xFF00) | value;
+	} else {
+		*word = (*word & 0xFF) | value << 8;
+	}
+}
+
 void gdb_run_command(m68k_context * context, uint32_t pc, char * command)
 {
 	char send_buf[512];
@@ -269,6 +296,29 @@
 		gdb_send_command(send_buf);
 		break;
 	}
+	case 'M': {
+		char * rest;
+		uint32_t address = strtoul(command+1, &rest, 16);
+		uint32_t size = strtoul(rest+1, &rest, 16);
+
+		char *cur = rest+1;
+		while (size)
+		{
+			char tmp[3];
+			tmp[0] = *(cur++);
+			tmp[1] = *(cur++);
+			tmp[2] = 0;
+			write_byte(context, address, strtoul(tmp, NULL, 16));
+			address++;
+			size--;
+		}
+		gdb_send_command("OK");
+		break;
+	}
+	case 'X':
+		//binary transfers aren't supported currently as I don't feel like dealing with the escaping
+		gdb_send_command("");
+		break;
 	case 'p': {
 		unsigned long reg = strtoul(command+1, NULL, 16);