interesting
/
riscv-openocd
mirror of https://github.com/riscv/riscv-openocd.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

minor cleanup 

git-svn-id: svn://svn.berlios.de/openocd/trunk@1149 b42882b7-edfa-0310-969c-e2dbd0fdcd60
This commit is contained in:
oharboe 2008-11-10 08:33:03 +00:00
parent d30b94d8df
commit 0bbe570882
3 changed files with 7 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/helper/startup.tcl
View File

@ -21,19 +21,6 @@ proc get_help_text {} {
return $ocd_helptext
}
# Production command
# FIX!!! need to figure out how to feed back relevant output
# from e.g. "flash banks" command...
proc board_produce {filename serialnumber} {
openocd "reset init"
openocd "flash write_image erase $filename [flash] bin"]]
openocd "verify_image $filename [flash] bin"]]
echo "Successfully ran production procedure"
}
proc board_test {} {
echo "Production test not implemented"
}
# Show flash in human readable form
# This is an example of a human readable form of a low level fn
@ -277,18 +264,18 @@ proc ocd_process_reset { MODE } {
proc production_info {} {
return "Imagine an explanation here..."
}
add_help_text production_info "Displays information on production procedure for target script"
add_help_text production_info "Displays information on production procedure for target script. Implement this procedure in target script."
proc production {firmwarefile serialnumber} {
puts "Imagine production procedure running successfully. Programmed $firmwarefile with serial number $serialnumber"
}
add_help_text production "Runs production procedure. Throws exception if procedure failed. Prints progress messages."
add_help_text production "<serialnumber> - Runs production procedure. Throws exception if procedure failed. Prints progress messages. Implement this procedure in the target script."
proc production_test {} {
puts "Imagine nifty test procedure having run to completion here."
}
add_help_text production "Runs test procedure. Throws exception if procedure failed. Prints progress messages."
add_help_text production "Runs test procedure. Throws exception if procedure failed. Prints progress messages. Implement in target script."
proc load {args} {
return [eval "load_image $args"]

2
src/server/gdb_server.c
View File

@ -2184,7 +2184,7 @@ int handle_gdb_port_command(struct command_context_s *cmd_ctx, char *cmd, char *
{
if (argc == 0)
{
command_print(cmd_ctx, "gdb_port: %ld", gdb_port);
command_print(cmd_ctx, "%d", gdb_port);
return ERROR_OK;
}

3
src/server/telnet_server.c
View File

@ -637,7 +637,10 @@ int telnet_register_commands(command_context_t *command_context)
int handle_telnet_port_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc)
{
if (argc == 0)
{
command_print(cmd_ctx, "%d", telnet_port);
return ERROR_OK;
}
telnet_port = strtoul(args[0], NULL, 0);