CVS: blob/src/blob debug.c,1.8,1.9

[Erik M. <er...@us...>]

Update of /cvsroot/blob/blob/src/blob
In directory usw-pr-cvs1:/tmp/cvs-serv19353/src/blob

Modified Files:
	debug.c 
Log Message:
New "call" command by Christopher Hoover.


Index: debug.c
===================================================================
RCS file: /cvsroot/blob/blob/src/blob/debug.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- debug.c	2002/01/03 16:07:17	1.8
+++ debug.c	2002/01/06 15:44:23	1.9
@@ -440,6 +440,71 @@
 static char bitchghelp[] = "bitchg address value {and|or|xor|set|clear}\n";
 __commandlist(BitChange, "bitchg", bitchghelp );
 
+/*********************************************************************
+ * Call
+ *
+ * AUTHOR:		Christopher Hoover <ch...@hp...>
+ * REVISED:
+ *
+ * Jumps to an arbitrary address.
+ *
+ */
+static int Call( int argc, char *argv[] )
+{
+	int		ret		= 0;
+	u32 adr, a = 0, b = 0, c = 0, d = 0;
+	int (*called_fn)(u32, u32, u32, u32);
+
+	if ( argc < 2  || argc > 6 )		ERR( -EINVAL );
+
+	ret = strtou32( argv[1], &adr );
+	if ( ret < 0 )				ERR( -EINVAL );
+
+	if ( argc >= 3 ) {
+		ret = strtou32( argv[2], &a );
+		if ( ret < 0 )			ERR( -EINVAL );
+	}
+	if ( argc >= 4 ) {
+		ret = strtou32( argv[2], &b );
+		if ( ret < 0 )			ERR( -EINVAL );
+	}
+	if ( argc >= 5 ) {
+		ret = strtou32( argv[2], &c );
+		if ( ret < 0 )			ERR( -EINVAL );
+	}
+	if ( argc >= 6) {
+		ret = strtou32( argv[2], &d );
+		if ( ret < 0 )			ERR( -EINVAL );
+	}
+
+	SerialOutputString("Calling function at 0x");
+	SerialOutputHex(adr);
+	SerialOutputString(" ...\n");
+	serial_flush_output();
+
+	called_fn = (int (*)(u32, u32, u32, u32))adr;
+
+	ret = called_fn(a, b, c, d);
+	
+	SerialOutputString("\nReturn value: 0x");
+	SerialOutputHex((u32)ret);
+	serial_write('\n');
+
+	ret = 0;
+
+DONE:
+	if ( ret != 0 ) {
+		perror( ret, __FUNCTION__ );
+	}
+	return ret;
+}
+
+static char callhelp[] = "call address [arg0 [arg1 [arg2 [arg3]]]]\n"
+"Call function at <address> with optional arguments\n";
+
+__commandlist(Call, "call", callhelp);
+
+
 /**********************************************************************
  * static functions
  */