interesting
/
riscv-openocd
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix array2mem/mem2array when used as a "method" on a target. 

git-svn-id: svn://svn.berlios.de/openocd/trunk@1801 b42882b7-edfa-0310-969c-e2dbd0fdcd60
This commit is contained in:
oharboe 2009-05-17 13:00:36 +00:00
parent 231a71b7fb
commit 41826d5bd9
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/target/target.c
View File

@ -1285,8 +1285,8 @@ int target_register_user_commands(struct command_context_s *cmd_ctx)
/* script procedures */ /* script procedures */
register_command(cmd_ctx, NULL, "profile", handle_profile_command, COMMAND_EXEC, "profiling samples the CPU PC"); register_command(cmd_ctx, NULL, "profile", handle_profile_command, COMMAND_EXEC, "profiling samples the CPU PC");
register_jim(cmd_ctx, "ocd_mem2array", jim_mem2array, "read memory and return as a TCL array for script processing"); register_jim(cmd_ctx, "ocd_mem2array", jim_mem2array, "read memory and return as a TCL array for script processing <ARRAYNAME> <WIDTH=32/16/8> <ADDRESS> <COUNT>");
register_jim(cmd_ctx, "ocd_array2mem", jim_array2mem, "convert a TCL array to memory locations and write the values"); register_jim(cmd_ctx, "ocd_array2mem", jim_array2mem, "convert a TCL array to memory locations and write the values <ARRAYNAME> <WIDTH=32/16/8> <ADDRESS> <COUNT>");
register_command(cmd_ctx, NULL, "fast_load_image", handle_fast_load_image_command, COMMAND_ANY, register_command(cmd_ctx, NULL, "fast_load_image", handle_fast_load_image_command, COMMAND_ANY,
"same args as load_image, image stored in memory - mainly for profiling purposes"); "same args as load_image, image stored in memory - mainly for profiling purposes");
@ -2721,7 +2721,7 @@ static int jim_mem2array(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
return JIM_ERR; return JIM_ERR;
} }
return target_mem2array(interp, target, argc,argv); return target_mem2array(interp, target, argc-1, argv+1);
} }
static int target_mem2array(Jim_Interp *interp, target_t *target, int argc, Jim_Obj *const *argv) static int target_mem2array(Jim_Interp *interp, target_t *target, int argc, Jim_Obj *const *argv)
@ -2742,25 +2742,25 @@ static int target_mem2array(Jim_Interp *interp, target_t *target, int argc, Jim_
* argv[3] = memory address * argv[3] = memory address
* argv[4] = count of times to read * argv[4] = count of times to read
*/ */
if (argc != 5) { if (argc != 4) {
Jim_WrongNumArgs(interp, 1, argv, "varname width addr nelems"); Jim_WrongNumArgs(interp, 1, argv, "varname width addr nelems");
return JIM_ERR; return JIM_ERR;
} }
varname = Jim_GetString(argv[1], &len); varname = Jim_GetString(argv[0], &len);
/* given "foo" get space for worse case "foo(%d)" .. add 20 */ /* given "foo" get space for worse case "foo(%d)" .. add 20 */
e = Jim_GetLong(interp, argv[2], &l); e = Jim_GetLong(interp, argv[1], &l);
width = l; width = l;
if (e != JIM_OK) { if (e != JIM_OK) {
return e; return e;
} }
e = Jim_GetLong(interp, argv[3], &l); e = Jim_GetLong(interp, argv[2], &l);
addr = l; addr = l;
if (e != JIM_OK) { if (e != JIM_OK) {
return e; return e;
} }
e = Jim_GetLong(interp, argv[4], &l); e = Jim_GetLong(interp, argv[3], &l);
len = l; len = l;
if (e != JIM_OK) { if (e != JIM_OK) {
return e; return e;
@ -2903,7 +2903,7 @@ static int jim_array2mem(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
return JIM_ERR; return JIM_ERR;
} }
return target_array2mem( interp,target, argc, argv ); return target_array2mem( interp,target, argc-1, argv+1 );
} }
static int target_array2mem(Jim_Interp *interp, target_t *target, int argc, Jim_Obj *const *argv) static int target_array2mem(Jim_Interp *interp, target_t *target, int argc, Jim_Obj *const *argv)
@ -2924,25 +2924,25 @@ static int target_array2mem(Jim_Interp *interp, target_t *target, int argc, Jim_
* argv[3] = memory address * argv[3] = memory address
* argv[4] = count to write * argv[4] = count to write
*/ */
if (argc != 5) { if (argc != 4) {
Jim_WrongNumArgs(interp, 1, argv, "varname width addr nelems"); Jim_WrongNumArgs(interp, 1, argv, "varname width addr nelems");
return JIM_ERR; return JIM_ERR;
} }
varname = Jim_GetString(argv[1], &len); varname = Jim_GetString(argv[0], &len);
/* given "foo" get space for worse case "foo(%d)" .. add 20 */ /* given "foo" get space for worse case "foo(%d)" .. add 20 */
e = Jim_GetLong(interp, argv[2], &l); e = Jim_GetLong(interp, argv[1], &l);
width = l; width = l;
if (e != JIM_OK) { if (e != JIM_OK) {
return e; return e;
} }
e = Jim_GetLong(interp, argv[3], &l); e = Jim_GetLong(interp, argv[2], &l);
addr = l; addr = l;
if (e != JIM_OK) { if (e != JIM_OK) {
return e; return e;
} }
e = Jim_GetLong(interp, argv[4], &l); e = Jim_GetLong(interp, argv[3], &l);
len = l; len = l;
if (e != JIM_OK) { if (e != JIM_OK) {
return e; return e;