# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1491359474 25200
# Node ID ae932ca282821f5007641cbdd102fb936c53bf21
# Parent  b27d7bf1107ea1b60047345bdfccb8803328bd2a
Allow a .l suffix to a memory print command to allow fetching and printing a longword

diff -r b27d7bf1107e -r ae932ca28282 debug.c
--- a/debug.c	Mon Apr 03 20:48:13 2017 -0700
+++ b/debug.c	Tue Apr 04 19:31:14 2017 -0700
@@ -145,12 +145,21 @@
 		genesis_context *gen = context->system;
 		value = gen->vdp->frame;
 	} else if ((param[0] == '0' && param[1] == 'x') || param[0] == '$') {
-		uint32_t p_addr = strtol(param+(param[0] == '0' ? 2 : 1), NULL, 16);
-		value = m68k_read_word(p_addr, context);
+		char *after;
+		uint32_t p_addr = strtol(param+(param[0] == '0' ? 2 : 1), &after, 16);
+		if (after[0] == '.' && after[1] == 'l') {
+			value = m68k_read_long(p_addr, context);
+		} else {
+			value = m68k_read_word(p_addr, context);
+		}
 	} else if(param[0] == '(' && (param[1] == 'a' || param[1] == 'd') && param[2] >= '0' && param[2] <= '7' && param[3] == ')') {
 		uint8_t reg = param[2] - '0';
 		uint32_t p_addr = param[1] == 'a' ? context->aregs[reg] : context->dregs[reg];
-		value = m68k_read_word(p_addr, context);
+		if (param[4] == '.' && param[5] == 'l') {
+			value = m68k_read_long(p_addr, context);
+		} else {
+			value = m68k_read_word(p_addr, context);
+		}
 	} else {
 		fprintf(stderr, "Unrecognized parameter to p: %s\n", param);
 		return;