X-Git-Url: https://review.openocd.org/gitweb?a=blobdiff_plain;f=src%2Ftarget%2Ftarget.c;h=75c41d381f700e7a83e67d9d628d87edfc7d443d;hb=fe732bad94231a34f2180ef367271aa413c093ed;hp=eb93fb7b83dc24756d6bf7ca6b10e552dd98ed32;hpb=f593ff0a3dd08052648da61a75f5ad5a35945194;p=openocd.git diff --git a/src/target/target.c b/src/target/target.c index eb93fb7b83..871588393b 100644 --- a/src/target/target.c +++ b/src/target/target.c @@ -2,7 +2,7 @@ * Copyright (C) 2005 by Dominic Rath * * Dominic.Rath@gmx.de * * * - * Copyright (C) 2007-2009 Øyvind Harboe * + * Copyright (C) 2007-2010 Øyvind Harboe * * oyvind.harboe@zylin.com * * * * Copyright (C) 2008, Duane Ellis * @@ -14,6 +14,15 @@ * Copyright (C) 2008 by Rick Altherr * * kc8apf@kc8apf.net> * * * + * Copyright (C) 2011 by Broadcom Corporation * + * Evan Hunter - ehunter@broadcom.com * + * * + * Copyright (C) ST-Ericsson SA 2011 * + * michel.jaouen@stericsson.com : smp minimum support * + * * + * Copyright (C) 2011 Andreas Fritiofson * + * andreas.fritiofson@gmail.com * + * * * This program is free software; you can redistribute it and/or modify * * it under the terms of the GNU General Public License as published by * * the Free Software Foundation; either version 2 of the License, or * @@ -25,98 +34,131 @@ * GNU General Public License for more details. * * * * You should have received a copy of the GNU General Public License * - * along with this program; if not, write to the * - * Free Software Foundation, Inc., * - * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * + * along with this program. If not, see . * ***************************************************************************/ + #ifdef HAVE_CONFIG_H #include "config.h" #endif +#include +#include +#include + #include "target.h" #include "target_type.h" #include "target_request.h" -#include "time_support.h" +#include "breakpoints.h" #include "register.h" #include "trace.h" #include "image.h" -#include "jtag.h" - - -static int handle_targets_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); - -static int handle_reg_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_poll_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_halt_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_wait_halt_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_reset_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_soft_reset_halt_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_resume_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_step_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_md_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_mw_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_load_image_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_dump_image_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_verify_image_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_test_image_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_bp_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_rbp_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_wp_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_rwp_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_virt2phys_command(command_context_t *cmd_ctx, char *cmd, char **args, int argc); -static int handle_profile_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_fast_load_image_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); -static int handle_fast_load_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc); - -static int jim_array2mem(Jim_Interp *interp, int argc, Jim_Obj *const *argv); -static int jim_mem2array(Jim_Interp *interp, int argc, Jim_Obj *const *argv); -static int jim_target(Jim_Interp *interp, int argc, Jim_Obj *const *argv); - -static int target_array2mem(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); +#include "rtos/rtos.h" +#include "transport/transport.h" +#include "arm_cti.h" + +/* default halt wait timeout (ms) */ +#define DEFAULT_HALT_TIMEOUT 5000 + +static int target_read_buffer_default(struct target *target, target_addr_t address, + uint32_t count, uint8_t *buffer); +static int target_write_buffer_default(struct target *target, target_addr_t address, + uint32_t count, const uint8_t *buffer); +static int target_array2mem(Jim_Interp *interp, struct target *target, + int argc, Jim_Obj * const *argv); +static int target_mem2array(Jim_Interp *interp, struct target *target, + int argc, Jim_Obj * const *argv); +static int target_register_user_commands(struct command_context *cmd_ctx); +static int target_get_gdb_fileio_info_default(struct target *target, + struct gdb_fileio_info *fileio_info); +static int target_gdb_fileio_end_default(struct target *target, int retcode, + int fileio_errno, bool ctrl_c); +static int target_profiling_default(struct target *target, uint32_t *samples, + uint32_t max_num_samples, uint32_t *num_samples, uint32_t seconds); /* targets */ -extern target_type_t arm7tdmi_target; -extern target_type_t arm720t_target; -extern target_type_t arm9tdmi_target; -extern target_type_t arm920t_target; -extern target_type_t arm966e_target; -extern target_type_t arm926ejs_target; -extern target_type_t fa526_target; -extern target_type_t feroceon_target; -extern target_type_t dragonite_target; -extern target_type_t xscale_target; -extern target_type_t cortexm3_target; -extern target_type_t cortexa8_target; -extern target_type_t arm11_target; -extern target_type_t mips_m4k_target; -extern target_type_t avr_target; - -target_type_t *target_types[] = -{ +extern struct target_type arm7tdmi_target; +extern struct target_type arm720t_target; +extern struct target_type arm9tdmi_target; +extern struct target_type arm920t_target; +extern struct target_type arm966e_target; +extern struct target_type arm946e_target; +extern struct target_type arm926ejs_target; +extern struct target_type fa526_target; +extern struct target_type feroceon_target; +extern struct target_type dragonite_target; +extern struct target_type xscale_target; +extern struct target_type cortexm_target; +extern struct target_type cortexa_target; +extern struct target_type aarch64_target; +extern struct target_type cortexr4_target; +extern struct target_type arm11_target; +extern struct target_type ls1_sap_target; +extern struct target_type mips_m4k_target; +extern struct target_type avr_target; +extern struct target_type dsp563xx_target; +extern struct target_type dsp5680xx_target; +extern struct target_type testee_target; +extern struct target_type avr32_ap7k_target; +extern struct target_type hla_target; +extern struct target_type nds32_v2_target; +extern struct target_type nds32_v3_target; +extern struct target_type nds32_v3m_target; +extern struct target_type or1k_target; +extern struct target_type quark_x10xx_target; +extern struct target_type quark_d20xx_target; +extern struct target_type stm8_target; +extern struct target_type riscv_target; +extern struct target_type mem_ap_target; +extern struct target_type esirisc_target; + +static struct target_type *target_types[] = { &arm7tdmi_target, &arm9tdmi_target, &arm920t_target, &arm720t_target, &arm966e_target, + &arm946e_target, &arm926ejs_target, &fa526_target, &feroceon_target, &dragonite_target, &xscale_target, - &cortexm3_target, - &cortexa8_target, + &cortexm_target, + &cortexa_target, + &cortexr4_target, &arm11_target, + &ls1_sap_target, &mips_m4k_target, &avr_target, + &dsp563xx_target, + &dsp5680xx_target, + &testee_target, + &avr32_ap7k_target, + &hla_target, + &nds32_v2_target, + &nds32_v3_target, + &nds32_v3m_target, + &or1k_target, + &quark_x10xx_target, + &quark_d20xx_target, + &stm8_target, + &riscv_target, + &mem_ap_target, + &esirisc_target, +#if BUILD_TARGET64 + &aarch64_target, +#endif NULL, }; -target_t *all_targets = NULL; -target_event_callback_t *target_event_callbacks = NULL; -target_timer_callback_t *target_timer_callbacks = NULL; +struct target *all_targets; +static struct target_event_callback *target_event_callbacks; +static struct target_timer_callback *target_timer_callbacks; +LIST_HEAD(target_reset_callback_list); +LIST_HEAD(target_trace_callback_list); +static const int polling_interval = 100; -const Jim_Nvp nvp_assert[] = { +static const Jim_Nvp nvp_assert[] = { { .name = "assert", NVP_ASSERT }, { .name = "deassert", NVP_DEASSERT }, { .name = "T", NVP_ASSERT }, @@ -126,7 +168,7 @@ const Jim_Nvp nvp_assert[] = { { .name = NULL, .value = -1 } }; -const Jim_Nvp nvp_error_target[] = { +static const Jim_Nvp nvp_error_target[] = { { .value = ERROR_TARGET_INVALID, .name = "err-invalid" }, { .value = ERROR_TARGET_INIT_FAILED, .name = "err-init-failed" }, { .value = ERROR_TARGET_TIMEOUT, .name = "err-timeout" }, @@ -141,21 +183,18 @@ const Jim_Nvp nvp_error_target[] = { { .value = -1, .name = NULL } }; -const char *target_strerror_safe(int err) +static const char *target_strerror_safe(int err) { const Jim_Nvp *n; n = Jim_Nvp_value2name_simple(nvp_error_target, err); - if (n->name == NULL) { + if (n->name == NULL) return "unknown"; - } else { + else return n->name; - } } static const Jim_Nvp nvp_target_event[] = { - { .value = TARGET_EVENT_OLD_gdb_program_config , .name = "old-gdb_program_config" }, - { .value = TARGET_EVENT_OLD_pre_resume , .name = "old-pre_resume" }, { .value = TARGET_EVENT_GDB_HALT, .name = "gdb-halt" }, { .value = TARGET_EVENT_HALTED, .name = "halted" }, @@ -166,20 +205,14 @@ static const Jim_Nvp nvp_target_event[] = { { .name = "gdb-start", .value = TARGET_EVENT_GDB_START }, { .name = "gdb-end", .value = TARGET_EVENT_GDB_END }, - /* historical name */ - - { .value = TARGET_EVENT_RESET_START, .name = "reset-start" }, - + { .value = TARGET_EVENT_RESET_START, .name = "reset-start" }, { .value = TARGET_EVENT_RESET_ASSERT_PRE, .name = "reset-assert-pre" }, + { .value = TARGET_EVENT_RESET_ASSERT, .name = "reset-assert" }, { .value = TARGET_EVENT_RESET_ASSERT_POST, .name = "reset-assert-post" }, { .value = TARGET_EVENT_RESET_DEASSERT_PRE, .name = "reset-deassert-pre" }, { .value = TARGET_EVENT_RESET_DEASSERT_POST, .name = "reset-deassert-post" }, - { .value = TARGET_EVENT_RESET_HALT_PRE, .name = "reset-halt-pre" }, - { .value = TARGET_EVENT_RESET_HALT_POST, .name = "reset-halt-post" }, - { .value = TARGET_EVENT_RESET_WAIT_PRE, .name = "reset-wait-pre" }, - { .value = TARGET_EVENT_RESET_WAIT_POST, .name = "reset-wait-post" }, - { .value = TARGET_EVENT_RESET_INIT , .name = "reset-init" }, - { .value = TARGET_EVENT_RESET_END, .name = "reset-end" }, + { .value = TARGET_EVENT_RESET_INIT, .name = "reset-init" }, + { .value = TARGET_EVENT_RESET_END, .name = "reset-end" }, { .value = TARGET_EVENT_EXAMINE_START, .name = "examine-start" }, { .value = TARGET_EVENT_EXAMINE_END, .name = "examine-end" }, @@ -196,14 +229,12 @@ static const Jim_Nvp nvp_target_event[] = { { .value = TARGET_EVENT_GDB_FLASH_ERASE_START, .name = "gdb-flash-erase-start" }, { .value = TARGET_EVENT_GDB_FLASH_ERASE_END , .name = "gdb-flash-erase-end" }, - { .value = TARGET_EVENT_RESUME_START, .name = "resume-start" }, - { .value = TARGET_EVENT_RESUMED , .name = "resume-ok" }, - { .value = TARGET_EVENT_RESUME_END , .name = "resume-end" }, + { .value = TARGET_EVENT_TRACE_CONFIG, .name = "trace-config" }, { .name = NULL, .value = -1 } }; -const Jim_Nvp nvp_target_state[] = { +static const Jim_Nvp nvp_target_state[] = { { .name = "unknown", .value = TARGET_UNKNOWN }, { .name = "running", .value = TARGET_RUNNING }, { .name = "halted", .value = TARGET_HALTED }, @@ -212,18 +243,19 @@ const Jim_Nvp nvp_target_state[] = { { .name = NULL, .value = -1 }, }; -const Jim_Nvp nvp_target_debug_reason [] = { +static const Jim_Nvp nvp_target_debug_reason[] = { { .name = "debug-request" , .value = DBG_REASON_DBGRQ }, { .name = "breakpoint" , .value = DBG_REASON_BREAKPOINT }, { .name = "watchpoint" , .value = DBG_REASON_WATCHPOINT }, { .name = "watchpoint-and-breakpoint", .value = DBG_REASON_WPTANDBKPT }, { .name = "single-step" , .value = DBG_REASON_SINGLESTEP }, { .name = "target-not-halted" , .value = DBG_REASON_NOTHALTED }, + { .name = "program-exit" , .value = DBG_REASON_EXIT }, { .name = "undefined" , .value = DBG_REASON_UNDEFINED }, { .name = NULL, .value = -1 }, }; -const Jim_Nvp nvp_target_endian[] = { +static const Jim_Nvp nvp_target_endian[] = { { .name = "big", .value = TARGET_BIG_ENDIAN }, { .name = "little", .value = TARGET_LITTLE_ENDIAN }, { .name = "be", .value = TARGET_BIG_ENDIAN }, @@ -231,7 +263,7 @@ const Jim_Nvp nvp_target_endian[] = { { .name = NULL, .value = -1 }, }; -const Jim_Nvp nvp_reset_modes[] = { +static const Jim_Nvp nvp_reset_modes[] = { { .name = "unknown", .value = RESET_UNKNOWN }, { .name = "run" , .value = RESET_RUN }, { .name = "halt" , .value = RESET_HALT }, @@ -239,38 +271,84 @@ const Jim_Nvp nvp_reset_modes[] = { { .name = NULL , .value = -1 }, }; -const char * -target_state_name( target_t *t ) +const char *debug_reason_name(struct target *t) +{ + const char *cp; + + cp = Jim_Nvp_value2name_simple(nvp_target_debug_reason, + t->debug_reason)->name; + if (!cp) { + LOG_ERROR("Invalid debug reason: %d", (int)(t->debug_reason)); + cp = "(*BUG*unknown*BUG*)"; + } + return cp; +} + +const char *target_state_name(struct target *t) { const char *cp; cp = Jim_Nvp_value2name_simple(nvp_target_state, t->state)->name; - if( !cp ){ + if (!cp) { LOG_ERROR("Invalid target state: %d", (int)(t->state)); cp = "(*BUG*unknown*BUG*)"; } + + if (!target_was_examined(t) && t->defer_examine) + cp = "examine deferred"; + + return cp; +} + +const char *target_event_name(enum target_event event) +{ + const char *cp; + cp = Jim_Nvp_value2name_simple(nvp_target_event, event)->name; + if (!cp) { + LOG_ERROR("Invalid target event: %d", (int)(event)); + cp = "(*BUG*unknown*BUG*)"; + } + return cp; +} + +const char *target_reset_mode_name(enum target_reset_mode reset_mode) +{ + const char *cp; + cp = Jim_Nvp_value2name_simple(nvp_reset_modes, reset_mode)->name; + if (!cp) { + LOG_ERROR("Invalid target reset mode: %d", (int)(reset_mode)); + cp = "(*BUG*unknown*BUG*)"; + } return cp; } /* determine the number of the new target */ static int new_target_number(void) { - target_t *t; + struct target *t; int x; /* number is 0 based */ x = -1; t = all_targets; while (t) { - if (x < t->target_number) { + if (x < t->target_number) x = t->target_number; - } t = t->next; } return x + 1; } +/* read a uint64_t from a buffer in target memory endianness */ +uint64_t target_buffer_get_u64(struct target *target, const uint8_t *buffer) +{ + if (target->endianness == TARGET_LITTLE_ENDIAN) + return le_to_h_u64(buffer); + else + return be_to_h_u64(buffer); +} + /* read a uint32_t from a buffer in target memory endianness */ -uint32_t target_buffer_get_u32(target_t *target, const uint8_t *buffer) +uint32_t target_buffer_get_u32(struct target *target, const uint8_t *buffer) { if (target->endianness == TARGET_LITTLE_ENDIAN) return le_to_h_u32(buffer); @@ -278,8 +356,17 @@ uint32_t target_buffer_get_u32(target_t *target, const uint8_t *buffer) return be_to_h_u32(buffer); } +/* read a uint24_t from a buffer in target memory endianness */ +uint32_t target_buffer_get_u24(struct target *target, const uint8_t *buffer) +{ + if (target->endianness == TARGET_LITTLE_ENDIAN) + return le_to_h_u24(buffer); + else + return be_to_h_u24(buffer); +} + /* read a uint16_t from a buffer in target memory endianness */ -uint16_t target_buffer_get_u16(target_t *target, const uint8_t *buffer) +uint16_t target_buffer_get_u16(struct target *target, const uint8_t *buffer) { if (target->endianness == TARGET_LITTLE_ENDIAN) return le_to_h_u16(buffer); @@ -288,13 +375,22 @@ uint16_t target_buffer_get_u16(target_t *target, const uint8_t *buffer) } /* read a uint8_t from a buffer in target memory endianness */ -uint8_t target_buffer_get_u8(target_t *target, const uint8_t *buffer) +static uint8_t target_buffer_get_u8(struct target *target, const uint8_t *buffer) { return *buffer & 0x0ff; } +/* write a uint64_t to a buffer in target memory endianness */ +void target_buffer_set_u64(struct target *target, uint8_t *buffer, uint64_t value) +{ + if (target->endianness == TARGET_LITTLE_ENDIAN) + h_u64_to_le(buffer, value); + else + h_u64_to_be(buffer, value); +} + /* write a uint32_t to a buffer in target memory endianness */ -void target_buffer_set_u32(target_t *target, uint8_t *buffer, uint32_t value) +void target_buffer_set_u32(struct target *target, uint8_t *buffer, uint32_t value) { if (target->endianness == TARGET_LITTLE_ENDIAN) h_u32_to_le(buffer, value); @@ -302,8 +398,17 @@ void target_buffer_set_u32(target_t *target, uint8_t *buffer, uint32_t value) h_u32_to_be(buffer, value); } +/* write a uint24_t to a buffer in target memory endianness */ +void target_buffer_set_u24(struct target *target, uint8_t *buffer, uint32_t value) +{ + if (target->endianness == TARGET_LITTLE_ENDIAN) + h_u24_to_le(buffer, value); + else + h_u24_to_be(buffer, value); +} + /* write a uint16_t to a buffer in target memory endianness */ -void target_buffer_set_u16(target_t *target, uint8_t *buffer, uint16_t value) +void target_buffer_set_u16(struct target *target, uint8_t *buffer, uint16_t value) { if (target->endianness == TARGET_LITTLE_ENDIAN) h_u16_to_le(buffer, value); @@ -312,21 +417,69 @@ void target_buffer_set_u16(target_t *target, uint8_t *buffer, uint16_t value) } /* write a uint8_t to a buffer in target memory endianness */ -void target_buffer_set_u8(target_t *target, uint8_t *buffer, uint8_t value) +static void target_buffer_set_u8(struct target *target, uint8_t *buffer, uint8_t value) { *buffer = value; } +/* write a uint64_t array to a buffer in target memory endianness */ +void target_buffer_get_u64_array(struct target *target, const uint8_t *buffer, uint32_t count, uint64_t *dstbuf) +{ + uint32_t i; + for (i = 0; i < count; i++) + dstbuf[i] = target_buffer_get_u64(target, &buffer[i * 8]); +} + +/* write a uint32_t array to a buffer in target memory endianness */ +void target_buffer_get_u32_array(struct target *target, const uint8_t *buffer, uint32_t count, uint32_t *dstbuf) +{ + uint32_t i; + for (i = 0; i < count; i++) + dstbuf[i] = target_buffer_get_u32(target, &buffer[i * 4]); +} + +/* write a uint16_t array to a buffer in target memory endianness */ +void target_buffer_get_u16_array(struct target *target, const uint8_t *buffer, uint32_t count, uint16_t *dstbuf) +{ + uint32_t i; + for (i = 0; i < count; i++) + dstbuf[i] = target_buffer_get_u16(target, &buffer[i * 2]); +} + +/* write a uint64_t array to a buffer in target memory endianness */ +void target_buffer_set_u64_array(struct target *target, uint8_t *buffer, uint32_t count, const uint64_t *srcbuf) +{ + uint32_t i; + for (i = 0; i < count; i++) + target_buffer_set_u64(target, &buffer[i * 8], srcbuf[i]); +} + +/* write a uint32_t array to a buffer in target memory endianness */ +void target_buffer_set_u32_array(struct target *target, uint8_t *buffer, uint32_t count, const uint32_t *srcbuf) +{ + uint32_t i; + for (i = 0; i < count; i++) + target_buffer_set_u32(target, &buffer[i * 4], srcbuf[i]); +} + +/* write a uint16_t array to a buffer in target memory endianness */ +void target_buffer_set_u16_array(struct target *target, uint8_t *buffer, uint32_t count, const uint16_t *srcbuf) +{ + uint32_t i; + for (i = 0; i < count; i++) + target_buffer_set_u16(target, &buffer[i * 2], srcbuf[i]); +} + /* return a pointer to a configured target; id is name or number */ -target_t *get_target(const char *id) +struct target *get_target(const char *id) { - target_t *target; + struct target *target; /* try as tcltarget name */ for (target = all_targets; target; target = target->next) { - if (target->cmd_name == NULL) + if (target_name(target) == NULL) continue; - if (strcmp(id, target->cmd_name) == 0) + if (strcmp(id, target_name(target)) == 0) return target; } @@ -340,7 +493,7 @@ target_t *get_target(const char *id) for (target = all_targets; target; target = target->next) { if (target->target_number == (int)num) { LOG_WARNING("use '%s' as target identifier, not '%u'", - target->cmd_name, num); + target_name(target), num); return target; } } @@ -349,26 +502,26 @@ target_t *get_target(const char *id) } /* returns a pointer to the n-th configured target */ -static target_t *get_target_by_num(int num) +struct target *get_target_by_num(int num) { - target_t *target = all_targets; + struct target *target = all_targets; while (target) { - if (target->target_number == num) { + if (target->target_number == num) return target; - } target = target->next; } return NULL; } -target_t* get_current_target(command_context_t *cmd_ctx) +struct target *get_current_target(struct command_context *cmd_ctx) { - target_t *target = get_target_by_num(cmd_ctx->current_target); + struct target *target = cmd_ctx->current_target_override + ? cmd_ctx->current_target_override + : cmd_ctx->current_target; - if (target == NULL) - { + if (target == NULL) { LOG_ERROR("BUG: current_target out of bounds"); exit(-1); } @@ -376,13 +529,12 @@ target_t* get_current_target(command_context_t *cmd_ctx) return target; } -int target_poll(struct target_s *target) +int target_poll(struct target *target) { int retval; /* We can't poll until after examine */ - if (!target_was_examined(target)) - { + if (!target_was_examined(target)) { /* Fail silently lest we pollute the log */ return ERROR_FAIL; } @@ -391,16 +543,12 @@ int target_poll(struct target_s *target) if (retval != ERROR_OK) return retval; - if (target->halt_issued) - { + if (target->halt_issued) { if (target->state == TARGET_HALTED) - { target->halt_issued = false; - } else - { - long long t = timeval_ms() - target->halt_issued_time; - if (t>1000) - { + else { + int64_t t = timeval_ms() - target->halt_issued_time; + if (t > DEFAULT_HALT_TIMEOUT) { target->halt_issued = false; LOG_INFO("Halt timed out, wake up GDB."); target_call_event_callbacks(target, TARGET_EVENT_GDB_HALT); @@ -411,12 +559,11 @@ int target_poll(struct target_s *target) return ERROR_OK; } -int target_halt(struct target_s *target) +int target_halt(struct target *target) { int retval; /* We can't poll until after examine */ - if (!target_was_examined(target)) - { + if (!target_was_examined(target)) { LOG_ERROR("Target not examined yet"); return ERROR_FAIL; } @@ -431,28 +578,63 @@ int target_halt(struct target_s *target) return ERROR_OK; } -int target_resume(struct target_s *target, int current, uint32_t address, int handle_breakpoints, int debug_execution) +/** + * Make the target (re)start executing using its saved execution + * context (possibly with some modifications). + * + * @param target Which target should start executing. + * @param current True to use the target's saved program counter instead + * of the address parameter + * @param address Optionally used as the program counter. + * @param handle_breakpoints True iff breakpoints at the resumption PC + * should be skipped. (For example, maybe execution was stopped by + * such a breakpoint, in which case it would be counterprodutive to + * let it re-trigger. + * @param debug_execution False if all working areas allocated by OpenOCD + * should be released and/or restored to their original contents. + * (This would for example be true to run some downloaded "helper" + * algorithm code, which resides in one such working buffer and uses + * another for data storage.) + * + * @todo Resolve the ambiguity about what the "debug_execution" flag + * signifies. For example, Target implementations don't agree on how + * it relates to invalidation of the register cache, or to whether + * breakpoints and watchpoints should be enabled. (It would seem wrong + * to enable breakpoints when running downloaded "helper" algorithms + * (debug_execution true), since the breakpoints would be set to match + * target firmware being debugged, not the helper algorithm.... and + * enabling them could cause such helpers to malfunction (for example, + * by overwriting data with a breakpoint instruction. On the other + * hand the infrastructure for running such helpers might use this + * procedure but rely on hardware breakpoint to detect termination.) + */ +int target_resume(struct target *target, int current, target_addr_t address, + int handle_breakpoints, int debug_execution) { int retval; /* We can't poll until after examine */ - if (!target_was_examined(target)) - { + if (!target_was_examined(target)) { LOG_ERROR("Target not examined yet"); return ERROR_FAIL; } - /* note that resume *must* be asynchronous. The CPU can halt before we poll. The CPU can - * even halt at the current PC as a result of a software breakpoint being inserted by (a bug?) - * the application. + target_call_event_callbacks(target, TARGET_EVENT_RESUME_START); + + /* note that resume *must* be asynchronous. The CPU can halt before + * we poll. The CPU can even halt at the current PC as a result of + * a software breakpoint being inserted by (a bug?) the application. */ - if ((retval = target->type->resume(target, current, address, handle_breakpoints, debug_execution)) != ERROR_OK) + retval = target->type->resume(target, current, address, handle_breakpoints, debug_execution); + if (retval != ERROR_OK) return retval; + target_call_event_callbacks(target, TARGET_EVENT_RESUME_END); + return retval; } -int target_process_reset(struct command_context_s *cmd_ctx, enum target_reset_mode reset_mode) +static int target_process_reset(struct command_context *cmd_ctx, enum target_reset_mode reset_mode) { char buf[100]; int retval; @@ -463,6 +645,10 @@ int target_process_reset(struct command_context_s *cmd_ctx, enum target_reset_mo return ERROR_FAIL; } + struct target *target; + for (target = all_targets; target; target = target->next) + target_call_reset_callbacks(target, reset_mode); + /* disable polling during reset to make reset event scripts * more predictable, i.e. dr/irscan & pathmove in events will * not have JTAG operations injected into the middle of a sequence. @@ -472,56 +658,77 @@ int target_process_reset(struct command_context_s *cmd_ctx, enum target_reset_mo jtag_poll_set_enabled(false); sprintf(buf, "ocd_process_reset %s", n->name); - retval = Jim_Eval(interp, buf); + retval = Jim_Eval(cmd_ctx->interp, buf); jtag_poll_set_enabled(save_poll); if (retval != JIM_OK) { - Jim_PrintErrorMessage(interp); + Jim_MakeErrorMessage(cmd_ctx->interp); + command_print(NULL, "%s\n", Jim_GetString(Jim_GetResult(cmd_ctx->interp), NULL)); return ERROR_FAIL; } /* We want any events to be processed before the prompt */ retval = target_call_timer_callbacks_now(); + for (target = all_targets; target; target = target->next) { + target->type->check_reset(target); + target->running_alg = false; + } + return retval; } -static int default_virt2phys(struct target_s *target, uint32_t virtual, uint32_t *physical) +static int identity_virt2phys(struct target *target, + target_addr_t virtual, target_addr_t *physical) { *physical = virtual; return ERROR_OK; } -static int default_mmu(struct target_s *target, int *enabled) +static int no_mmu(struct target *target, int *enabled) { *enabled = 0; return ERROR_OK; } -static int default_examine(struct target_s *target) +static int default_examine(struct target *target) { target_set_examined(target); return ERROR_OK; } -int target_examine_one(struct target_s *target) +/* no check by default */ +static int default_check_reset(struct target *target) +{ + return ERROR_OK; +} + +int target_examine_one(struct target *target) { - return target->type->examine(target); + target_call_event_callbacks(target, TARGET_EVENT_EXAMINE_START); + + int retval = target->type->examine(target); + if (retval != ERROR_OK) + return retval; + + target_call_event_callbacks(target, TARGET_EVENT_EXAMINE_END); + + return ERROR_OK; } static int jtag_enable_callback(enum jtag_event event, void *priv) { - target_t *target = priv; + struct target *target = priv; if (event != JTAG_TAP_EVENT_ENABLE || !target->tap->enabled) return ERROR_OK; jtag_unregister_event_callback(jtag_enable_callback, target); + return target_examine_one(target); } - /* Targets that correctly implement init + examine, i.e. * no communication with target during init: * @@ -530,3041 +737,3863 @@ static int jtag_enable_callback(enum jtag_event event, void *priv) int target_examine(void) { int retval = ERROR_OK; - target_t *target; + struct target *target; - for (target = all_targets; target; target = target->next) - { + for (target = all_targets; target; target = target->next) { /* defer examination, but don't skip it */ if (!target->tap->enabled) { jtag_register_event_callback(jtag_enable_callback, target); continue; } - if ((retval = target_examine_one(target)) != ERROR_OK) + + if (target->defer_examine) + continue; + + retval = target_examine_one(target); + if (retval != ERROR_OK) return retval; } return retval; } -const char *target_get_name(struct target_s *target) + +const char *target_type_name(struct target *target) { return target->type->name; } -static int target_write_memory_imp(struct target_s *target, uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer) +static int target_soft_reset_halt(struct target *target) { - if (!target_was_examined(target)) - { + if (!target_was_examined(target)) { LOG_ERROR("Target not examined yet"); return ERROR_FAIL; } - return target->type->write_memory_imp(target, address, size, count, buffer); -} - -static int target_read_memory_imp(struct target_s *target, uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer) -{ - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); + if (!target->type->soft_reset_halt) { + LOG_ERROR("Target %s does not support soft_reset_halt", + target_name(target)); return ERROR_FAIL; } - return target->type->read_memory_imp(target, address, size, count, buffer); + return target->type->soft_reset_halt(target); } -static int target_soft_reset_halt_imp(struct target_s *target) +/** + * Downloads a target-specific native code algorithm to the target, + * and executes it. * Note that some targets may need to set up, enable, + * and tear down a breakpoint (hard or * soft) to detect algorithm + * termination, while others may support lower overhead schemes where + * soft breakpoints embedded in the algorithm automatically terminate the + * algorithm. + * + * @param target used to run the algorithm + * @param arch_info target-specific description of the algorithm. + */ +int target_run_algorithm(struct target *target, + int num_mem_params, struct mem_param *mem_params, + int num_reg_params, struct reg_param *reg_param, + uint32_t entry_point, uint32_t exit_point, + int timeout_ms, void *arch_info) { - if (!target_was_examined(target)) - { + int retval = ERROR_FAIL; + + if (!target_was_examined(target)) { LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; + goto done; } - if (!target->type->soft_reset_halt_imp) { - LOG_ERROR("Target %s does not support soft_reset_halt", - target->cmd_name); - return ERROR_FAIL; + if (!target->type->run_algorithm) { + LOG_ERROR("Target type '%s' does not support %s", + target_type_name(target), __func__); + goto done; } - return target->type->soft_reset_halt_imp(target); + + target->running_alg = true; + retval = target->type->run_algorithm(target, + num_mem_params, mem_params, + num_reg_params, reg_param, + entry_point, exit_point, timeout_ms, arch_info); + target->running_alg = false; + +done: + return retval; } -static int target_run_algorithm_imp(struct target_s *target, int num_mem_params, mem_param_t *mem_params, int num_reg_params, reg_param_t *reg_param, uint32_t entry_point, uint32_t exit_point, int timeout_ms, void *arch_info) +/** + * Executes a target-specific native code algorithm and leaves it running. + * + * @param target used to run the algorithm + * @param arch_info target-specific description of the algorithm. + */ +int target_start_algorithm(struct target *target, + int num_mem_params, struct mem_param *mem_params, + int num_reg_params, struct reg_param *reg_params, + uint32_t entry_point, uint32_t exit_point, + void *arch_info) { - if (!target_was_examined(target)) - { + int retval = ERROR_FAIL; + + if (!target_was_examined(target)) { LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; + goto done; + } + if (!target->type->start_algorithm) { + LOG_ERROR("Target type '%s' does not support %s", + target_type_name(target), __func__); + goto done; + } + if (target->running_alg) { + LOG_ERROR("Target is already running an algorithm"); + goto done; } - return target->type->run_algorithm_imp(target, num_mem_params, mem_params, num_reg_params, reg_param, entry_point, exit_point, timeout_ms, arch_info); -} -int target_read_memory(struct target_s *target, - uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer) -{ - return target->type->read_memory(target, address, size, count, buffer); -} + target->running_alg = true; + retval = target->type->start_algorithm(target, + num_mem_params, mem_params, + num_reg_params, reg_params, + entry_point, exit_point, arch_info); -int target_read_phys_memory(struct target_s *target, - uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer) -{ - return target->type->read_phys_memory(target, address, size, count, buffer); +done: + return retval; } -int target_write_memory(struct target_s *target, - uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer) +/** + * Waits for an algorithm started with target_start_algorithm() to complete. + * + * @param target used to run the algorithm + * @param arch_info target-specific description of the algorithm. + */ +int target_wait_algorithm(struct target *target, + int num_mem_params, struct mem_param *mem_params, + int num_reg_params, struct reg_param *reg_params, + uint32_t exit_point, int timeout_ms, + void *arch_info) { - return target->type->write_memory(target, address, size, count, buffer); -} + int retval = ERROR_FAIL; -int target_write_phys_memory(struct target_s *target, - uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer) -{ - return target->type->write_phys_memory(target, address, size, count, buffer); -} + if (!target->type->wait_algorithm) { + LOG_ERROR("Target type '%s' does not support %s", + target_type_name(target), __func__); + goto done; + } + if (!target->running_alg) { + LOG_ERROR("Target is not running an algorithm"); + goto done; + } -int target_bulk_write_memory(struct target_s *target, - uint32_t address, uint32_t count, uint8_t *buffer) -{ - return target->type->bulk_write_memory(target, address, count, buffer); -} + retval = target->type->wait_algorithm(target, + num_mem_params, mem_params, + num_reg_params, reg_params, + exit_point, timeout_ms, arch_info); + if (retval != ERROR_TARGET_TIMEOUT) + target->running_alg = false; -int target_add_breakpoint(struct target_s *target, - struct breakpoint_s *breakpoint) -{ - return target->type->add_breakpoint(target, breakpoint); -} -int target_remove_breakpoint(struct target_s *target, - struct breakpoint_s *breakpoint) -{ - return target->type->remove_breakpoint(target, breakpoint); +done: + return retval; } -int target_add_watchpoint(struct target_s *target, - struct watchpoint_s *watchpoint) -{ - return target->type->add_watchpoint(target, watchpoint); -} -int target_remove_watchpoint(struct target_s *target, - struct watchpoint_s *watchpoint) -{ - return target->type->remove_watchpoint(target, watchpoint); -} +/** + * Streams data to a circular buffer on target intended for consumption by code + * running asynchronously on target. + * + * This is intended for applications where target-specific native code runs + * on the target, receives data from the circular buffer, does something with + * it (most likely writing it to a flash memory), and advances the circular + * buffer pointer. + * + * This assumes that the helper algorithm has already been loaded to the target, + * but has not been started yet. Given memory and register parameters are passed + * to the algorithm. + * + * The buffer is defined by (buffer_start, buffer_size) arguments and has the + * following format: + * + * [buffer_start + 0, buffer_start + 4): + * Write Pointer address (aka head). Written and updated by this + * routine when new data is written to the circular buffer. + * [buffer_start + 4, buffer_start + 8): + * Read Pointer address (aka tail). Updated by code running on the + * target after it consumes data. + * [buffer_start + 8, buffer_start + buffer_size): + * Circular buffer contents. + * + * See contrib/loaders/flash/stm32f1x.S for an example. + * + * @param target used to run the algorithm + * @param buffer address on the host where data to be sent is located + * @param count number of blocks to send + * @param block_size size in bytes of each block + * @param num_mem_params count of memory-based params to pass to algorithm + * @param mem_params memory-based params to pass to algorithm + * @param num_reg_params count of register-based params to pass to algorithm + * @param reg_params memory-based params to pass to algorithm + * @param buffer_start address on the target of the circular buffer structure + * @param buffer_size size of the circular buffer structure + * @param entry_point address on the target to execute to start the algorithm + * @param exit_point address at which to set a breakpoint to catch the + * end of the algorithm; can be 0 if target triggers a breakpoint itself + */ -int target_get_gdb_reg_list(struct target_s *target, - struct reg_s **reg_list[], int *reg_list_size) -{ - return target->type->get_gdb_reg_list(target, reg_list, reg_list_size); -} -int target_step(struct target_s *target, - int current, uint32_t address, int handle_breakpoints) +int target_run_flash_async_algorithm(struct target *target, + const uint8_t *buffer, uint32_t count, int block_size, + int num_mem_params, struct mem_param *mem_params, + int num_reg_params, struct reg_param *reg_params, + uint32_t buffer_start, uint32_t buffer_size, + uint32_t entry_point, uint32_t exit_point, void *arch_info) { - return target->type->step(target, current, address, handle_breakpoints); -} + int retval; + int timeout = 0; + const uint8_t *buffer_orig = buffer; -int target_run_algorithm(struct target_s *target, - int num_mem_params, mem_param_t *mem_params, - int num_reg_params, reg_param_t *reg_param, - uint32_t entry_point, uint32_t exit_point, - int timeout_ms, void *arch_info) -{ - return target->type->run_algorithm(target, - num_mem_params, mem_params, num_reg_params, reg_param, - entry_point, exit_point, timeout_ms, arch_info); -} + /* Set up working area. First word is write pointer, second word is read pointer, + * rest is fifo data area. */ + uint32_t wp_addr = buffer_start; + uint32_t rp_addr = buffer_start + 4; + uint32_t fifo_start_addr = buffer_start + 8; + uint32_t fifo_end_addr = buffer_start + buffer_size; -/// @returns @c true if the target has been examined. -bool target_was_examined(struct target_s *target) -{ - return target->type->examined; -} -/// Sets the @c examined flag for the given target. -void target_set_examined(struct target_s *target) -{ - target->type->examined = true; -} -// Reset the @c examined flag for the given target. -void target_reset_examined(struct target_s *target) -{ - target->type->examined = false; -} + uint32_t wp = fifo_start_addr; + uint32_t rp = fifo_start_addr; + /* validate block_size is 2^n */ + assert(!block_size || !(block_size & (block_size - 1))); -int target_init(struct command_context_s *cmd_ctx) -{ - target_t *target = all_targets; - int retval; + retval = target_write_u32(target, wp_addr, wp); + if (retval != ERROR_OK) + return retval; + retval = target_write_u32(target, rp_addr, rp); + if (retval != ERROR_OK) + return retval; - while (target) - { - target_reset_examined(target); - if (target->type->examine == NULL) - { - target->type->examine = default_examine; - } + /* Start up algorithm on target and let it idle while writing the first chunk */ + retval = target_start_algorithm(target, num_mem_params, mem_params, + num_reg_params, reg_params, + entry_point, + exit_point, + arch_info); - if ((retval = target->type->init_target(cmd_ctx, target)) != ERROR_OK) - { - LOG_ERROR("target '%s' init failed", target_get_name(target)); - return retval; - } + if (retval != ERROR_OK) { + LOG_ERROR("error starting target flash write algorithm"); + return retval; + } - /* Set up default functions if none are provided by target */ - if (target->type->virt2phys == NULL) - { - target->type->virt2phys = default_virt2phys; + while (count > 0) { + + retval = target_read_u32(target, rp_addr, &rp); + if (retval != ERROR_OK) { + LOG_ERROR("failed to get read pointer"); + break; } - if (target->type->read_phys_memory == NULL) - { - target->type->read_phys_memory = target->type->read_memory; + LOG_DEBUG("offs 0x%zx count 0x%" PRIx32 " wp 0x%" PRIx32 " rp 0x%" PRIx32, + (size_t) (buffer - buffer_orig), count, wp, rp); + + if (rp == 0) { + LOG_ERROR("flash write algorithm aborted by target"); + retval = ERROR_FLASH_OPERATION_FAILED; + break; } - if (target->type->write_phys_memory == NULL) - { - target->type->write_phys_memory = target->type->write_memory; + if (((rp - fifo_start_addr) & (block_size - 1)) || rp < fifo_start_addr || rp >= fifo_end_addr) { + LOG_ERROR("corrupted fifo read pointer 0x%" PRIx32, rp); + break; } - /* a non-invasive way(in terms of patches) to add some code that - * runs before the type->write/read_memory implementation - */ - target->type->write_memory_imp = target->type->write_memory; - target->type->write_memory = target_write_memory_imp; - target->type->read_memory_imp = target->type->read_memory; - target->type->read_memory = target_read_memory_imp; - target->type->soft_reset_halt_imp = target->type->soft_reset_halt; - target->type->soft_reset_halt = target_soft_reset_halt_imp; - target->type->run_algorithm_imp = target->type->run_algorithm; - target->type->run_algorithm = target_run_algorithm_imp; - - if (target->type->mmu == NULL) - { - target->type->mmu = default_mmu; + /* Count the number of bytes available in the fifo without + * crossing the wrap around. Make sure to not fill it completely, + * because that would make wp == rp and that's the empty condition. */ + uint32_t thisrun_bytes; + if (rp > wp) + thisrun_bytes = rp - wp - block_size; + else if (rp > fifo_start_addr) + thisrun_bytes = fifo_end_addr - wp; + else + thisrun_bytes = fifo_end_addr - wp - block_size; + + if (thisrun_bytes == 0) { + /* Throttle polling a bit if transfer is (much) faster than flash + * programming. The exact delay shouldn't matter as long as it's + * less than buffer size / flash speed. This is very unlikely to + * run when using high latency connections such as USB. */ + alive_sleep(10); + + /* to stop an infinite loop on some targets check and increment a timeout + * this issue was observed on a stellaris using the new ICDI interface */ + if (timeout++ >= 500) { + LOG_ERROR("timeout waiting for algorithm, a target reset is recommended"); + return ERROR_FLASH_OPERATION_FAILED; + } + continue; } - target = target->next; - } - if (all_targets) - { - if ((retval = target_register_user_commands(cmd_ctx)) != ERROR_OK) - return retval; - if ((retval = target_register_timer_callback(handle_target, 100, 1, NULL)) != ERROR_OK) - return retval; - } + /* reset our timeout */ + timeout = 0; - return ERROR_OK; -} + /* Limit to the amount of data we actually want to write */ + if (thisrun_bytes > count * block_size) + thisrun_bytes = count * block_size; -int target_register_event_callback(int (*callback)(struct target_s *target, enum target_event event, void *priv), void *priv) -{ - target_event_callback_t **callbacks_p = &target_event_callbacks; + /* Write data to fifo */ + retval = target_write_buffer(target, wp, thisrun_bytes, buffer); + if (retval != ERROR_OK) + break; - if (callback == NULL) - { - return ERROR_INVALID_ARGUMENTS; - } - - if (*callbacks_p) - { - while ((*callbacks_p)->next) - callbacks_p = &((*callbacks_p)->next); - callbacks_p = &((*callbacks_p)->next); - } - - (*callbacks_p) = malloc(sizeof(target_event_callback_t)); - (*callbacks_p)->callback = callback; - (*callbacks_p)->priv = priv; - (*callbacks_p)->next = NULL; - - return ERROR_OK; -} + /* Update counters and wrap write pointer */ + buffer += thisrun_bytes; + count -= thisrun_bytes / block_size; + wp += thisrun_bytes; + if (wp >= fifo_end_addr) + wp = fifo_start_addr; -int target_register_timer_callback(int (*callback)(void *priv), int time_ms, int periodic, void *priv) -{ - target_timer_callback_t **callbacks_p = &target_timer_callbacks; - struct timeval now; + /* Store updated write pointer to target */ + retval = target_write_u32(target, wp_addr, wp); + if (retval != ERROR_OK) + break; - if (callback == NULL) - { - return ERROR_INVALID_ARGUMENTS; + /* Avoid GDB timeouts */ + keep_alive(); } - if (*callbacks_p) - { - while ((*callbacks_p)->next) - callbacks_p = &((*callbacks_p)->next); - callbacks_p = &((*callbacks_p)->next); + if (retval != ERROR_OK) { + /* abort flash write algorithm on target */ + target_write_u32(target, wp_addr, 0); } - (*callbacks_p) = malloc(sizeof(target_timer_callback_t)); - (*callbacks_p)->callback = callback; - (*callbacks_p)->periodic = periodic; - (*callbacks_p)->time_ms = time_ms; + int retval2 = target_wait_algorithm(target, num_mem_params, mem_params, + num_reg_params, reg_params, + exit_point, + 10000, + arch_info); - gettimeofday(&now, NULL); - (*callbacks_p)->when.tv_usec = now.tv_usec + (time_ms % 1000) * 1000; - time_ms -= (time_ms % 1000); - (*callbacks_p)->when.tv_sec = now.tv_sec + (time_ms / 1000); - if ((*callbacks_p)->when.tv_usec > 1000000) - { - (*callbacks_p)->when.tv_usec = (*callbacks_p)->when.tv_usec - 1000000; - (*callbacks_p)->when.tv_sec += 1; + if (retval2 != ERROR_OK) { + LOG_ERROR("error waiting for target flash write algorithm"); + retval = retval2; } - (*callbacks_p)->priv = priv; - (*callbacks_p)->next = NULL; + if (retval == ERROR_OK) { + /* check if algorithm set rp = 0 after fifo writer loop finished */ + retval = target_read_u32(target, rp_addr, &rp); + if (retval == ERROR_OK && rp == 0) { + LOG_ERROR("flash write algorithm aborted by target"); + retval = ERROR_FLASH_OPERATION_FAILED; + } + } - return ERROR_OK; + return retval; } -int target_unregister_event_callback(int (*callback)(struct target_s *target, enum target_event event, void *priv), void *priv) +int target_read_memory(struct target *target, + target_addr_t address, uint32_t size, uint32_t count, uint8_t *buffer) { - target_event_callback_t **p = &target_event_callbacks; - target_event_callback_t *c = target_event_callbacks; - - if (callback == NULL) - { - return ERROR_INVALID_ARGUMENTS; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - - while (c) - { - target_event_callback_t *next = c->next; - if ((c->callback == callback) && (c->priv == priv)) - { - *p = next; - free(c); - return ERROR_OK; - } - else - p = &(c->next); - c = next; + if (!target->type->read_memory) { + LOG_ERROR("Target %s doesn't support read_memory", target_name(target)); + return ERROR_FAIL; } - - return ERROR_OK; + return target->type->read_memory(target, address, size, count, buffer); } -int target_unregister_timer_callback(int (*callback)(void *priv), void *priv) +int target_read_phys_memory(struct target *target, + target_addr_t address, uint32_t size, uint32_t count, uint8_t *buffer) { - target_timer_callback_t **p = &target_timer_callbacks; - target_timer_callback_t *c = target_timer_callbacks; - - if (callback == NULL) - { - return ERROR_INVALID_ARGUMENTS; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - - while (c) - { - target_timer_callback_t *next = c->next; - if ((c->callback == callback) && (c->priv == priv)) - { - *p = next; - free(c); - return ERROR_OK; - } - else - p = &(c->next); - c = next; + if (!target->type->read_phys_memory) { + LOG_ERROR("Target %s doesn't support read_phys_memory", target_name(target)); + return ERROR_FAIL; } - - return ERROR_OK; + return target->type->read_phys_memory(target, address, size, count, buffer); } -int target_call_event_callbacks(target_t *target, enum target_event event) +int target_write_memory(struct target *target, + target_addr_t address, uint32_t size, uint32_t count, const uint8_t *buffer) { - target_event_callback_t *callback = target_event_callbacks; - target_event_callback_t *next_callback; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; + } + if (!target->type->write_memory) { + LOG_ERROR("Target %s doesn't support write_memory", target_name(target)); + return ERROR_FAIL; + } + return target->type->write_memory(target, address, size, count, buffer); +} - if (event == TARGET_EVENT_HALTED) - { - /* execute early halted first */ - target_call_event_callbacks(target, TARGET_EVENT_GDB_HALT); +int target_write_phys_memory(struct target *target, + target_addr_t address, uint32_t size, uint32_t count, const uint8_t *buffer) +{ + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; + } + if (!target->type->write_phys_memory) { + LOG_ERROR("Target %s doesn't support write_phys_memory", target_name(target)); + return ERROR_FAIL; } + return target->type->write_phys_memory(target, address, size, count, buffer); +} - LOG_DEBUG("target event %i (%s)", - event, - Jim_Nvp_value2name_simple(nvp_target_event, event)->name); +int target_add_breakpoint(struct target *target, + struct breakpoint *breakpoint) +{ + if ((target->state != TARGET_HALTED) && (breakpoint->type != BKPT_HARD)) { + LOG_WARNING("target %s is not halted (add breakpoint)", target_name(target)); + return ERROR_TARGET_NOT_HALTED; + } + return target->type->add_breakpoint(target, breakpoint); +} - target_handle_event(target, event); +int target_add_context_breakpoint(struct target *target, + struct breakpoint *breakpoint) +{ + if (target->state != TARGET_HALTED) { + LOG_WARNING("target %s is not halted (add context breakpoint)", target_name(target)); + return ERROR_TARGET_NOT_HALTED; + } + return target->type->add_context_breakpoint(target, breakpoint); +} - while (callback) - { - next_callback = callback->next; - callback->callback(target, event, callback->priv); - callback = next_callback; +int target_add_hybrid_breakpoint(struct target *target, + struct breakpoint *breakpoint) +{ + if (target->state != TARGET_HALTED) { + LOG_WARNING("target %s is not halted (add hybrid breakpoint)", target_name(target)); + return ERROR_TARGET_NOT_HALTED; } + return target->type->add_hybrid_breakpoint(target, breakpoint); +} - return ERROR_OK; +int target_remove_breakpoint(struct target *target, + struct breakpoint *breakpoint) +{ + return target->type->remove_breakpoint(target, breakpoint); } -static int target_timer_callback_periodic_restart( - target_timer_callback_t *cb, struct timeval *now) +int target_add_watchpoint(struct target *target, + struct watchpoint *watchpoint) { - int time_ms = cb->time_ms; - cb->when.tv_usec = now->tv_usec + (time_ms % 1000) * 1000; - time_ms -= (time_ms % 1000); - cb->when.tv_sec = now->tv_sec + time_ms / 1000; - if (cb->when.tv_usec > 1000000) - { - cb->when.tv_usec = cb->when.tv_usec - 1000000; - cb->when.tv_sec += 1; + if (target->state != TARGET_HALTED) { + LOG_WARNING("target %s is not halted (add watchpoint)", target_name(target)); + return ERROR_TARGET_NOT_HALTED; } - return ERROR_OK; + return target->type->add_watchpoint(target, watchpoint); } - -static int target_call_timer_callback(target_timer_callback_t *cb, - struct timeval *now) +int target_remove_watchpoint(struct target *target, + struct watchpoint *watchpoint) { - cb->callback(cb->priv); + return target->type->remove_watchpoint(target, watchpoint); +} +int target_hit_watchpoint(struct target *target, + struct watchpoint **hit_watchpoint) +{ + if (target->state != TARGET_HALTED) { + LOG_WARNING("target %s is not halted (hit watchpoint)", target->cmd_name); + return ERROR_TARGET_NOT_HALTED; + } - if (cb->periodic) - return target_timer_callback_periodic_restart(cb, now); + if (target->type->hit_watchpoint == NULL) { + /* For backward compatible, if hit_watchpoint is not implemented, + * return ERROR_FAIL such that gdb_server will not take the nonsense + * information. */ + return ERROR_FAIL; + } - return target_unregister_timer_callback(cb->callback, cb->priv); + return target->type->hit_watchpoint(target, hit_watchpoint); } -static int target_call_timer_callbacks_check_time(int checktime) +const char *target_get_gdb_arch(struct target *target) { - keep_alive(); - - struct timeval now; - gettimeofday(&now, NULL); + if (target->type->get_gdb_arch == NULL) + return NULL; + return target->type->get_gdb_arch(target); +} - target_timer_callback_t *callback = target_timer_callbacks; - while (callback) - { - // cleaning up may unregister and free this callback - target_timer_callback_t *next_callback = callback->next; +int target_get_gdb_reg_list(struct target *target, + struct reg **reg_list[], int *reg_list_size, + enum target_register_class reg_class) +{ + return target->type->get_gdb_reg_list(target, reg_list, reg_list_size, reg_class); +} - bool call_it = callback->callback && - ((!checktime && callback->periodic) || - now.tv_sec > callback->when.tv_sec || - (now.tv_sec == callback->when.tv_sec && - now.tv_usec >= callback->when.tv_usec)); +bool target_supports_gdb_connection(struct target *target) +{ + /* + * based on current code, we can simply exclude all the targets that + * don't provide get_gdb_reg_list; this could change with new targets. + */ + return !!target->type->get_gdb_reg_list; +} - if (call_it) - { - int retval = target_call_timer_callback(callback, &now); - if (retval != ERROR_OK) - return retval; - } +int target_step(struct target *target, + int current, target_addr_t address, int handle_breakpoints) +{ + return target->type->step(target, current, address, handle_breakpoints); +} - callback = next_callback; +int target_get_gdb_fileio_info(struct target *target, struct gdb_fileio_info *fileio_info) +{ + if (target->state != TARGET_HALTED) { + LOG_WARNING("target %s is not halted (gdb fileio)", target->cmd_name); + return ERROR_TARGET_NOT_HALTED; } - - return ERROR_OK; + return target->type->get_gdb_fileio_info(target, fileio_info); } -int target_call_timer_callbacks(void) +int target_gdb_fileio_end(struct target *target, int retcode, int fileio_errno, bool ctrl_c) { - return target_call_timer_callbacks_check_time(1); + if (target->state != TARGET_HALTED) { + LOG_WARNING("target %s is not halted (gdb fileio end)", target->cmd_name); + return ERROR_TARGET_NOT_HALTED; + } + return target->type->gdb_fileio_end(target, retcode, fileio_errno, ctrl_c); } -/* invoke periodic callbacks immediately */ -int target_call_timer_callbacks_now(void) +int target_profiling(struct target *target, uint32_t *samples, + uint32_t max_num_samples, uint32_t *num_samples, uint32_t seconds) { - return target_call_timer_callbacks_check_time(0); + if (target->state != TARGET_HALTED) { + LOG_WARNING("target %s is not halted (profiling)", target->cmd_name); + return ERROR_TARGET_NOT_HALTED; + } + return target->type->profiling(target, samples, max_num_samples, + num_samples, seconds); } -int target_alloc_working_area(struct target_s *target, uint32_t size, working_area_t **area) +/** + * Reset the @c examined flag for the given target. + * Pure paranoia -- targets are zeroed on allocation. + */ +static void target_reset_examined(struct target *target) { - working_area_t *c = target->working_areas; - working_area_t *new_wa = NULL; + target->examined = false; +} - /* Reevaluate working area address based on MMU state*/ - if (target->working_areas == NULL) - { - int retval; - int enabled; - retval = target->type->mmu(target, &enabled); - if (retval != ERROR_OK) - { - return retval; - } - if (enabled) - { - target->working_area = target->working_area_virt; - } - else - { - target->working_area = target->working_area_phys; - } - } +static int handle_target(void *priv); - /* only allocate multiples of 4 byte */ - if (size % 4) - { - LOG_ERROR("BUG: code tried to allocate unaligned number of bytes (0x%08x), padding", ((unsigned)(size))); - size = (size + 3) & (~3); - } +static int target_init_one(struct command_context *cmd_ctx, + struct target *target) +{ + target_reset_examined(target); - /* see if there's already a matching working area */ - while (c) - { - if ((c->free) && (c->size == size)) - { - new_wa = c; - break; - } - c = c->next; - } + struct target_type *type = target->type; + if (type->examine == NULL) + type->examine = default_examine; - /* if not, allocate a new one */ - if (!new_wa) - { - working_area_t **p = &target->working_areas; - uint32_t first_free = target->working_area; - uint32_t free_size = target->working_area_size; + if (type->check_reset == NULL) + type->check_reset = default_check_reset; - LOG_DEBUG("allocating new working area"); + assert(type->init_target != NULL); - c = target->working_areas; - while (c) - { - first_free += c->size; - free_size -= c->size; - p = &c->next; - c = c->next; - } + int retval = type->init_target(cmd_ctx, target); + if (ERROR_OK != retval) { + LOG_ERROR("target '%s' init failed", target_name(target)); + return retval; + } - if (free_size < size) - { - LOG_WARNING("not enough working area available(requested %u, free %u)", - (unsigned)(size), (unsigned)(free_size)); - return ERROR_TARGET_RESOURCE_NOT_AVAILABLE; + /* Sanity-check MMU support ... stub in what we must, to help + * implement it in stages, but warn if we need to do so. + */ + if (type->mmu) { + if (type->virt2phys == NULL) { + LOG_ERROR("type '%s' is missing virt2phys", type->name); + type->virt2phys = identity_virt2phys; } + } else { + /* Make sure no-MMU targets all behave the same: make no + * distinction between physical and virtual addresses, and + * ensure that virt2phys() is always an identity mapping. + */ + if (type->write_phys_memory || type->read_phys_memory || type->virt2phys) + LOG_WARNING("type '%s' has bad MMU hooks", type->name); - new_wa = malloc(sizeof(working_area_t)); - new_wa->next = NULL; - new_wa->size = size; - new_wa->address = first_free; + type->mmu = no_mmu; + type->write_phys_memory = type->write_memory; + type->read_phys_memory = type->read_memory; + type->virt2phys = identity_virt2phys; + } - if (target->backup_working_area) - { - int retval; - new_wa->backup = malloc(new_wa->size); - if ((retval = target_read_memory(target, new_wa->address, 4, new_wa->size / 4, new_wa->backup)) != ERROR_OK) - { - free(new_wa->backup); - free(new_wa); - return retval; - } - } - else - { - new_wa->backup = NULL; - } + if (target->type->read_buffer == NULL) + target->type->read_buffer = target_read_buffer_default; - /* put new entry in list */ - *p = new_wa; - } + if (target->type->write_buffer == NULL) + target->type->write_buffer = target_write_buffer_default; - /* mark as used, and return the new (reused) area */ - new_wa->free = 0; - *area = new_wa; + if (target->type->get_gdb_fileio_info == NULL) + target->type->get_gdb_fileio_info = target_get_gdb_fileio_info_default; - /* user pointer */ - new_wa->user = area; + if (target->type->gdb_fileio_end == NULL) + target->type->gdb_fileio_end = target_gdb_fileio_end_default; + + if (target->type->profiling == NULL) + target->type->profiling = target_profiling_default; return ERROR_OK; } -int target_free_working_area_restore(struct target_s *target, working_area_t *area, int restore) +static int target_init(struct command_context *cmd_ctx) { - if (area->free) - return ERROR_OK; + struct target *target; + int retval; - if (restore && target->backup_working_area) - { - int retval; - if ((retval = target_write_memory(target, area->address, 4, area->size / 4, area->backup)) != ERROR_OK) + for (target = all_targets; target; target = target->next) { + retval = target_init_one(cmd_ctx, target); + if (ERROR_OK != retval) return retval; } - area->free = 1; + if (!all_targets) + return ERROR_OK; - /* mark user pointer invalid */ - *area->user = NULL; - area->user = NULL; + retval = target_register_user_commands(cmd_ctx); + if (ERROR_OK != retval) + return retval; - return ERROR_OK; -} + retval = target_register_timer_callback(&handle_target, + polling_interval, 1, cmd_ctx->interp); + if (ERROR_OK != retval) + return retval; -int target_free_working_area(struct target_s *target, working_area_t *area) -{ - return target_free_working_area_restore(target, area, 1); + return ERROR_OK; } -/* free resources and restore memory, if restoring memory fails, - * free up resources anyway - */ -void target_free_all_working_areas_restore(struct target_s *target, int restore) +COMMAND_HANDLER(handle_target_init_command) { - working_area_t *c = target->working_areas; + int retval; - while (c) - { - working_area_t *next = c->next; - target_free_working_area_restore(target, c, restore); + if (CMD_ARGC != 0) + return ERROR_COMMAND_SYNTAX_ERROR; - if (c->backup) - free(c->backup); + static bool target_initialized; + if (target_initialized) { + LOG_INFO("'target init' has already been called"); + return ERROR_OK; + } + target_initialized = true; - free(c); + retval = command_run_line(CMD_CTX, "init_targets"); + if (ERROR_OK != retval) + return retval; - c = next; - } + retval = command_run_line(CMD_CTX, "init_target_events"); + if (ERROR_OK != retval) + return retval; - target->working_areas = NULL; -} + retval = command_run_line(CMD_CTX, "init_board"); + if (ERROR_OK != retval) + return retval; -void target_free_all_working_areas(struct target_s *target) -{ - target_free_all_working_areas_restore(target, 1); + LOG_DEBUG("Initializing targets..."); + return target_init(CMD_CTX); } -int target_register_commands(struct command_context_s *cmd_ctx) +int target_register_event_callback(int (*callback)(struct target *target, + enum target_event event, void *priv), void *priv) { + struct target_event_callback **callbacks_p = &target_event_callbacks; - register_command(cmd_ctx, NULL, "targets", handle_targets_command, COMMAND_EXEC, "change the current command line target (one parameter) or lists targets (with no parameter)"); + if (callback == NULL) + return ERROR_COMMAND_SYNTAX_ERROR; + if (*callbacks_p) { + while ((*callbacks_p)->next) + callbacks_p = &((*callbacks_p)->next); + callbacks_p = &((*callbacks_p)->next); + } - - - register_jim(cmd_ctx, "target", jim_target, "configure target"); + (*callbacks_p) = malloc(sizeof(struct target_event_callback)); + (*callbacks_p)->callback = callback; + (*callbacks_p)->priv = priv; + (*callbacks_p)->next = NULL; return ERROR_OK; } -int target_arch_state(struct target_s *target) +int target_register_reset_callback(int (*callback)(struct target *target, + enum target_reset_mode reset_mode, void *priv), void *priv) { - int retval; - if (target == NULL) - { - LOG_USER("No target has been configured"); - return ERROR_OK; + struct target_reset_callback *entry; + + if (callback == NULL) + return ERROR_COMMAND_SYNTAX_ERROR; + + entry = malloc(sizeof(struct target_reset_callback)); + if (entry == NULL) { + LOG_ERROR("error allocating buffer for reset callback entry"); + return ERROR_COMMAND_SYNTAX_ERROR; } - LOG_USER("target state: %s", target_state_name( target )); + entry->callback = callback; + entry->priv = priv; + list_add(&entry->list, &target_reset_callback_list); - if (target->state != TARGET_HALTED) - return ERROR_OK; - retval = target->type->arch_state(target); - return retval; + return ERROR_OK; } -/* Single aligned words are guaranteed to use 16 or 32 bit access - * mode respectively, otherwise data is handled as quickly as - * possible - */ -int target_write_buffer(struct target_s *target, uint32_t address, uint32_t size, uint8_t *buffer) +int target_register_trace_callback(int (*callback)(struct target *target, + size_t len, uint8_t *data, void *priv), void *priv) { - int retval; - LOG_DEBUG("writing buffer of %i byte at 0x%8.8x", - (int)size, (unsigned)address); + struct target_trace_callback *entry; - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; - } + if (callback == NULL) + return ERROR_COMMAND_SYNTAX_ERROR; - if (size == 0) { - return ERROR_OK; + entry = malloc(sizeof(struct target_trace_callback)); + if (entry == NULL) { + LOG_ERROR("error allocating buffer for trace callback entry"); + return ERROR_COMMAND_SYNTAX_ERROR; } - if ((address + size - 1) < address) - { - /* GDB can request this when e.g. PC is 0xfffffffc*/ - LOG_ERROR("address + size wrapped(0x%08x, 0x%08x)", - (unsigned)address, - (unsigned)size); - return ERROR_FAIL; - } + entry->callback = callback; + entry->priv = priv; + list_add(&entry->list, &target_trace_callback_list); - if (((address % 2) == 0) && (size == 2)) - { - return target_write_memory(target, address, 2, 1, buffer); - } - /* handle unaligned head bytes */ - if (address % 4) - { - uint32_t unaligned = 4 - (address % 4); + return ERROR_OK; +} - if (unaligned > size) - unaligned = size; +int target_register_timer_callback(int (*callback)(void *priv), int time_ms, int periodic, void *priv) +{ + struct target_timer_callback **callbacks_p = &target_timer_callbacks; - if ((retval = target_write_memory(target, address, 1, unaligned, buffer)) != ERROR_OK) - return retval; + if (callback == NULL) + return ERROR_COMMAND_SYNTAX_ERROR; - buffer += unaligned; - address += unaligned; - size -= unaligned; + if (*callbacks_p) { + while ((*callbacks_p)->next) + callbacks_p = &((*callbacks_p)->next); + callbacks_p = &((*callbacks_p)->next); } - /* handle aligned words */ - if (size >= 4) - { - int aligned = size - (size % 4); - - /* use bulk writes above a certain limit. This may have to be changed */ - if (aligned > 128) - { - if ((retval = target->type->bulk_write_memory(target, address, aligned / 4, buffer)) != ERROR_OK) - return retval; - } - else - { - if ((retval = target_write_memory(target, address, 4, aligned / 4, buffer)) != ERROR_OK) - return retval; - } + (*callbacks_p) = malloc(sizeof(struct target_timer_callback)); + (*callbacks_p)->callback = callback; + (*callbacks_p)->periodic = periodic; + (*callbacks_p)->time_ms = time_ms; + (*callbacks_p)->removed = false; - buffer += aligned; - address += aligned; - size -= aligned; - } + gettimeofday(&(*callbacks_p)->when, NULL); + timeval_add_time(&(*callbacks_p)->when, 0, time_ms * 1000); - /* handle tail writes of less than 4 bytes */ - if (size > 0) - { - if ((retval = target_write_memory(target, address, 1, size, buffer)) != ERROR_OK) - return retval; - } + (*callbacks_p)->priv = priv; + (*callbacks_p)->next = NULL; return ERROR_OK; } -/* Single aligned words are guaranteed to use 16 or 32 bit access - * mode respectively, otherwise data is handled as quickly as - * possible - */ -int target_read_buffer(struct target_s *target, uint32_t address, uint32_t size, uint8_t *buffer) +int target_unregister_event_callback(int (*callback)(struct target *target, + enum target_event event, void *priv), void *priv) { - int retval; - LOG_DEBUG("reading buffer of %i byte at 0x%8.8x", - (int)size, (unsigned)address); - - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; - } - - if (size == 0) { - return ERROR_OK; - } + struct target_event_callback **p = &target_event_callbacks; + struct target_event_callback *c = target_event_callbacks; - if ((address + size - 1) < address) - { - /* GDB can request this when e.g. PC is 0xfffffffc*/ - LOG_ERROR("address + size wrapped(0x%08" PRIx32 ", 0x%08" PRIx32 ")", - address, - size); - return ERROR_FAIL; - } + if (callback == NULL) + return ERROR_COMMAND_SYNTAX_ERROR; - if (((address % 2) == 0) && (size == 2)) - { - return target_read_memory(target, address, 2, 1, buffer); + while (c) { + struct target_event_callback *next = c->next; + if ((c->callback == callback) && (c->priv == priv)) { + *p = next; + free(c); + return ERROR_OK; + } else + p = &(c->next); + c = next; } - /* handle unaligned head bytes */ - if (address % 4) - { - uint32_t unaligned = 4 - (address % 4); + return ERROR_OK; +} - if (unaligned > size) - unaligned = size; +int target_unregister_reset_callback(int (*callback)(struct target *target, + enum target_reset_mode reset_mode, void *priv), void *priv) +{ + struct target_reset_callback *entry; - if ((retval = target_read_memory(target, address, 1, unaligned, buffer)) != ERROR_OK) - return retval; + if (callback == NULL) + return ERROR_COMMAND_SYNTAX_ERROR; - buffer += unaligned; - address += unaligned; - size -= unaligned; + list_for_each_entry(entry, &target_reset_callback_list, list) { + if (entry->callback == callback && entry->priv == priv) { + list_del(&entry->list); + free(entry); + break; + } } - /* handle aligned words */ - if (size >= 4) - { - int aligned = size - (size % 4); - - if ((retval = target_read_memory(target, address, 4, aligned / 4, buffer)) != ERROR_OK) - return retval; + return ERROR_OK; +} - buffer += aligned; - address += aligned; - size -= aligned; - } +int target_unregister_trace_callback(int (*callback)(struct target *target, + size_t len, uint8_t *data, void *priv), void *priv) +{ + struct target_trace_callback *entry; - /*prevent byte access when possible (avoid AHB access limitations in some cases)*/ - if(size >=2) - { - int aligned = size - (size%2); - retval = target_read_memory(target, address, 2, aligned / 2, buffer); - if (retval != ERROR_OK) - return retval; + if (callback == NULL) + return ERROR_COMMAND_SYNTAX_ERROR; - buffer += aligned; - address += aligned; - size -= aligned; - } - /* handle tail writes of less than 4 bytes */ - if (size > 0) - { - if ((retval = target_read_memory(target, address, 1, size, buffer)) != ERROR_OK) - return retval; + list_for_each_entry(entry, &target_trace_callback_list, list) { + if (entry->callback == callback && entry->priv == priv) { + list_del(&entry->list); + free(entry); + break; + } } return ERROR_OK; } -int target_checksum_memory(struct target_s *target, uint32_t address, uint32_t size, uint32_t* crc) +int target_unregister_timer_callback(int (*callback)(void *priv), void *priv) { - uint8_t *buffer; - int retval; - uint32_t i; - uint32_t checksum = 0; - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; - } - - if ((retval = target->type->checksum_memory(target, address, - size, &checksum)) != ERROR_OK) - { - buffer = malloc(size); - if (buffer == NULL) - { - LOG_ERROR("error allocating buffer for section (%d bytes)", (int)size); - return ERROR_INVALID_ARGUMENTS; - } - retval = target_read_buffer(target, address, size, buffer); - if (retval != ERROR_OK) - { - free(buffer); - return retval; - } + if (callback == NULL) + return ERROR_COMMAND_SYNTAX_ERROR; - /* convert to target endianess */ - for (i = 0; i < (size/sizeof(uint32_t)); i++) - { - uint32_t target_data; - target_data = target_buffer_get_u32(target, &buffer[i*sizeof(uint32_t)]); - target_buffer_set_u32(target, &buffer[i*sizeof(uint32_t)], target_data); + for (struct target_timer_callback *c = target_timer_callbacks; + c; c = c->next) { + if ((c->callback == callback) && (c->priv == priv)) { + c->removed = true; + return ERROR_OK; } - - retval = image_calculate_checksum(buffer, size, &checksum); - free(buffer); } - *crc = checksum; - - return retval; + return ERROR_FAIL; } -int target_blank_check_memory(struct target_s *target, uint32_t address, uint32_t size, uint32_t* blank) +int target_call_event_callbacks(struct target *target, enum target_event event) { - int retval; - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; + struct target_event_callback *callback = target_event_callbacks; + struct target_event_callback *next_callback; + + if (event == TARGET_EVENT_HALTED) { + /* execute early halted first */ + target_call_event_callbacks(target, TARGET_EVENT_GDB_HALT); } - if (target->type->blank_check_memory == 0) - return ERROR_TARGET_RESOURCE_NOT_AVAILABLE; + LOG_DEBUG("target event %i (%s)", event, + Jim_Nvp_value2name_simple(nvp_target_event, event)->name); + + target_handle_event(target, event); - retval = target->type->blank_check_memory(target, address, size, blank); + while (callback) { + next_callback = callback->next; + callback->callback(target, event, callback->priv); + callback = next_callback; + } - return retval; + return ERROR_OK; } -int target_read_u32(struct target_s *target, uint32_t address, uint32_t *value) +int target_call_reset_callbacks(struct target *target, enum target_reset_mode reset_mode) { - uint8_t value_buf[4]; - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; - } + struct target_reset_callback *callback; - int retval = target_read_memory(target, address, 4, 1, value_buf); + LOG_DEBUG("target reset %i (%s)", reset_mode, + Jim_Nvp_value2name_simple(nvp_reset_modes, reset_mode)->name); - if (retval == ERROR_OK) - { - *value = target_buffer_get_u32(target, value_buf); - LOG_DEBUG("address: 0x%8.8" PRIx32 ", value: 0x%8.8" PRIx32 "", - address, - *value); - } - else - { - *value = 0x0; - LOG_DEBUG("address: 0x%8.8" PRIx32 " failed", - address); - } + list_for_each_entry(callback, &target_reset_callback_list, list) + callback->callback(target, reset_mode, callback->priv); - return retval; + return ERROR_OK; } -int target_read_u16(struct target_s *target, uint32_t address, uint16_t *value) +int target_call_trace_callbacks(struct target *target, size_t len, uint8_t *data) { - uint8_t value_buf[2]; - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; - } + struct target_trace_callback *callback; - int retval = target_read_memory(target, address, 2, 1, value_buf); + list_for_each_entry(callback, &target_trace_callback_list, list) + callback->callback(target, len, data, callback->priv); - if (retval == ERROR_OK) - { - *value = target_buffer_get_u16(target, value_buf); - LOG_DEBUG("address: 0x%8.8" PRIx32 ", value: 0x%4.4x", - address, - *value); - } - else - { - *value = 0x0; - LOG_DEBUG("address: 0x%8.8" PRIx32 " failed", - address); - } + return ERROR_OK; +} - return retval; +static int target_timer_callback_periodic_restart( + struct target_timer_callback *cb, struct timeval *now) +{ + cb->when = *now; + timeval_add_time(&cb->when, 0, cb->time_ms * 1000L); + return ERROR_OK; } -int target_read_u8(struct target_s *target, uint32_t address, uint8_t *value) +static int target_call_timer_callback(struct target_timer_callback *cb, + struct timeval *now) { - int retval = target_read_memory(target, address, 1, 1, value); - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; - } + cb->callback(cb->priv); - if (retval == ERROR_OK) - { - LOG_DEBUG("address: 0x%8.8" PRIx32 ", value: 0x%2.2x", - address, - *value); - } - else - { - *value = 0x0; - LOG_DEBUG("address: 0x%8.8" PRIx32 " failed", - address); - } + if (cb->periodic) + return target_timer_callback_periodic_restart(cb, now); - return retval; + return target_unregister_timer_callback(cb->callback, cb->priv); } -int target_write_u32(struct target_s *target, uint32_t address, uint32_t value) +static int target_call_timer_callbacks_check_time(int checktime) { - int retval; - uint8_t value_buf[4]; - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; - } + static bool callback_processing; - LOG_DEBUG("address: 0x%8.8" PRIx32 ", value: 0x%8.8" PRIx32 "", - address, - value); + /* Do not allow nesting */ + if (callback_processing) + return ERROR_OK; - target_buffer_set_u32(target, value_buf, value); - if ((retval = target_write_memory(target, address, 4, 1, value_buf)) != ERROR_OK) - { - LOG_DEBUG("failed: %i", retval); - } + callback_processing = true; - return retval; -} + keep_alive(); -int target_write_u16(struct target_s *target, uint32_t address, uint16_t value) -{ - int retval; - uint8_t value_buf[2]; - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; - } + struct timeval now; + gettimeofday(&now, NULL); - LOG_DEBUG("address: 0x%8.8" PRIx32 ", value: 0x%8.8x", - address, - value); + /* Store an address of the place containing a pointer to the + * next item; initially, that's a standalone "root of the + * list" variable. */ + struct target_timer_callback **callback = &target_timer_callbacks; + while (*callback) { + if ((*callback)->removed) { + struct target_timer_callback *p = *callback; + *callback = (*callback)->next; + free(p); + continue; + } - target_buffer_set_u16(target, value_buf, value); - if ((retval = target_write_memory(target, address, 2, 1, value_buf)) != ERROR_OK) - { - LOG_DEBUG("failed: %i", retval); + bool call_it = (*callback)->callback && + ((!checktime && (*callback)->periodic) || + timeval_compare(&now, &(*callback)->when) >= 0); + + if (call_it) + target_call_timer_callback(*callback, &now); + + callback = &(*callback)->next; } - return retval; + callback_processing = false; + return ERROR_OK; } -int target_write_u8(struct target_s *target, uint32_t address, uint8_t value) +int target_call_timer_callbacks(void) { - int retval; - if (!target_was_examined(target)) - { - LOG_ERROR("Target not examined yet"); - return ERROR_FAIL; - } + return target_call_timer_callbacks_check_time(1); +} - LOG_DEBUG("address: 0x%8.8" PRIx32 ", value: 0x%2.2x", - address, value); +/* invoke periodic callbacks immediately */ +int target_call_timer_callbacks_now(void) +{ + return target_call_timer_callbacks_check_time(0); +} - if ((retval = target_write_memory(target, address, 1, 1, &value)) != ERROR_OK) - { - LOG_DEBUG("failed: %i", retval); - } +/* Prints the working area layout for debug purposes */ +static void print_wa_layout(struct target *target) +{ + struct working_area *c = target->working_areas; - return retval; + while (c) { + LOG_DEBUG("%c%c " TARGET_ADDR_FMT "-" TARGET_ADDR_FMT " (%" PRIu32 " bytes)", + c->backup ? 'b' : ' ', c->free ? ' ' : '*', + c->address, c->address + c->size - 1, c->size); + c = c->next; + } } -int target_register_user_commands(struct command_context_s *cmd_ctx) +/* Reduce area to size bytes, create a new free area from the remaining bytes, if any. */ +static void target_split_working_area(struct working_area *area, uint32_t size) { - int retval = ERROR_OK; + assert(area->free); /* Shouldn't split an allocated area */ + assert(size <= area->size); /* Caller should guarantee this */ + /* Split only if not already the right size */ + if (size < area->size) { + struct working_area *new_wa = malloc(sizeof(*new_wa)); - /* script procedures */ - 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_array2mem", jim_array2mem, "convert a TCL array to memory locations and write the values
"); - - 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"); - - register_command(cmd_ctx, NULL, "fast_load", handle_fast_load_command, COMMAND_ANY, - "loads active fast load image to current target - mainly for profiling purposes"); - - - register_command(cmd_ctx, NULL, "virt2phys", handle_virt2phys_command, COMMAND_ANY, "translate a virtual address into a physical address"); - register_command(cmd_ctx, NULL, "reg", handle_reg_command, COMMAND_EXEC, "display or set a register"); - register_command(cmd_ctx, NULL, "poll", handle_poll_command, COMMAND_EXEC, "poll target state"); - register_command(cmd_ctx, NULL, "wait_halt", handle_wait_halt_command, COMMAND_EXEC, "wait for target halt [time (s)]"); - register_command(cmd_ctx, NULL, "halt", handle_halt_command, COMMAND_EXEC, "halt target"); - register_command(cmd_ctx, NULL, "resume", handle_resume_command, COMMAND_EXEC, "resume target [addr]"); - register_command(cmd_ctx, NULL, "step", handle_step_command, COMMAND_EXEC, "step one instruction from current PC or [addr]"); - register_command(cmd_ctx, NULL, "reset", handle_reset_command, COMMAND_EXEC, "reset target [run | halt | init] - default is run"); - register_command(cmd_ctx, NULL, "soft_reset_halt", handle_soft_reset_halt_command, COMMAND_EXEC, "halt the target and do a soft reset"); - - register_command(cmd_ctx, NULL, "mdw", handle_md_command, COMMAND_EXEC, "display memory words [phys] [count]"); - register_command(cmd_ctx, NULL, "mdh", handle_md_command, COMMAND_EXEC, "display memory half-words [phys] [count]"); - register_command(cmd_ctx, NULL, "mdb", handle_md_command, COMMAND_EXEC, "display memory bytes [phys] [count]"); - - register_command(cmd_ctx, NULL, "mww", handle_mw_command, COMMAND_EXEC, "write memory word [phys] [count]"); - register_command(cmd_ctx, NULL, "mwh", handle_mw_command, COMMAND_EXEC, "write memory half-word [phys] [count]"); - register_command(cmd_ctx, NULL, "mwb", handle_mw_command, COMMAND_EXEC, "write memory byte [phys] [count]"); - - register_command(cmd_ctx, NULL, "bp", - handle_bp_command, COMMAND_EXEC, - "list or set breakpoint [
[hw]]"); - register_command(cmd_ctx, NULL, "rbp", - handle_rbp_command, COMMAND_EXEC, - "remove breakpoint
"); - register_command(cmd_ctx, NULL, "wp", - handle_wp_command, COMMAND_EXEC, - "list or set watchpoint " - "[
[value] [mask]]"); - register_command(cmd_ctx, NULL, "rwp", - handle_rwp_command, COMMAND_EXEC, - "remove watchpoint
"); - - register_command(cmd_ctx, NULL, "load_image", handle_load_image_command, COMMAND_EXEC, "load_image
['bin'|'ihex'|'elf'|'s19'] [min_address] [max_length]"); - register_command(cmd_ctx, NULL, "dump_image", handle_dump_image_command, COMMAND_EXEC, "dump_image
"); - register_command(cmd_ctx, NULL, "verify_image", handle_verify_image_command, COMMAND_EXEC, "verify_image [offset] [type]"); - register_command(cmd_ctx, NULL, "test_image", handle_test_image_command, COMMAND_EXEC, "test_image [offset] [type]"); - - if ((retval = target_request_register_commands(cmd_ctx)) != ERROR_OK) - return retval; - if ((retval = trace_register_commands(cmd_ctx)) != ERROR_OK) - return retval; + if (new_wa == NULL) + return; - return retval; + new_wa->next = area->next; + new_wa->size = area->size - size; + new_wa->address = area->address + size; + new_wa->backup = NULL; + new_wa->user = NULL; + new_wa->free = true; + + area->next = new_wa; + area->size = size; + + /* If backup memory was allocated to this area, it has the wrong size + * now so free it and it will be reallocated if/when needed */ + if (area->backup) { + free(area->backup); + area->backup = NULL; + } + } } -static int handle_targets_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +/* Merge all adjacent free areas into one */ +static void target_merge_working_areas(struct target *target) { - target_t *target = all_targets; + struct working_area *c = target->working_areas; + + while (c && c->next) { + assert(c->next->address == c->address + c->size); /* This is an invariant */ + + /* Find two adjacent free areas */ + if (c->free && c->next->free) { + /* Merge the last into the first */ + c->size += c->next->size; + + /* Remove the last */ + struct working_area *to_be_freed = c->next; + c->next = c->next->next; + if (to_be_freed->backup) + free(to_be_freed->backup); + free(to_be_freed); + + /* If backup memory was allocated to the remaining area, it's has + * the wrong size now */ + if (c->backup) { + free(c->backup); + c->backup = NULL; + } + } else { + c = c->next; + } + } +} - if (argc == 1) - { - target = get_target(args[0]); - if (target == NULL) { - command_print(cmd_ctx,"Target: %s is unknown, try one of:\n", args[0]); - goto DumpTargets; +int target_alloc_working_area_try(struct target *target, uint32_t size, struct working_area **area) +{ + /* Reevaluate working area address based on MMU state*/ + if (target->working_areas == NULL) { + int retval; + int enabled; + + retval = target->type->mmu(target, &enabled); + if (retval != ERROR_OK) + return retval; + + if (!enabled) { + if (target->working_area_phys_spec) { + LOG_DEBUG("MMU disabled, using physical " + "address for working memory " TARGET_ADDR_FMT, + target->working_area_phys); + target->working_area = target->working_area_phys; + } else { + LOG_ERROR("No working memory available. " + "Specify -work-area-phys to target."); + return ERROR_TARGET_RESOURCE_NOT_AVAILABLE; + } + } else { + if (target->working_area_virt_spec) { + LOG_DEBUG("MMU enabled, using virtual " + "address for working memory " TARGET_ADDR_FMT, + target->working_area_virt); + target->working_area = target->working_area_virt; + } else { + LOG_ERROR("No working memory available. " + "Specify -work-area-virt to target."); + return ERROR_TARGET_RESOURCE_NOT_AVAILABLE; + } } - if (!target->tap->enabled) { - command_print(cmd_ctx,"Target: TAP %s is disabled, " - "can't be the current target\n", - target->tap->dotted_name); - return ERROR_FAIL; + + /* Set up initial working area on first call */ + struct working_area *new_wa = malloc(sizeof(*new_wa)); + if (new_wa) { + new_wa->next = NULL; + new_wa->size = target->working_area_size & ~3UL; /* 4-byte align */ + new_wa->address = target->working_area; + new_wa->backup = NULL; + new_wa->user = NULL; + new_wa->free = true; } - cmd_ctx->current_target = target->target_number; - return ERROR_OK; + target->working_areas = new_wa; } -DumpTargets: - target = all_targets; - command_print(cmd_ctx, " TargetName Type Endian TapName State "); - command_print(cmd_ctx, "-- ------------------ ---------- ------ ------------------ ------------"); - while (target) - { - const char *state; - char marker = ' '; + /* only allocate multiples of 4 byte */ + if (size % 4) + size = (size + 3) & (~3UL); - if (target->tap->enabled) - state = target_state_name( target ); - else - state = "tap-disabled"; + struct working_area *c = target->working_areas; - if (cmd_ctx->current_target == target->target_number) - marker = '*'; + /* Find the first large enough working area */ + while (c) { + if (c->free && c->size >= size) + break; + c = c->next; + } - /* keep columns lined up to match the headers above */ - command_print(cmd_ctx, "%2d%c %-18s %-10s %-6s %-18s %s", - target->target_number, - marker, - target->cmd_name, - target_get_name(target), - Jim_Nvp_value2name_simple(nvp_target_endian, - target->endianness)->name, - target->tap->dotted_name, - state); - target = target->next; + if (c == NULL) + return ERROR_TARGET_RESOURCE_NOT_AVAILABLE; + + /* Split the working area into the requested size */ + target_split_working_area(c, size); + + LOG_DEBUG("allocated new working area of %" PRIu32 " bytes at address " TARGET_ADDR_FMT, + size, c->address); + + if (target->backup_working_area) { + if (c->backup == NULL) { + c->backup = malloc(c->size); + if (c->backup == NULL) + return ERROR_FAIL; + } + + int retval = target_read_memory(target, c->address, 4, c->size / 4, c->backup); + if (retval != ERROR_OK) + return retval; } + /* mark as used, and return the new (reused) area */ + c->free = false; + *area = c; + + /* user pointer */ + c->user = area; + + print_wa_layout(target); + return ERROR_OK; } -/* every 300ms we check for reset & powerdropout and issue a "reset halt" if so. */ +int target_alloc_working_area(struct target *target, uint32_t size, struct working_area **area) +{ + int retval; -static int powerDropout; -static int srstAsserted; + retval = target_alloc_working_area_try(target, size, area); + if (retval == ERROR_TARGET_RESOURCE_NOT_AVAILABLE) + LOG_WARNING("not enough working area available(requested %"PRIu32")", size); + return retval; -static int runPowerRestore; -static int runPowerDropout; -static int runSrstAsserted; -static int runSrstDeasserted; +} -static int sense_handler(void) +static int target_restore_working_area(struct target *target, struct working_area *area) { - static int prevSrstAsserted = 0; - static int prevPowerdropout = 0; - - int retval; - if ((retval = jtag_power_dropout(&powerDropout)) != ERROR_OK) - return retval; + int retval = ERROR_OK; - int powerRestored; - powerRestored = prevPowerdropout && !powerDropout; - if (powerRestored) - { - runPowerRestore = 1; + if (target->backup_working_area && area->backup != NULL) { + retval = target_write_memory(target, area->address, 4, area->size / 4, area->backup); + if (retval != ERROR_OK) + LOG_ERROR("failed to restore %" PRIu32 " bytes of working area at address " TARGET_ADDR_FMT, + area->size, area->address); } - long long current = timeval_ms(); - static long long lastPower = 0; - int waitMore = lastPower + 2000 > current; - if (powerDropout && !waitMore) - { - runPowerDropout = 1; - lastPower = current; - } + return retval; +} - if ((retval = jtag_srst_asserted(&srstAsserted)) != ERROR_OK) - return retval; +/* Restore the area's backup memory, if any, and return the area to the allocation pool */ +static int target_free_working_area_restore(struct target *target, struct working_area *area, int restore) +{ + int retval = ERROR_OK; - int srstDeasserted; - srstDeasserted = prevSrstAsserted && !srstAsserted; + if (area->free) + return retval; - static long long lastSrst = 0; - waitMore = lastSrst + 2000 > current; - if (srstDeasserted && !waitMore) - { - runSrstDeasserted = 1; - lastSrst = current; + if (restore) { + retval = target_restore_working_area(target, area); + /* REVISIT: Perhaps the area should be freed even if restoring fails. */ + if (retval != ERROR_OK) + return retval; } - if (!prevSrstAsserted && srstAsserted) - { - runSrstAsserted = 1; - } + area->free = true; - prevSrstAsserted = srstAsserted; - prevPowerdropout = powerDropout; + LOG_DEBUG("freed %" PRIu32 " bytes of working area at address " TARGET_ADDR_FMT, + area->size, area->address); - if (srstDeasserted || powerRestored) - { - /* Other than logging the event we can't do anything here. - * Issuing a reset is a particularly bad idea as we might - * be inside a reset already. - */ - } + /* mark user pointer invalid */ + /* TODO: Is this really safe? It points to some previous caller's memory. + * How could we know that the area pointer is still in that place and not + * some other vital data? What's the purpose of this, anyway? */ + *area->user = NULL; + area->user = NULL; - return ERROR_OK; -} + target_merge_working_areas(target); -static void target_call_event_callbacks_all(enum target_event e) { - target_t *target; - target = all_targets; - while (target) { - target_call_event_callbacks(target, e); - target = target->next; - } + print_wa_layout(target); + + return retval; } -/* process target state changes */ -int handle_target(void *priv) +int target_free_working_area(struct target *target, struct working_area *area) { - int retval = ERROR_OK; - - /* we do not want to recurse here... */ - static int recursive = 0; - if (! recursive) - { - recursive = 1; - sense_handler(); - /* danger! running these procedures can trigger srst assertions and power dropouts. - * We need to avoid an infinite loop/recursion here and we do that by - * clearing the flags after running these events. - */ - int did_something = 0; - if (runSrstAsserted) - { - target_call_event_callbacks_all(TARGET_EVENT_GDB_HALT); - Jim_Eval(interp, "srst_asserted"); - did_something = 1; - } - if (runSrstDeasserted) - { - Jim_Eval(interp, "srst_deasserted"); - did_something = 1; - } - if (runPowerDropout) - { - target_call_event_callbacks_all(TARGET_EVENT_GDB_HALT); - Jim_Eval(interp, "power_dropout"); - did_something = 1; - } - if (runPowerRestore) - { - Jim_Eval(interp, "power_restore"); - did_something = 1; - } + return target_free_working_area_restore(target, area, 1); +} - if (did_something) - { - /* clear detect flags */ - sense_handler(); - } +static void target_destroy(struct target *target) +{ + if (target->type->deinit_target) + target->type->deinit_target(target); - /* clear action flags */ + if (target->semihosting) + free(target->semihosting); - runSrstAsserted = 0; - runSrstDeasserted = 0; - runPowerRestore = 0; - runPowerDropout = 0; + jtag_unregister_event_callback(jtag_enable_callback, target); - recursive = 0; + struct target_event_action *teap = target->event_action; + while (teap) { + struct target_event_action *next = teap->next; + Jim_DecrRefCount(teap->interp, teap->body); + free(teap); + teap = next; } - /* Poll targets for state changes unless that's globally disabled. - * Skip targets that are currently disabled. - */ - for (target_t *target = all_targets; - is_jtag_poll_safe() && target; - target = target->next) - { - if (!target->tap->enabled) - continue; + target_free_all_working_areas(target); + /* Now we have none or only one working area marked as free */ + if (target->working_areas) { + free(target->working_areas->backup); + free(target->working_areas); + } - /* only poll target if we've got power and srst isn't asserted */ - if (!powerDropout && !srstAsserted) - { - /* polling may fail silently until the target has been examined */ - if ((retval = target_poll(target)) != ERROR_OK) - { - target_call_event_callbacks(target, TARGET_EVENT_GDB_HALT); - return retval; - } + /* release the targets SMP list */ + if (target->smp) { + struct target_list *head = target->head; + while (head != NULL) { + struct target_list *pos = head->next; + head->target->smp = 0; + free(head); + head = pos; } + target->smp = 0; } - return retval; + free(target->gdb_port_override); + free(target->type); + free(target->trace_info); + free(target->fileio_info); + free(target->cmd_name); + free(target); } -static int handle_reg_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +void target_quit(void) { - target_t *target; - reg_t *reg = NULL; - int count = 0; - char *value; + struct target_event_callback *pe = target_event_callbacks; + while (pe) { + struct target_event_callback *t = pe->next; + free(pe); + pe = t; + } + target_event_callbacks = NULL; - LOG_DEBUG("-"); + struct target_timer_callback *pt = target_timer_callbacks; + while (pt) { + struct target_timer_callback *t = pt->next; + free(pt); + pt = t; + } + target_timer_callbacks = NULL; - target = get_current_target(cmd_ctx); + for (struct target *target = all_targets; target;) { + struct target *tmp; - /* list all available registers for the current target */ - if (argc == 0) - { - reg_cache_t *cache = target->reg_cache; + tmp = target->next; + target_destroy(target); + target = tmp; + } - count = 0; - while (cache) - { - int i; + all_targets = NULL; +} - command_print(cmd_ctx, "===== %s", cache->name); +/* free resources and restore memory, if restoring memory fails, + * free up resources anyway + */ +static void target_free_all_working_areas_restore(struct target *target, int restore) +{ + struct working_area *c = target->working_areas; - for (i = 0, reg = cache->reg_list; - i < cache->num_regs; - i++, reg++, count++) - { - /* only print cached values if they are valid */ - if (reg->valid) { - value = buf_to_str(reg->value, - reg->size, 16); - command_print(cmd_ctx, - "(%i) %s (/%" PRIu32 "): 0x%s%s", - count, reg->name, - reg->size, value, - reg->dirty - ? " (dirty)" - : ""); - free(value); - } else { - command_print(cmd_ctx, "(%i) %s (/%" PRIu32 ")", - count, reg->name, - reg->size) ; - } - } - cache = cache->next; - } + LOG_DEBUG("freeing all working areas"); - return ERROR_OK; + /* Loop through all areas, restoring the allocated ones and marking them as free */ + while (c) { + if (!c->free) { + if (restore) + target_restore_working_area(target, c); + c->free = true; + *c->user = NULL; /* Same as above */ + c->user = NULL; + } + c = c->next; } - /* access a single register by its ordinal number */ - if ((args[0][0] >= '0') && (args[0][0] <= '9')) - { - unsigned num; - int retval = parse_uint(args[0], &num); - if (ERROR_OK != retval) - return ERROR_COMMAND_SYNTAX_ERROR; - - reg_cache_t *cache = target->reg_cache; - count = 0; - while (cache) - { - int i; - for (i = 0; i < cache->num_regs; i++) - { - if (count++ == (int)num) - { - reg = &cache->reg_list[i]; - break; - } - } - if (reg) - break; - cache = cache->next; - } - - if (!reg) - { - command_print(cmd_ctx, "%i is out of bounds, the current target has only %i registers (0 - %i)", num, count, count - 1); - return ERROR_OK; - } - } else /* access a single register by its name */ - { - reg = register_get_by_name(target->reg_cache, args[0], 1); + /* Run a merge pass to combine all areas into one */ + target_merge_working_areas(target); - if (!reg) - { - command_print(cmd_ctx, "register %s not found in current target", args[0]); - return ERROR_OK; - } - } + print_wa_layout(target); +} - /* display a register */ - if ((argc == 1) || ((argc == 2) && !((args[1][0] >= '0') && (args[1][0] <= '9')))) - { - if ((argc == 2) && (strcmp(args[1], "force") == 0)) - reg->valid = 0; +void target_free_all_working_areas(struct target *target) +{ + target_free_all_working_areas_restore(target, 1); +} - if (reg->valid == 0) - { - reg_arch_type_t *arch_type = register_get_arch_type(reg->arch_type); - arch_type->get(reg); - } - value = buf_to_str(reg->value, reg->size, 16); - command_print(cmd_ctx, "%s (/%i): 0x%s", reg->name, (int)(reg->size), value); - free(value); - return ERROR_OK; - } +/* Find the largest number of bytes that can be allocated */ +uint32_t target_get_working_area_avail(struct target *target) +{ + struct working_area *c = target->working_areas; + uint32_t max_size = 0; - /* set register value */ - if (argc == 2) - { - uint8_t *buf = malloc(CEIL(reg->size, 8)); - str_to_buf(args[1], strlen(args[1]), buf, reg->size, 0); + if (c == NULL) + return target->working_area_size; - reg_arch_type_t *arch_type = register_get_arch_type(reg->arch_type); - arch_type->set(reg, buf); + while (c) { + if (c->free && max_size < c->size) + max_size = c->size; - value = buf_to_str(reg->value, reg->size, 16); - command_print(cmd_ctx, "%s (/%i): 0x%s", reg->name, (int)(reg->size), value); - free(value); + c = c->next; + } - free(buf); + return max_size; +} +int target_arch_state(struct target *target) +{ + int retval; + if (target == NULL) { + LOG_WARNING("No target has been configured"); return ERROR_OK; } - command_print(cmd_ctx, "usage: reg <#|name> [value]"); + if (target->state != TARGET_HALTED) + return ERROR_OK; + + retval = target->type->arch_state(target); + return retval; +} + +static int target_get_gdb_fileio_info_default(struct target *target, + struct gdb_fileio_info *fileio_info) +{ + /* If target does not support semi-hosting function, target + has no need to provide .get_gdb_fileio_info callback. + It just return ERROR_FAIL and gdb_server will return "Txx" + as target halted every time. */ + return ERROR_FAIL; +} +static int target_gdb_fileio_end_default(struct target *target, + int retcode, int fileio_errno, bool ctrl_c) +{ return ERROR_OK; } -static int handle_poll_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +static int target_profiling_default(struct target *target, uint32_t *samples, + uint32_t max_num_samples, uint32_t *num_samples, uint32_t seconds) { - int retval = ERROR_OK; - target_t *target = get_current_target(cmd_ctx); + struct timeval timeout, now; - if (argc == 0) - { - command_print(cmd_ctx, "background polling: %s", - jtag_poll_get_enabled() ? "on" : "off"); - command_print(cmd_ctx, "TAP: %s (%s)", - target->tap->dotted_name, - target->tap->enabled ? "enabled" : "disabled"); - if (!target->tap->enabled) - return ERROR_OK; - if ((retval = target_poll(target)) != ERROR_OK) - return retval; - if ((retval = target_arch_state(target)) != ERROR_OK) - return retval; + gettimeofday(&timeout, NULL); + timeval_add_time(&timeout, seconds, 0); - } - else if (argc == 1) - { - if (strcmp(args[0], "on") == 0) - { - jtag_poll_set_enabled(true); - } - else if (strcmp(args[0], "off") == 0) - { - jtag_poll_set_enabled(false); + LOG_INFO("Starting profiling. Halting and resuming the" + " target as often as we can..."); + + uint32_t sample_count = 0; + /* hopefully it is safe to cache! We want to stop/restart as quickly as possible. */ + struct reg *reg = register_get_by_name(target->reg_cache, "pc", 1); + + int retval = ERROR_OK; + for (;;) { + target_poll(target); + if (target->state == TARGET_HALTED) { + uint32_t t = buf_get_u32(reg->value, 0, 32); + samples[sample_count++] = t; + /* current pc, addr = 0, do not handle breakpoints, not debugging */ + retval = target_resume(target, 1, 0, 0, 0); + target_poll(target); + alive_sleep(10); /* sleep 10ms, i.e. <100 samples/second. */ + } else if (target->state == TARGET_RUNNING) { + /* We want to quickly sample the PC. */ + retval = target_halt(target); + } else { + LOG_INFO("Target not halted or running"); + retval = ERROR_OK; + break; } - else - { - command_print(cmd_ctx, "arg is \"on\" or \"off\""); + + if (retval != ERROR_OK) + break; + + gettimeofday(&now, NULL); + if ((sample_count >= max_num_samples) || timeval_compare(&now, &timeout) >= 0) { + LOG_INFO("Profiling completed. %" PRIu32 " samples.", sample_count); + break; } - } else - { - return ERROR_COMMAND_SYNTAX_ERROR; } + *num_samples = sample_count; return retval; } -static int handle_wait_halt_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +/* Single aligned words are guaranteed to use 16 or 32 bit access + * mode respectively, otherwise data is handled as quickly as + * possible + */ +int target_write_buffer(struct target *target, target_addr_t address, uint32_t size, const uint8_t *buffer) { - if (argc > 1) - return ERROR_COMMAND_SYNTAX_ERROR; + LOG_DEBUG("writing buffer of %" PRIi32 " byte at " TARGET_ADDR_FMT, + size, address); - unsigned ms = 5000; - if (1 == argc) - { - int retval = parse_uint(args[0], &ms); - if (ERROR_OK != retval) - { - command_print(cmd_ctx, "usage: %s [seconds]", cmd); - return ERROR_COMMAND_SYNTAX_ERROR; - } - // convert seconds (given) to milliseconds (needed) - ms *= 1000; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - target_t *target = get_current_target(cmd_ctx); - return target_wait_state(target, TARGET_HALTED, ms); + if (size == 0) + return ERROR_OK; + + if ((address + size - 1) < address) { + /* GDB can request this when e.g. PC is 0xfffffffc */ + LOG_ERROR("address + size wrapped (" TARGET_ADDR_FMT ", 0x%08" PRIx32 ")", + address, + size); + return ERROR_FAIL; + } + + return target->type->write_buffer(target, address, size, buffer); } -/* wait for target state to change. The trick here is to have a low - * latency for short waits and not to suck up all the CPU time - * on longer waits. - * - * After 500ms, keep_alive() is invoked - */ -int target_wait_state(target_t *target, enum target_state state, int ms) +static int target_write_buffer_default(struct target *target, + target_addr_t address, uint32_t count, const uint8_t *buffer) { - int retval; - long long then = 0, cur; - int once = 1; - - for (;;) - { - if ((retval = target_poll(target)) != ERROR_OK) - return retval; - if (target->state == state) - { - break; - } - cur = timeval_ms(); - if (once) - { - once = 0; - then = timeval_ms(); - LOG_DEBUG("waiting for target %s...", - Jim_Nvp_value2name_simple(nvp_target_state,state)->name); - } + uint32_t size; - if (cur-then > 500) - { - keep_alive(); + /* Align up to maximum 4 bytes. The loop condition makes sure the next pass + * will have something to do with the size we leave to it. */ + for (size = 1; size < 4 && count >= size * 2 + (address & size); size *= 2) { + if (address & size) { + int retval = target_write_memory(target, address, size, 1, buffer); + if (retval != ERROR_OK) + return retval; + address += size; + count -= size; + buffer += size; } + } - if ((cur-then) > ms) - { - LOG_ERROR("timed out while waiting for target %s", - Jim_Nvp_value2name_simple(nvp_target_state,state)->name); - return ERROR_FAIL; + /* Write the data with as large access size as possible. */ + for (; size > 0; size /= 2) { + uint32_t aligned = count - count % size; + if (aligned > 0) { + int retval = target_write_memory(target, address, size, aligned / size, buffer); + if (retval != ERROR_OK) + return retval; + address += aligned; + count -= aligned; + buffer += aligned; } } return ERROR_OK; } -static int handle_halt_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +/* Single aligned words are guaranteed to use 16 or 32 bit access + * mode respectively, otherwise data is handled as quickly as + * possible + */ +int target_read_buffer(struct target *target, target_addr_t address, uint32_t size, uint8_t *buffer) { - LOG_DEBUG("-"); + LOG_DEBUG("reading buffer of %" PRIi32 " byte at " TARGET_ADDR_FMT, + size, address); - target_t *target = get_current_target(cmd_ctx); - int retval = target_halt(target); - if (ERROR_OK != retval) - return retval; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; + } - if (argc == 1) - { - unsigned wait; - retval = parse_uint(args[0], &wait); - if (ERROR_OK != retval) - return ERROR_COMMAND_SYNTAX_ERROR; - if (!wait) - return ERROR_OK; + if (size == 0) + return ERROR_OK; + + if ((address + size - 1) < address) { + /* GDB can request this when e.g. PC is 0xfffffffc */ + LOG_ERROR("address + size wrapped (" TARGET_ADDR_FMT ", 0x%08" PRIx32 ")", + address, + size); + return ERROR_FAIL; } - return handle_wait_halt_command(cmd_ctx, cmd, args, argc); + return target->type->read_buffer(target, address, size, buffer); } -static int handle_soft_reset_halt_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +static int target_read_buffer_default(struct target *target, target_addr_t address, uint32_t count, uint8_t *buffer) { - target_t *target = get_current_target(cmd_ctx); + uint32_t size; - LOG_USER("requesting target halt and executing a soft reset"); + /* Align up to maximum 4 bytes. The loop condition makes sure the next pass + * will have something to do with the size we leave to it. */ + for (size = 1; size < 4 && count >= size * 2 + (address & size); size *= 2) { + if (address & size) { + int retval = target_read_memory(target, address, size, 1, buffer); + if (retval != ERROR_OK) + return retval; + address += size; + count -= size; + buffer += size; + } + } - target->type->soft_reset_halt(target); + /* Read the data with as large access size as possible. */ + for (; size > 0; size /= 2) { + uint32_t aligned = count - count % size; + if (aligned > 0) { + int retval = target_read_memory(target, address, size, aligned / size, buffer); + if (retval != ERROR_OK) + return retval; + address += aligned; + count -= aligned; + buffer += aligned; + } + } return ERROR_OK; } -static int handle_reset_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +int target_checksum_memory(struct target *target, target_addr_t address, uint32_t size, uint32_t* crc) { - if (argc > 1) - return ERROR_COMMAND_SYNTAX_ERROR; + uint8_t *buffer; + int retval; + uint32_t i; + uint32_t checksum = 0; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; + } - enum target_reset_mode reset_mode = RESET_RUN; - if (argc == 1) - { - const Jim_Nvp *n; - n = Jim_Nvp_name2value_simple(nvp_reset_modes, args[0]); - if ((n->name == NULL) || (n->value == RESET_UNKNOWN)) { + retval = target->type->checksum_memory(target, address, size, &checksum); + if (retval != ERROR_OK) { + buffer = malloc(size); + if (buffer == NULL) { + LOG_ERROR("error allocating buffer for section (%" PRId32 " bytes)", size); return ERROR_COMMAND_SYNTAX_ERROR; } - reset_mode = n->value; - } + retval = target_read_buffer(target, address, size, buffer); + if (retval != ERROR_OK) { + free(buffer); + return retval; + } - /* reset *all* targets */ - return target_process_reset(cmd_ctx, reset_mode); -} + /* convert to target endianness */ + for (i = 0; i < (size/sizeof(uint32_t)); i++) { + uint32_t target_data; + target_data = target_buffer_get_u32(target, &buffer[i*sizeof(uint32_t)]); + target_buffer_set_u32(target, &buffer[i*sizeof(uint32_t)], target_data); + } + retval = image_calculate_checksum(buffer, size, &checksum); + free(buffer); + } -static int handle_resume_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) -{ - int current = 1; - if (argc > 1) - return ERROR_COMMAND_SYNTAX_ERROR; + *crc = checksum; - target_t *target = get_current_target(cmd_ctx); - target_handle_event(target, TARGET_EVENT_OLD_pre_resume); + return retval; +} - /* with no args, resume from current pc, addr = 0, - * with one arguments, addr = args[0], - * handle breakpoints, not debugging */ - uint32_t addr = 0; - if (argc == 1) - { - int retval = parse_u32(args[0], &addr); - if (ERROR_OK != retval) - return retval; - current = 0; +int target_blank_check_memory(struct target *target, + struct target_memory_check_block *blocks, int num_blocks, + uint8_t erased_value) +{ + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - return target_resume(target, current, addr, 1, 0); + if (target->type->blank_check_memory == NULL) + return ERROR_TARGET_RESOURCE_NOT_AVAILABLE; + + return target->type->blank_check_memory(target, blocks, num_blocks, erased_value); } -static int handle_step_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +int target_read_u64(struct target *target, target_addr_t address, uint64_t *value) { - if (argc > 1) - return ERROR_COMMAND_SYNTAX_ERROR; + uint8_t value_buf[8]; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; + } - LOG_DEBUG("-"); + int retval = target_read_memory(target, address, 8, 1, value_buf); - /* with no args, step from current pc, addr = 0, - * with one argument addr = args[0], - * handle breakpoints, debugging */ - uint32_t addr = 0; - int current_pc = 1; - if (argc == 1) - { - int retval = parse_u32(args[0], &addr); - if (ERROR_OK != retval) - return retval; - current_pc = 0; + if (retval == ERROR_OK) { + *value = target_buffer_get_u64(target, value_buf); + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%16.16" PRIx64 "", + address, + *value); + } else { + *value = 0x0; + LOG_DEBUG("address: " TARGET_ADDR_FMT " failed", + address); } - target_t *target = get_current_target(cmd_ctx); - - return target->type->step(target, current_pc, addr, 1); + return retval; } -static void handle_md_output(struct command_context_s *cmd_ctx, - struct target_s *target, uint32_t address, unsigned size, - unsigned count, const uint8_t *buffer) +int target_read_u32(struct target *target, target_addr_t address, uint32_t *value) { - const unsigned line_bytecnt = 32; - unsigned line_modulo = line_bytecnt / size; + uint8_t value_buf[4]; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; + } - char output[line_bytecnt * 4 + 1]; - unsigned output_len = 0; + int retval = target_read_memory(target, address, 4, 1, value_buf); - const char *value_fmt; - switch (size) { - case 4: value_fmt = "%8.8x "; break; - case 2: value_fmt = "%4.2x "; break; - case 1: value_fmt = "%2.2x "; break; - default: - LOG_ERROR("invalid memory read size: %u", size); - exit(-1); + if (retval == ERROR_OK) { + *value = target_buffer_get_u32(target, value_buf); + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%8.8" PRIx32 "", + address, + *value); + } else { + *value = 0x0; + LOG_DEBUG("address: " TARGET_ADDR_FMT " failed", + address); } - for (unsigned i = 0; i < count; i++) - { - if (i % line_modulo == 0) - { - output_len += snprintf(output + output_len, - sizeof(output) - output_len, - "0x%8.8x: ", - (unsigned)(address + (i*size))); - } - - uint32_t value = 0; - const uint8_t *value_ptr = buffer + i * size; - switch (size) { - case 4: value = target_buffer_get_u32(target, value_ptr); break; - case 2: value = target_buffer_get_u16(target, value_ptr); break; - case 1: value = *value_ptr; - } - output_len += snprintf(output + output_len, - sizeof(output) - output_len, - value_fmt, value); - - if ((i % line_modulo == line_modulo - 1) || (i == count - 1)) - { - command_print(cmd_ctx, "%s", output); - output_len = 0; - } - } + return retval; } -static int handle_md_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +int target_read_u16(struct target *target, target_addr_t address, uint16_t *value) { - if (argc < 1) - return ERROR_COMMAND_SYNTAX_ERROR; - - unsigned size = 0; - switch (cmd[2]) { - case 'w': size = 4; break; - case 'h': size = 2; break; - case 'b': size = 1; break; - default: return ERROR_COMMAND_SYNTAX_ERROR; + uint8_t value_buf[2]; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - bool physical=strcmp(args[0], "phys")==0; - int (*fn)(struct target_s *target, - uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer); - if (physical) - { - argc--; - args++; - fn=target_read_phys_memory; - } else - { - fn=target_read_memory; - } - if ((argc < 1) || (argc > 2)) - { - return ERROR_COMMAND_SYNTAX_ERROR; - } - uint32_t address; - int retval = parse_u32(args[0], &address); - if (ERROR_OK != retval) - return retval; + int retval = target_read_memory(target, address, 2, 1, value_buf); - unsigned count = 1; - if (argc == 2) - { - retval = parse_uint(args[1], &count); - if (ERROR_OK != retval) - return retval; + if (retval == ERROR_OK) { + *value = target_buffer_get_u16(target, value_buf); + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%4.4" PRIx16, + address, + *value); + } else { + *value = 0x0; + LOG_DEBUG("address: " TARGET_ADDR_FMT " failed", + address); } - uint8_t *buffer = calloc(count, size); - - target_t *target = get_current_target(cmd_ctx); - retval = fn(target, address, size, count, buffer); - if (ERROR_OK == retval) - handle_md_output(cmd_ctx, target, address, size, count, buffer); - - free(buffer); - return retval; } -static int handle_mw_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +int target_read_u8(struct target *target, target_addr_t address, uint8_t *value) { - if (argc < 2) - { - return ERROR_COMMAND_SYNTAX_ERROR; - } - bool physical=strcmp(args[0], "phys")==0; - int (*fn)(struct target_s *target, - uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer); - if (physical) - { - argc--; - args++; - fn=target_write_phys_memory; - } else - { - fn=target_write_memory; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - if ((argc < 2) || (argc > 3)) - return ERROR_COMMAND_SYNTAX_ERROR; - - uint32_t address; - int retval = parse_u32(args[0], &address); - if (ERROR_OK != retval) - return retval; - uint32_t value; - retval = parse_u32(args[1], &value); - if (ERROR_OK != retval) - return retval; + int retval = target_read_memory(target, address, 1, 1, value); - unsigned count = 1; - if (argc == 3) - { - retval = parse_uint(args[2], &count); - if (ERROR_OK != retval) - return retval; + if (retval == ERROR_OK) { + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%2.2" PRIx8, + address, + *value); + } else { + *value = 0x0; + LOG_DEBUG("address: " TARGET_ADDR_FMT " failed", + address); } - target_t *target = get_current_target(cmd_ctx); - unsigned wordsize; - uint8_t value_buf[4]; - switch (cmd[2]) - { - case 'w': - wordsize = 4; - target_buffer_set_u32(target, value_buf, value); - break; - case 'h': - wordsize = 2; - target_buffer_set_u16(target, value_buf, value); - break; - case 'b': - wordsize = 1; - value_buf[0] = value; - break; - default: - return ERROR_COMMAND_SYNTAX_ERROR; - } - for (unsigned i = 0; i < count; i++) - { - retval = fn(target, - address + i * wordsize, wordsize, 1, value_buf); - if (ERROR_OK != retval) - return retval; - keep_alive(); + return retval; +} + +int target_write_u64(struct target *target, target_addr_t address, uint64_t value) +{ + int retval; + uint8_t value_buf[8]; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - return ERROR_OK; + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%16.16" PRIx64 "", + address, + value); + + target_buffer_set_u64(target, value_buf, value); + retval = target_write_memory(target, address, 8, 1, value_buf); + if (retval != ERROR_OK) + LOG_DEBUG("failed: %i", retval); + return retval; } -static int parse_load_image_command_args(char **args, int argc, - image_t *image, uint32_t *min_address, uint32_t *max_address) +int target_write_u32(struct target *target, target_addr_t address, uint32_t value) { - if (argc < 1 || argc > 5) - return ERROR_COMMAND_SYNTAX_ERROR; - - /* a base address isn't always necessary, - * default to 0x0 (i.e. don't relocate) */ - if (argc >= 2) - { - uint32_t addr; - int retval = parse_u32(args[1], &addr); - if (ERROR_OK != retval) - return ERROR_COMMAND_SYNTAX_ERROR; - image->base_address = addr; - image->base_address_set = 1; + int retval; + uint8_t value_buf[4]; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - else - image->base_address_set = 0; - - image->start_address_set = 0; - if (argc >= 4) - { - int retval = parse_u32(args[3], min_address); - if (ERROR_OK != retval) - return ERROR_COMMAND_SYNTAX_ERROR; - } - if (argc == 5) - { - int retval = parse_u32(args[4], max_address); - if (ERROR_OK != retval) - return ERROR_COMMAND_SYNTAX_ERROR; - // use size (given) to find max (required) - *max_address += *min_address; - } + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%8.8" PRIx32 "", + address, + value); - if (*min_address > *max_address) - return ERROR_COMMAND_SYNTAX_ERROR; + target_buffer_set_u32(target, value_buf, value); + retval = target_write_memory(target, address, 4, 1, value_buf); + if (retval != ERROR_OK) + LOG_DEBUG("failed: %i", retval); - return ERROR_OK; + return retval; } -static int handle_load_image_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +int target_write_u16(struct target *target, target_addr_t address, uint16_t value) { - uint8_t *buffer; - uint32_t buf_cnt; - uint32_t image_size; - uint32_t min_address = 0; - uint32_t max_address = 0xffffffff; - int i; - int retvaltemp; - - image_t image; + int retval; + uint8_t value_buf[2]; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; + } - duration_t duration; - char *duration_text; + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%8.8" PRIx16, + address, + value); - int retval = parse_load_image_command_args(args, argc, - &image, &min_address, &max_address); - if (ERROR_OK != retval) - return retval; + target_buffer_set_u16(target, value_buf, value); + retval = target_write_memory(target, address, 2, 1, value_buf); + if (retval != ERROR_OK) + LOG_DEBUG("failed: %i", retval); - target_t *target = get_current_target(cmd_ctx); - duration_start_measure(&duration); + return retval; +} - if (image_open(&image, args[0], (argc >= 3) ? args[2] : NULL) != ERROR_OK) - { - return ERROR_OK; +int target_write_u8(struct target *target, target_addr_t address, uint8_t value) +{ + int retval; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - image_size = 0x0; - retval = ERROR_OK; - for (i = 0; i < image.num_sections; i++) - { - buffer = malloc(image.sections[i].size); - if (buffer == NULL) - { - command_print(cmd_ctx, - "error allocating buffer for section (%d bytes)", - (int)(image.sections[i].size)); - break; - } - - if ((retval = image_read_section(&image, i, 0x0, image.sections[i].size, buffer, &buf_cnt)) != ERROR_OK) - { - free(buffer); - break; - } + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%2.2" PRIx8, + address, value); - uint32_t offset = 0; - uint32_t length = buf_cnt; + retval = target_write_memory(target, address, 1, 1, &value); + if (retval != ERROR_OK) + LOG_DEBUG("failed: %i", retval); - /* DANGER!!! beware of unsigned comparision here!!! */ + return retval; +} - if ((image.sections[i].base_address + buf_cnt >= min_address)&& - (image.sections[i].base_address < max_address)) - { - if (image.sections[i].base_address < min_address) - { - /* clip addresses below */ - offset += min_address-image.sections[i].base_address; - length -= offset; - } +int target_write_phys_u64(struct target *target, target_addr_t address, uint64_t value) +{ + int retval; + uint8_t value_buf[8]; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; + } - if (image.sections[i].base_address + buf_cnt > max_address) - { - length -= (image.sections[i].base_address + buf_cnt)-max_address; - } + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%16.16" PRIx64 "", + address, + value); - if ((retval = target_write_buffer(target, image.sections[i].base_address + offset, length, buffer + offset)) != ERROR_OK) - { - free(buffer); - break; - } - image_size += length; - command_print(cmd_ctx, "%u bytes written at address 0x%8.8" PRIx32 "", - (unsigned int)length, - image.sections[i].base_address + offset); - } + target_buffer_set_u64(target, value_buf, value); + retval = target_write_phys_memory(target, address, 8, 1, value_buf); + if (retval != ERROR_OK) + LOG_DEBUG("failed: %i", retval); - free(buffer); - } + return retval; +} - if ((retvaltemp = duration_stop_measure(&duration, &duration_text)) != ERROR_OK) - { - image_close(&image); - return retvaltemp; +int target_write_phys_u32(struct target *target, target_addr_t address, uint32_t value) +{ + int retval; + uint8_t value_buf[4]; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - if (retval == ERROR_OK) - { - command_print(cmd_ctx, "downloaded %u byte in %s", - (unsigned int)image_size, - duration_text); - } - free(duration_text); + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%8.8" PRIx32 "", + address, + value); - image_close(&image); + target_buffer_set_u32(target, value_buf, value); + retval = target_write_phys_memory(target, address, 4, 1, value_buf); + if (retval != ERROR_OK) + LOG_DEBUG("failed: %i", retval); return retval; - } -static int handle_dump_image_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +int target_write_phys_u16(struct target *target, target_addr_t address, uint16_t value) { - fileio_t fileio; + int retval; + uint8_t value_buf[2]; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; + } - uint8_t buffer[560]; - int retvaltemp; + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%8.8" PRIx16, + address, + value); - duration_t duration; - char *duration_text; + target_buffer_set_u16(target, value_buf, value); + retval = target_write_phys_memory(target, address, 2, 1, value_buf); + if (retval != ERROR_OK) + LOG_DEBUG("failed: %i", retval); - target_t *target = get_current_target(cmd_ctx); + return retval; +} - if (argc != 3) - { - command_print(cmd_ctx, "usage: dump_image
"); - return ERROR_OK; +int target_write_phys_u8(struct target *target, target_addr_t address, uint8_t value) +{ + int retval; + if (!target_was_examined(target)) { + LOG_ERROR("Target not examined yet"); + return ERROR_FAIL; } - uint32_t address; - int retval = parse_u32(args[1], &address); - if (ERROR_OK != retval) - return retval; + LOG_DEBUG("address: " TARGET_ADDR_FMT ", value: 0x%2.2" PRIx8, + address, value); - uint32_t size; - retval = parse_u32(args[2], &size); - if (ERROR_OK != retval) - return retval; + retval = target_write_phys_memory(target, address, 1, 1, &value); + if (retval != ERROR_OK) + LOG_DEBUG("failed: %i", retval); - if (fileio_open(&fileio, args[0], FILEIO_WRITE, FILEIO_BINARY) != ERROR_OK) - { - return ERROR_OK; + return retval; +} + +static int find_target(struct command_context *cmd_ctx, const char *name) +{ + struct target *target = get_target(name); + if (target == NULL) { + LOG_ERROR("Target: %s is unknown, try one of:\n", name); + return ERROR_FAIL; + } + if (!target->tap->enabled) { + LOG_USER("Target: TAP %s is disabled, " + "can't be the current target\n", + target->tap->dotted_name); + return ERROR_FAIL; } - duration_start_measure(&duration); + cmd_ctx->current_target = target; + if (cmd_ctx->current_target_override) + cmd_ctx->current_target_override = target; - while (size > 0) - { - uint32_t size_written; - uint32_t this_run_size = (size > 560) ? 560 : size; + return ERROR_OK; +} - retval = target_read_buffer(target, address, this_run_size, buffer); - if (retval != ERROR_OK) - { - break; - } - retval = fileio_write(&fileio, this_run_size, buffer, &size_written); - if (retval != ERROR_OK) - { - break; +COMMAND_HANDLER(handle_targets_command) +{ + int retval = ERROR_OK; + if (CMD_ARGC == 1) { + retval = find_target(CMD_CTX, CMD_ARGV[0]); + if (retval == ERROR_OK) { + /* we're done! */ + return retval; } - - size -= this_run_size; - address += this_run_size; } - if ((retvaltemp = fileio_close(&fileio)) != ERROR_OK) - return retvaltemp; + struct target *target = all_targets; + command_print(CMD_CTX, " TargetName Type Endian TapName State "); + command_print(CMD_CTX, "-- ------------------ ---------- ------ ------------------ ------------"); + while (target) { + const char *state; + char marker = ' '; - if ((retvaltemp = duration_stop_measure(&duration, &duration_text)) != ERROR_OK) - return retvaltemp; + if (target->tap->enabled) + state = target_state_name(target); + else + state = "tap-disabled"; - if (retval == ERROR_OK) - { - command_print(cmd_ctx, "dumped %lld byte in %s", - fileio.size, duration_text); - free(duration_text); + if (CMD_CTX->current_target == target) + marker = '*'; + + /* keep columns lined up to match the headers above */ + command_print(CMD_CTX, + "%2d%c %-18s %-10s %-6s %-18s %s", + target->target_number, + marker, + target_name(target), + target_type_name(target), + Jim_Nvp_value2name_simple(nvp_target_endian, + target->endianness)->name, + target->tap->dotted_name, + state); + target = target->next; } return retval; } -static int handle_verify_image_command_internal(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc, int verify) -{ - uint8_t *buffer; - uint32_t buf_cnt; - uint32_t image_size; - int i; - int retval, retvaltemp; - uint32_t checksum = 0; - uint32_t mem_checksum = 0; +/* every 300ms we check for reset & powerdropout and issue a "reset halt" if so. */ - image_t image; +static int powerDropout; +static int srstAsserted; - duration_t duration; - char *duration_text; +static int runPowerRestore; +static int runPowerDropout; +static int runSrstAsserted; +static int runSrstDeasserted; - target_t *target = get_current_target(cmd_ctx); +static int sense_handler(void) +{ + static int prevSrstAsserted; + static int prevPowerdropout; - if (argc < 1) - { - return ERROR_COMMAND_SYNTAX_ERROR; - } + int retval = jtag_power_dropout(&powerDropout); + if (retval != ERROR_OK) + return retval; - if (!target) - { - LOG_ERROR("no target selected"); - return ERROR_FAIL; + int powerRestored; + powerRestored = prevPowerdropout && !powerDropout; + if (powerRestored) + runPowerRestore = 1; + + int64_t current = timeval_ms(); + static int64_t lastPower; + bool waitMore = lastPower + 2000 > current; + if (powerDropout && !waitMore) { + runPowerDropout = 1; + lastPower = current; } - duration_start_measure(&duration); + retval = jtag_srst_asserted(&srstAsserted); + if (retval != ERROR_OK) + return retval; - if (argc >= 2) - { - uint32_t addr; - retval = parse_u32(args[1], &addr); - if (ERROR_OK != retval) - return ERROR_COMMAND_SYNTAX_ERROR; - image.base_address = addr; - image.base_address_set = 1; + int srstDeasserted; + srstDeasserted = prevSrstAsserted && !srstAsserted; + + static int64_t lastSrst; + waitMore = lastSrst + 2000 > current; + if (srstDeasserted && !waitMore) { + runSrstDeasserted = 1; + lastSrst = current; } - else - { - image.base_address_set = 0; - image.base_address = 0x0; + + if (!prevSrstAsserted && srstAsserted) + runSrstAsserted = 1; + + prevSrstAsserted = srstAsserted; + prevPowerdropout = powerDropout; + + if (srstDeasserted || powerRestored) { + /* Other than logging the event we can't do anything here. + * Issuing a reset is a particularly bad idea as we might + * be inside a reset already. + */ } - image.start_address_set = 0; + return ERROR_OK; +} - if ((retval = image_open(&image, args[0], (argc == 3) ? args[2] : NULL)) != ERROR_OK) - { - return retval; +/* process target state changes */ +static int handle_target(void *priv) +{ + Jim_Interp *interp = (Jim_Interp *)priv; + int retval = ERROR_OK; + + if (!is_jtag_poll_safe()) { + /* polling is disabled currently */ + return ERROR_OK; } - image_size = 0x0; - retval = ERROR_OK; - for (i = 0; i < image.num_sections; i++) - { - buffer = malloc(image.sections[i].size); - if (buffer == NULL) - { - command_print(cmd_ctx, - "error allocating buffer for section (%d bytes)", - (int)(image.sections[i].size)); - break; + /* we do not want to recurse here... */ + static int recursive; + if (!recursive) { + recursive = 1; + sense_handler(); + /* danger! running these procedures can trigger srst assertions and power dropouts. + * We need to avoid an infinite loop/recursion here and we do that by + * clearing the flags after running these events. + */ + int did_something = 0; + if (runSrstAsserted) { + LOG_INFO("srst asserted detected, running srst_asserted proc."); + Jim_Eval(interp, "srst_asserted"); + did_something = 1; } - if ((retval = image_read_section(&image, i, 0x0, image.sections[i].size, buffer, &buf_cnt)) != ERROR_OK) - { - free(buffer); - break; + if (runSrstDeasserted) { + Jim_Eval(interp, "srst_deasserted"); + did_something = 1; + } + if (runPowerDropout) { + LOG_INFO("Power dropout detected, running power_dropout proc."); + Jim_Eval(interp, "power_dropout"); + did_something = 1; + } + if (runPowerRestore) { + Jim_Eval(interp, "power_restore"); + did_something = 1; } - if (verify) - { - /* calculate checksum of image */ - image_calculate_checksum(buffer, buf_cnt, &checksum); + if (did_something) { + /* clear detect flags */ + sense_handler(); + } - retval = target_checksum_memory(target, image.sections[i].base_address, buf_cnt, &mem_checksum); - if (retval != ERROR_OK) - { - free(buffer); - break; - } + /* clear action flags */ - if (checksum != mem_checksum) - { - /* failed crc checksum, fall back to a binary compare */ - uint8_t *data; + runSrstAsserted = 0; + runSrstDeasserted = 0; + runPowerRestore = 0; + runPowerDropout = 0; - command_print(cmd_ctx, "checksum mismatch - attempting binary compare"); + recursive = 0; + } - data = (uint8_t*)malloc(buf_cnt); + /* Poll targets for state changes unless that's globally disabled. + * Skip targets that are currently disabled. + */ + for (struct target *target = all_targets; + is_jtag_poll_safe() && target; + target = target->next) { - /* Can we use 32bit word accesses? */ - int size = 1; - int count = buf_cnt; - if ((count % 4) == 0) - { - size *= 4; - count /= 4; - } - retval = target_read_memory(target, image.sections[i].base_address, size, count, data); - if (retval == ERROR_OK) - { - uint32_t t; - for (t = 0; t < buf_cnt; t++) - { - if (data[t] != buffer[t]) - { - command_print(cmd_ctx, - "Verify operation failed address 0x%08x. Was 0x%02x instead of 0x%02x\n", - (unsigned)(t + image.sections[i].base_address), - data[t], - buffer[t]); - free(data); - free(buffer); - retval = ERROR_FAIL; - goto done; - } - if ((t%16384) == 0) - { - keep_alive(); - } - } - } + if (!target_was_examined(target)) + continue; - free(data); - } - } else - { - command_print(cmd_ctx, "address 0x%08" PRIx32 " length 0x%08" PRIx32 "", - image.sections[i].base_address, - buf_cnt); + if (!target->tap->enabled) + continue; + + if (target->backoff.times > target->backoff.count) { + /* do not poll this time as we failed previously */ + target->backoff.count++; + continue; } + target->backoff.count = 0; - free(buffer); - image_size += buf_cnt; - } -done: + /* only poll target if we've got power and srst isn't asserted */ + if (!powerDropout && !srstAsserted) { + /* polling may fail silently until the target has been examined */ + retval = target_poll(target); + if (retval != ERROR_OK) { + /* 100ms polling interval. Increase interval between polling up to 5000ms */ + if (target->backoff.times * polling_interval < 5000) { + target->backoff.times *= 2; + target->backoff.times++; + } - if ((retvaltemp = duration_stop_measure(&duration, &duration_text)) != ERROR_OK) - { - image_close(&image); - return retvaltemp; - } + /* Tell GDB to halt the debugger. This allows the user to + * run monitor commands to handle the situation. + */ + target_call_event_callbacks(target, TARGET_EVENT_GDB_HALT); + } + if (target->backoff.times > 0) { + LOG_USER("Polling target %s failed, trying to reexamine", target_name(target)); + target_reset_examined(target); + retval = target_examine_one(target); + /* Target examination could have failed due to unstable connection, + * but we set the examined flag anyway to repoll it later */ + if (retval != ERROR_OK) { + target->examined = true; + LOG_USER("Examination failed, GDB will be halted. Polling again in %dms", + target->backoff.times * polling_interval); + return retval; + } + } - if (retval == ERROR_OK) - { - command_print(cmd_ctx, "verified %u bytes in %s", - (unsigned int)image_size, - duration_text); + /* Since we succeeded, we reset backoff count */ + target->backoff.times = 0; + } } - free(duration_text); - - image_close(&image); return retval; } -static int handle_verify_image_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +COMMAND_HANDLER(handle_reg_command) { - return handle_verify_image_command_internal(cmd_ctx, cmd, args, argc, 1); -} + struct target *target; + struct reg *reg = NULL; + unsigned count = 0; + char *value; -static int handle_test_image_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) -{ - return handle_verify_image_command_internal(cmd_ctx, cmd, args, argc, 0); -} + LOG_DEBUG("-"); -static int handle_bp_command_list(struct command_context_s *cmd_ctx) -{ - target_t *target = get_current_target(cmd_ctx); - breakpoint_t *breakpoint = target->breakpoints; - while (breakpoint) - { - if (breakpoint->type == BKPT_SOFT) - { - char* buf = buf_to_str(breakpoint->orig_instr, - breakpoint->length, 16); - command_print(cmd_ctx, "0x%8.8" PRIx32 ", 0x%x, %i, 0x%s", - breakpoint->address, - breakpoint->length, - breakpoint->set, buf); - free(buf); - } - else - { - command_print(cmd_ctx, "0x%8.8" PRIx32 ", 0x%x, %i", - breakpoint->address, - breakpoint->length, breakpoint->set); - } + target = get_current_target(CMD_CTX); - breakpoint = breakpoint->next; - } - return ERROR_OK; -} + /* list all available registers for the current target */ + if (CMD_ARGC == 0) { + struct reg_cache *cache = target->reg_cache; -static int handle_bp_command_set(struct command_context_s *cmd_ctx, - uint32_t addr, uint32_t length, int hw) -{ - target_t *target = get_current_target(cmd_ctx); - int retval = breakpoint_add(target, addr, length, hw); - if (ERROR_OK == retval) - command_print(cmd_ctx, "breakpoint set at 0x%8.8" PRIx32 "", addr); - else - LOG_ERROR("Failure setting breakpoint"); - return retval; -} + count = 0; + while (cache) { + unsigned i; -static int handle_bp_command(struct command_context_s *cmd_ctx, - char *cmd, char **args, int argc) -{ - if (argc == 0) - return handle_bp_command_list(cmd_ctx); + command_print(CMD_CTX, "===== %s", cache->name); - if (argc < 2 || argc > 3) - { - command_print(cmd_ctx, "usage: bp
['hw']"); - return ERROR_COMMAND_SYNTAX_ERROR; + for (i = 0, reg = cache->reg_list; + i < cache->num_regs; + i++, reg++, count++) { + if (reg->exist == false) + continue; + /* only print cached values if they are valid */ + if (reg->valid) { + value = buf_to_str(reg->value, + reg->size, 16); + command_print(CMD_CTX, + "(%i) %s (/%" PRIu32 "): 0x%s%s", + count, reg->name, + reg->size, value, + reg->dirty + ? " (dirty)" + : ""); + free(value); + } else { + command_print(CMD_CTX, "(%i) %s (/%" PRIu32 ")", + count, reg->name, + reg->size) ; + } + } + cache = cache->next; + } + + return ERROR_OK; } - uint32_t addr; - int retval = parse_u32(args[0], &addr); - if (ERROR_OK != retval) - return retval; + /* access a single register by its ordinal number */ + if ((CMD_ARGV[0][0] >= '0') && (CMD_ARGV[0][0] <= '9')) { + unsigned num; + COMMAND_PARSE_NUMBER(uint, CMD_ARGV[0], num); - uint32_t length; - retval = parse_u32(args[1], &length); - if (ERROR_OK != retval) - return retval; + struct reg_cache *cache = target->reg_cache; + count = 0; + while (cache) { + unsigned i; + for (i = 0; i < cache->num_regs; i++) { + if (count++ == num) { + reg = &cache->reg_list[i]; + break; + } + } + if (reg) + break; + cache = cache->next; + } - int hw = BKPT_SOFT; - if (argc == 3) - { - if (strcmp(args[2], "hw") == 0) - hw = BKPT_HARD; - else - return ERROR_COMMAND_SYNTAX_ERROR; + if (!reg) { + command_print(CMD_CTX, "%i is out of bounds, the current target " + "has only %i registers (0 - %i)", num, count, count - 1); + return ERROR_OK; + } + } else { + /* access a single register by its name */ + reg = register_get_by_name(target->reg_cache, CMD_ARGV[0], 1); + + if (!reg) + goto not_found; } - return handle_bp_command_set(cmd_ctx, addr, length, hw); -} + assert(reg != NULL); /* give clang a hint that we *know* reg is != NULL here */ -static int handle_rbp_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) -{ - if (argc != 1) - return ERROR_COMMAND_SYNTAX_ERROR; + if (!reg->exist) + goto not_found; - uint32_t addr; - int retval = parse_u32(args[0], &addr); - if (ERROR_OK != retval) - return retval; + /* display a register */ + if ((CMD_ARGC == 1) || ((CMD_ARGC == 2) && !((CMD_ARGV[1][0] >= '0') + && (CMD_ARGV[1][0] <= '9')))) { + if ((CMD_ARGC == 2) && (strcmp(CMD_ARGV[1], "force") == 0)) + reg->valid = 0; - target_t *target = get_current_target(cmd_ctx); - breakpoint_remove(target, addr); + if (reg->valid == 0) + reg->type->get(reg); + value = buf_to_str(reg->value, reg->size, 16); + command_print(CMD_CTX, "%s (/%i): 0x%s", reg->name, (int)(reg->size), value); + free(value); + return ERROR_OK; + } - return ERROR_OK; -} + /* set register value */ + if (CMD_ARGC == 2) { + uint8_t *buf = malloc(DIV_ROUND_UP(reg->size, 8)); + if (buf == NULL) + return ERROR_FAIL; + str_to_buf(CMD_ARGV[1], strlen(CMD_ARGV[1]), buf, reg->size, 0); -static int handle_wp_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) -{ - target_t *target = get_current_target(cmd_ctx); + reg->type->set(reg, buf); - if (argc == 0) - { - watchpoint_t *watchpoint = target->watchpoints; + value = buf_to_str(reg->value, reg->size, 16); + command_print(CMD_CTX, "%s (/%i): 0x%s", reg->name, (int)(reg->size), value); + free(value); + + free(buf); - while (watchpoint) - { - command_print(cmd_ctx, - "address: 0x%8.8" PRIx32 ", len: 0x%8.8x, r/w/a: %i, value: 0x%8.8" PRIx32 ", mask: 0x%8.8" PRIx32 "", - watchpoint->address, - watchpoint->length, - (int)(watchpoint->rw), - watchpoint->value, - watchpoint->mask); - watchpoint = watchpoint->next; - } return ERROR_OK; } - enum watchpoint_rw type = WPT_ACCESS; - uint32_t addr = 0; - uint32_t length = 0; - uint32_t data_value = 0x0; - uint32_t data_mask = 0xffffffff; - int retval; + return ERROR_COMMAND_SYNTAX_ERROR; - switch (argc) - { - case 5: - retval = parse_u32(args[4], &data_mask); - if (ERROR_OK != retval) - return retval; - // fall through - case 4: - retval = parse_u32(args[3], &data_value); - if (ERROR_OK != retval) - return retval; - // fall through - case 3: - switch (args[2][0]) - { - case 'r': - type = WPT_READ; - break; - case 'w': - type = WPT_WRITE; - break; - case 'a': - type = WPT_ACCESS; - break; - default: - LOG_ERROR("invalid watchpoint mode ('%c')", args[2][0]); - return ERROR_COMMAND_SYNTAX_ERROR; - } - // fall through - case 2: - retval = parse_u32(args[1], &length); - if (ERROR_OK != retval) +not_found: + command_print(CMD_CTX, "register %s not found in current target", CMD_ARGV[0]); + return ERROR_OK; +} + +COMMAND_HANDLER(handle_poll_command) +{ + int retval = ERROR_OK; + struct target *target = get_current_target(CMD_CTX); + + if (CMD_ARGC == 0) { + command_print(CMD_CTX, "background polling: %s", + jtag_poll_get_enabled() ? "on" : "off"); + command_print(CMD_CTX, "TAP: %s (%s)", + target->tap->dotted_name, + target->tap->enabled ? "enabled" : "disabled"); + if (!target->tap->enabled) + return ERROR_OK; + retval = target_poll(target); + if (retval != ERROR_OK) return retval; - retval = parse_u32(args[0], &addr); - if (ERROR_OK != retval) + retval = target_arch_state(target); + if (retval != ERROR_OK) return retval; - break; - - default: - command_print(cmd_ctx, "usage: wp
[r/w/a] [value] [mask]"); + } else if (CMD_ARGC == 1) { + bool enable; + COMMAND_PARSE_ON_OFF(CMD_ARGV[0], enable); + jtag_poll_set_enabled(enable); + } else return ERROR_COMMAND_SYNTAX_ERROR; - } - - retval = watchpoint_add(target, addr, length, type, - data_value, data_mask); - if (ERROR_OK != retval) - LOG_ERROR("Failure setting watchpoints"); return retval; } -static int handle_rwp_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +COMMAND_HANDLER(handle_wait_halt_command) { - if (argc != 1) + if (CMD_ARGC > 1) return ERROR_COMMAND_SYNTAX_ERROR; - uint32_t addr; - int retval = parse_u32(args[0], &addr); - if (ERROR_OK != retval) - return retval; - - target_t *target = get_current_target(cmd_ctx); - watchpoint_remove(target, addr); + unsigned ms = DEFAULT_HALT_TIMEOUT; + if (1 == CMD_ARGC) { + int retval = parse_uint(CMD_ARGV[0], &ms); + if (ERROR_OK != retval) + return ERROR_COMMAND_SYNTAX_ERROR; + } - return ERROR_OK; + struct target *target = get_current_target(CMD_CTX); + return target_wait_state(target, TARGET_HALTED, ms); } - -/** - * Translate a virtual address to a physical address. +/* wait for target state to change. The trick here is to have a low + * latency for short waits and not to suck up all the CPU time + * on longer waits. * - * The low-level target implementation must have logged a detailed error - * which is forwarded to telnet/GDB session. + * After 500ms, keep_alive() is invoked */ -static int handle_virt2phys_command(command_context_t *cmd_ctx, - char *cmd, char **args, int argc) +int target_wait_state(struct target *target, enum target_state state, int ms) { - if (argc != 1) - return ERROR_COMMAND_SYNTAX_ERROR; + int retval; + int64_t then = 0, cur; + bool once = true; + + for (;;) { + retval = target_poll(target); + if (retval != ERROR_OK) + return retval; + if (target->state == state) + break; + cur = timeval_ms(); + if (once) { + once = false; + then = timeval_ms(); + LOG_DEBUG("waiting for target %s...", + Jim_Nvp_value2name_simple(nvp_target_state, state)->name); + } + + if (cur-then > 500) + keep_alive(); + + if ((cur-then) > ms) { + LOG_ERROR("timed out while waiting for target %s", + Jim_Nvp_value2name_simple(nvp_target_state, state)->name); + return ERROR_FAIL; + } + } + + return ERROR_OK; +} + +COMMAND_HANDLER(handle_halt_command) +{ + LOG_DEBUG("-"); + + struct target *target = get_current_target(CMD_CTX); - uint32_t va; - int retval = parse_u32(args[0], &va); + target->verbose_halt_msg = true; + + int retval = target_halt(target); if (ERROR_OK != retval) return retval; - uint32_t pa; - target_t *target = get_current_target(cmd_ctx); - retval = target->type->virt2phys(target, va, &pa); - if (retval == ERROR_OK) - command_print(cmd_ctx, "Physical address 0x%08" PRIx32 "", pa); + if (CMD_ARGC == 1) { + unsigned wait_local; + retval = parse_uint(CMD_ARGV[0], &wait_local); + if (ERROR_OK != retval) + return ERROR_COMMAND_SYNTAX_ERROR; + if (!wait_local) + return ERROR_OK; + } - return retval; + return CALL_COMMAND_HANDLER(handle_wait_halt_command); } -static void writeData(FILE *f, const void *data, size_t len) +COMMAND_HANDLER(handle_soft_reset_halt_command) { - size_t written = fwrite(data, 1, len, f); - if (written != len) - LOG_ERROR("failed to write %zu bytes: %s", len, strerror(errno)); + struct target *target = get_current_target(CMD_CTX); + + LOG_USER("requesting target halt and executing a soft reset"); + + target_soft_reset_halt(target); + + return ERROR_OK; } -static void writeLong(FILE *f, int l) +COMMAND_HANDLER(handle_reset_command) { - int i; - for (i = 0; i < 4; i++) - { - char c = (l >> (i*8))&0xff; - writeData(f, &c, 1); + if (CMD_ARGC > 1) + return ERROR_COMMAND_SYNTAX_ERROR; + + enum target_reset_mode reset_mode = RESET_RUN; + if (CMD_ARGC == 1) { + const Jim_Nvp *n; + n = Jim_Nvp_name2value_simple(nvp_reset_modes, CMD_ARGV[0]); + if ((n->name == NULL) || (n->value == RESET_UNKNOWN)) + return ERROR_COMMAND_SYNTAX_ERROR; + reset_mode = n->value; } + /* reset *all* targets */ + return target_process_reset(CMD_CTX, reset_mode); } -static void writeString(FILE *f, char *s) -{ - writeData(f, s, strlen(s)); -} -/* Dump a gmon.out histogram file. */ -static void writeGmon(uint32_t *samples, uint32_t sampleNum, char *filename) +COMMAND_HANDLER(handle_resume_command) { - uint32_t i; - FILE *f = fopen(filename, "w"); - if (f == NULL) - return; - writeString(f, "gmon"); - writeLong(f, 0x00000001); /* Version */ - writeLong(f, 0); /* padding */ - writeLong(f, 0); /* padding */ - writeLong(f, 0); /* padding */ + int current = 1; + if (CMD_ARGC > 1) + return ERROR_COMMAND_SYNTAX_ERROR; - uint8_t zero = 0; /* GMON_TAG_TIME_HIST */ - writeData(f, &zero, 1); + struct target *target = get_current_target(CMD_CTX); - /* figure out bucket size */ - uint32_t min = samples[0]; - uint32_t max = samples[0]; - for (i = 0; i < sampleNum; i++) - { - if (min > samples[i]) - { - min = samples[i]; - } - if (max < samples[i]) - { - max = samples[i]; - } + /* with no CMD_ARGV, resume from current pc, addr = 0, + * with one arguments, addr = CMD_ARGV[0], + * handle breakpoints, not debugging */ + target_addr_t addr = 0; + if (CMD_ARGC == 1) { + COMMAND_PARSE_ADDRESS(CMD_ARGV[0], addr); + current = 0; } - int addressSpace = (max-min + 1); + return target_resume(target, current, addr, 1, 0); +} - static const uint32_t maxBuckets = 256 * 1024; /* maximum buckets. */ - uint32_t length = addressSpace; - if (length > maxBuckets) - { - length = maxBuckets; - } - int *buckets = malloc(sizeof(int)*length); - if (buckets == NULL) - { - fclose(f); - return; - } - memset(buckets, 0, sizeof(int)*length); - for (i = 0; i < sampleNum;i++) - { - uint32_t address = samples[i]; - long long a = address-min; - long long b = length-1; - long long c = addressSpace-1; - int index = (a*b)/c; /* danger!!!! int32 overflows */ - buckets[index]++; +COMMAND_HANDLER(handle_step_command) +{ + if (CMD_ARGC > 1) + return ERROR_COMMAND_SYNTAX_ERROR; + + LOG_DEBUG("-"); + + /* with no CMD_ARGV, step from current pc, addr = 0, + * with one argument addr = CMD_ARGV[0], + * handle breakpoints, debugging */ + target_addr_t addr = 0; + int current_pc = 1; + if (CMD_ARGC == 1) { + COMMAND_PARSE_ADDRESS(CMD_ARGV[0], addr); + current_pc = 0; } - /* append binary memory gmon.out &profile_hist_hdr ((char*)&profile_hist_hdr + sizeof(struct gmon_hist_hdr)) */ - writeLong(f, min); /* low_pc */ - writeLong(f, max); /* high_pc */ - writeLong(f, length); /* # of samples */ - writeLong(f, 64000000); /* 64MHz */ - writeString(f, "seconds"); - for (i = 0; i < (15-strlen("seconds")); i++) - writeData(f, &zero, 1); - writeString(f, "s"); + struct target *target = get_current_target(CMD_CTX); - /*append binary memory gmon.out profile_hist_data (profile_hist_data + profile_hist_hdr.hist_size) */ + return target->type->step(target, current_pc, addr, 1); +} - char *data = malloc(2*length); - if (data != NULL) - { - for (i = 0; i < length;i++) - { - int val; - val = buckets[i]; - if (val > 65535) - { - val = 65535; - } - data[i*2]=val&0xff; - data[i*2 + 1]=(val >> 8)&0xff; - } - free(buckets); - writeData(f, data, length * 2); - free(data); - } else - { - free(buckets); - } - - fclose(f); -} - -/* profiling samples the CPU PC as quickly as OpenOCD is able, which will be used as a random sampling of PC */ -static int handle_profile_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +static void handle_md_output(struct command_context *cmd_ctx, + struct target *target, target_addr_t address, unsigned size, + unsigned count, const uint8_t *buffer) { - target_t *target = get_current_target(cmd_ctx); - struct timeval timeout, now; - - gettimeofday(&timeout, NULL); - if (argc != 2) - { - return ERROR_COMMAND_SYNTAX_ERROR; - } - unsigned offset; - int retval = parse_uint(args[0], &offset); - if (ERROR_OK != retval) - return retval; - - timeval_add_time(&timeout, offset, 0); + const unsigned line_bytecnt = 32; + unsigned line_modulo = line_bytecnt / size; - command_print(cmd_ctx, "Starting profiling. Halting and resuming the target as often as we can..."); + char output[line_bytecnt * 4 + 1]; + unsigned output_len = 0; - static const int maxSample = 10000; - uint32_t *samples = malloc(sizeof(uint32_t)*maxSample); - if (samples == NULL) - return ERROR_OK; + const char *value_fmt; + switch (size) { + case 8: + value_fmt = "%16.16"PRIx64" "; + break; + case 4: + value_fmt = "%8.8"PRIx64" "; + break; + case 2: + value_fmt = "%4.4"PRIx64" "; + break; + case 1: + value_fmt = "%2.2"PRIx64" "; + break; + default: + /* "can't happen", caller checked */ + LOG_ERROR("invalid memory read size: %u", size); + return; + } - int numSamples = 0; - /* hopefully it is safe to cache! We want to stop/restart as quickly as possible. */ - reg_t *reg = register_get_by_name(target->reg_cache, "pc", 1); + for (unsigned i = 0; i < count; i++) { + if (i % line_modulo == 0) { + output_len += snprintf(output + output_len, + sizeof(output) - output_len, + TARGET_ADDR_FMT ": ", + (address + (i * size))); + } - for (;;) - { - target_poll(target); - if (target->state == TARGET_HALTED) - { - uint32_t t=*((uint32_t *)reg->value); - samples[numSamples++]=t; - retval = target_resume(target, 1, 0, 0, 0); /* current pc, addr = 0, do not handle breakpoints, not debugging */ - target_poll(target); - alive_sleep(10); /* sleep 10ms, i.e. <100 samples/second. */ - } else if (target->state == TARGET_RUNNING) - { - /* We want to quickly sample the PC. */ - if ((retval = target_halt(target)) != ERROR_OK) - { - free(samples); - return retval; - } - } else - { - command_print(cmd_ctx, "Target not halted or running"); - retval = ERROR_OK; + uint64_t value = 0; + const uint8_t *value_ptr = buffer + i * size; + switch (size) { + case 8: + value = target_buffer_get_u64(target, value_ptr); break; - } - if (retval != ERROR_OK) - { + case 4: + value = target_buffer_get_u32(target, value_ptr); break; + case 2: + value = target_buffer_get_u16(target, value_ptr); + break; + case 1: + value = *value_ptr; } + output_len += snprintf(output + output_len, + sizeof(output) - output_len, + value_fmt, value); - gettimeofday(&now, NULL); - if ((numSamples >= maxSample) || ((now.tv_sec >= timeout.tv_sec) && (now.tv_usec >= timeout.tv_usec))) - { - command_print(cmd_ctx, "Profiling completed. %d samples.", numSamples); - if ((retval = target_poll(target)) != ERROR_OK) - { - free(samples); - return retval; - } - if (target->state == TARGET_HALTED) - { - target_resume(target, 1, 0, 0, 0); /* current pc, addr = 0, do not handle breakpoints, not debugging */ - } - if ((retval = target_poll(target)) != ERROR_OK) - { - free(samples); - return retval; - } - writeGmon(samples, numSamples, args[1]); - command_print(cmd_ctx, "Wrote %s", args[1]); - break; + if ((i % line_modulo == line_modulo - 1) || (i == count - 1)) { + command_print(cmd_ctx, "%s", output); + output_len = 0; } } - free(samples); - - return ERROR_OK; } -static int new_int_array_element(Jim_Interp * interp, const char *varname, int idx, uint32_t val) +COMMAND_HANDLER(handle_md_command) { - char *namebuf; - Jim_Obj *nameObjPtr, *valObjPtr; - int result; - - namebuf = alloc_printf("%s(%d)", varname, idx); - if (!namebuf) - return JIM_ERR; + if (CMD_ARGC < 1) + return ERROR_COMMAND_SYNTAX_ERROR; - nameObjPtr = Jim_NewStringObj(interp, namebuf, -1); - valObjPtr = Jim_NewIntObj(interp, val); - if (!nameObjPtr || !valObjPtr) - { - free(namebuf); - return JIM_ERR; + unsigned size = 0; + switch (CMD_NAME[2]) { + case 'd': + size = 8; + break; + case 'w': + size = 4; + break; + case 'h': + size = 2; + break; + case 'b': + size = 1; + break; + default: + return ERROR_COMMAND_SYNTAX_ERROR; } - Jim_IncrRefCount(nameObjPtr); - Jim_IncrRefCount(valObjPtr); - result = Jim_SetVariable(interp, nameObjPtr, valObjPtr); - Jim_DecrRefCount(interp, nameObjPtr); - Jim_DecrRefCount(interp, valObjPtr); - free(namebuf); - /* printf("%s(%d) <= 0%08x\n", varname, idx, val); */ - return result; -} + bool physical = strcmp(CMD_ARGV[0], "phys") == 0; + int (*fn)(struct target *target, + target_addr_t address, uint32_t size_value, uint32_t count, uint8_t *buffer); + if (physical) { + CMD_ARGC--; + CMD_ARGV++; + fn = target_read_phys_memory; + } else + fn = target_read_memory; + if ((CMD_ARGC < 1) || (CMD_ARGC > 2)) + return ERROR_COMMAND_SYNTAX_ERROR; -static int jim_mem2array(Jim_Interp *interp, int argc, Jim_Obj *const *argv) -{ - command_context_t *context; - target_t *target; + target_addr_t address; + COMMAND_PARSE_ADDRESS(CMD_ARGV[0], address); - context = Jim_GetAssocData(interp, "context"); - if (context == NULL) - { - LOG_ERROR("mem2array: no command context"); - return JIM_ERR; - } - target = get_current_target(context); - if (target == NULL) - { - LOG_ERROR("mem2array: no current target"); - return JIM_ERR; + unsigned count = 1; + if (CMD_ARGC == 2) + COMMAND_PARSE_NUMBER(uint, CMD_ARGV[1], count); + + uint8_t *buffer = calloc(count, size); + if (buffer == NULL) { + LOG_ERROR("Failed to allocate md read buffer"); + return ERROR_FAIL; } - return target_mem2array(interp, target, argc-1, argv + 1); -} + struct target *target = get_current_target(CMD_CTX); + int retval = fn(target, address, size, count, buffer); + if (ERROR_OK == retval) + handle_md_output(CMD_CTX, target, address, size, count, buffer); -static int target_mem2array(Jim_Interp *interp, target_t *target, int argc, Jim_Obj *const *argv) -{ - long l; - uint32_t width; - int len; - uint32_t addr; - uint32_t count; - uint32_t v; - const char *varname; - uint8_t buffer[4096]; - int n, e, retval; - uint32_t i; + free(buffer); - /* argv[1] = name of array to receive the data - * argv[2] = desired width - * argv[3] = memory address - * argv[4] = count of times to read - */ - if (argc != 4) { - Jim_WrongNumArgs(interp, 1, argv, "varname width addr nelems"); - return JIM_ERR; - } - varname = Jim_GetString(argv[0], &len); - /* given "foo" get space for worse case "foo(%d)" .. add 20 */ + return retval; +} - e = Jim_GetLong(interp, argv[1], &l); - width = l; - if (e != JIM_OK) { - return e; +typedef int (*target_write_fn)(struct target *target, + target_addr_t address, uint32_t size, uint32_t count, const uint8_t *buffer); + +static int target_fill_mem(struct target *target, + target_addr_t address, + target_write_fn fn, + unsigned data_size, + /* value */ + uint64_t b, + /* count */ + unsigned c) +{ + /* We have to write in reasonably large chunks to be able + * to fill large memory areas with any sane speed */ + const unsigned chunk_size = 16384; + uint8_t *target_buf = malloc(chunk_size * data_size); + if (target_buf == NULL) { + LOG_ERROR("Out of memory"); + return ERROR_FAIL; } - e = Jim_GetLong(interp, argv[2], &l); - addr = l; - if (e != JIM_OK) { - return e; - } - e = Jim_GetLong(interp, argv[3], &l); - len = l; - if (e != JIM_OK) { - return e; - } - switch (width) { + for (unsigned i = 0; i < chunk_size; i++) { + switch (data_size) { case 8: - width = 1; + target_buffer_set_u64(target, target_buf + i * data_size, b); break; - case 16: - width = 2; + case 4: + target_buffer_set_u32(target, target_buf + i * data_size, b); break; - case 32: - width = 4; + case 2: + target_buffer_set_u16(target, target_buf + i * data_size, b); + break; + case 1: + target_buffer_set_u8(target, target_buf + i * data_size, b); break; default: - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - Jim_AppendStrings(interp, Jim_GetResult(interp), "Invalid width param, must be 8/16/32", NULL); - return JIM_ERR; - } - if (len == 0) { - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - Jim_AppendStrings(interp, Jim_GetResult(interp), "mem2array: zero width read?", NULL); - return JIM_ERR; - } - if ((addr + (len * width)) < addr) { - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - Jim_AppendStrings(interp, Jim_GetResult(interp), "mem2array: addr + len - wraps to zero?", NULL); - return JIM_ERR; - } - /* absurd transfer size? */ - if (len > 65536) { - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - Jim_AppendStrings(interp, Jim_GetResult(interp), "mem2array: absurd > 64K item request", NULL); - return JIM_ERR; + exit(-1); + } } - if ((width == 1) || - ((width == 2) && ((addr & 1) == 0)) || - ((width == 4) && ((addr & 3) == 0))) { - /* all is well */ - } else { - char buf[100]; - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - sprintf(buf, "mem2array address: 0x%08" PRIx32 " is not aligned for %" PRId32 " byte reads", - addr, - width); - Jim_AppendStrings(interp, Jim_GetResult(interp), buf , NULL); - return JIM_ERR; + int retval = ERROR_OK; + + for (unsigned x = 0; x < c; x += chunk_size) { + unsigned current; + current = c - x; + if (current > chunk_size) + current = chunk_size; + retval = fn(target, address + x * data_size, data_size, current, target_buf); + if (retval != ERROR_OK) + break; + /* avoid GDB timeouts */ + keep_alive(); } + free(target_buf); - /* Transfer loop */ + return retval; +} - /* index counter */ - n = 0; - /* assume ok */ - e = JIM_OK; - while (len) { - /* Slurp... in buffer size chunks */ - count = len; /* in objects.. */ - if (count > (sizeof(buffer)/width)) { - count = (sizeof(buffer)/width); - } +COMMAND_HANDLER(handle_mw_command) +{ + if (CMD_ARGC < 2) + return ERROR_COMMAND_SYNTAX_ERROR; + bool physical = strcmp(CMD_ARGV[0], "phys") == 0; + target_write_fn fn; + if (physical) { + CMD_ARGC--; + CMD_ARGV++; + fn = target_write_phys_memory; + } else + fn = target_write_memory; + if ((CMD_ARGC < 2) || (CMD_ARGC > 3)) + return ERROR_COMMAND_SYNTAX_ERROR; - retval = target_read_memory(target, addr, width, count, buffer); - if (retval != ERROR_OK) { - /* BOO !*/ - LOG_ERROR("mem2array: Read @ 0x%08x, w=%d, cnt=%d, failed", - (unsigned int)addr, - (int)width, - (int)count); - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - Jim_AppendStrings(interp, Jim_GetResult(interp), "mem2array: cannot read memory", NULL); - e = JIM_ERR; - len = 0; - } else { - v = 0; /* shut up gcc */ - for (i = 0 ;i < count ;i++, n++) { - switch (width) { - case 4: - v = target_buffer_get_u32(target, &buffer[i*width]); - break; - case 2: - v = target_buffer_get_u16(target, &buffer[i*width]); - break; - case 1: - v = buffer[i] & 0x0ff; - break; - } - new_int_array_element(interp, varname, n, v); - } - len -= count; - } - } + target_addr_t address; + COMMAND_PARSE_ADDRESS(CMD_ARGV[0], address); - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + target_addr_t value; + COMMAND_PARSE_ADDRESS(CMD_ARGV[1], value); - return JIM_OK; -} + unsigned count = 1; + if (CMD_ARGC == 3) + COMMAND_PARSE_NUMBER(uint, CMD_ARGV[2], count); -static int get_int_array_element(Jim_Interp * interp, const char *varname, int idx, uint32_t *val) -{ - char *namebuf; - Jim_Obj *nameObjPtr, *valObjPtr; - int result; - long l; - - namebuf = alloc_printf("%s(%d)", varname, idx); - if (!namebuf) - return JIM_ERR; - - nameObjPtr = Jim_NewStringObj(interp, namebuf, -1); - if (!nameObjPtr) - { - free(namebuf); - return JIM_ERR; + struct target *target = get_current_target(CMD_CTX); + unsigned wordsize; + switch (CMD_NAME[2]) { + case 'd': + wordsize = 8; + break; + case 'w': + wordsize = 4; + break; + case 'h': + wordsize = 2; + break; + case 'b': + wordsize = 1; + break; + default: + return ERROR_COMMAND_SYNTAX_ERROR; } - Jim_IncrRefCount(nameObjPtr); - valObjPtr = Jim_GetVariable(interp, nameObjPtr, JIM_ERRMSG); - Jim_DecrRefCount(interp, nameObjPtr); - free(namebuf); - if (valObjPtr == NULL) - return JIM_ERR; - - result = Jim_GetLong(interp, valObjPtr, &l); - /* printf("%s(%d) => 0%08x\n", varname, idx, val); */ - *val = l; - return result; + return target_fill_mem(target, address, fn, wordsize, value, count); } -static int jim_array2mem(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +static COMMAND_HELPER(parse_load_image_command_CMD_ARGV, struct image *image, + target_addr_t *min_address, target_addr_t *max_address) { - command_context_t *context; - target_t *target; + if (CMD_ARGC < 1 || CMD_ARGC > 5) + return ERROR_COMMAND_SYNTAX_ERROR; - context = Jim_GetAssocData(interp, "context"); - if (context == NULL) { - LOG_ERROR("array2mem: no command context"); - return JIM_ERR; - } - target = get_current_target(context); - if (target == NULL) { - LOG_ERROR("array2mem: no current target"); - return JIM_ERR; + /* a base address isn't always necessary, + * default to 0x0 (i.e. don't relocate) */ + if (CMD_ARGC >= 2) { + target_addr_t addr; + COMMAND_PARSE_ADDRESS(CMD_ARGV[1], addr); + image->base_address = addr; + image->base_address_set = 1; + } else + image->base_address_set = 0; + + image->start_address_set = 0; + + if (CMD_ARGC >= 4) + COMMAND_PARSE_ADDRESS(CMD_ARGV[3], *min_address); + if (CMD_ARGC == 5) { + COMMAND_PARSE_ADDRESS(CMD_ARGV[4], *max_address); + /* use size (given) to find max (required) */ + *max_address += *min_address; } - return target_array2mem(interp,target, argc-1, argv + 1); + if (*min_address > *max_address) + return ERROR_COMMAND_SYNTAX_ERROR; + + return ERROR_OK; } -static int target_array2mem(Jim_Interp *interp, target_t *target, int argc, Jim_Obj *const *argv) +COMMAND_HANDLER(handle_load_image_command) { - long l; - uint32_t width; - int len; - uint32_t addr; - uint32_t count; - uint32_t v; - const char *varname; - uint8_t buffer[4096]; - int n, e, retval; - uint32_t i; + uint8_t *buffer; + size_t buf_cnt; + uint32_t image_size; + target_addr_t min_address = 0; + target_addr_t max_address = -1; + int i; + struct image image; - /* argv[1] = name of array to get the data - * argv[2] = desired width - * argv[3] = memory address - * argv[4] = count to write - */ - if (argc != 4) { - Jim_WrongNumArgs(interp, 1, argv, "varname width addr nelems"); - return JIM_ERR; - } - varname = Jim_GetString(argv[0], &len); - /* given "foo" get space for worse case "foo(%d)" .. add 20 */ + int retval = CALL_COMMAND_HANDLER(parse_load_image_command_CMD_ARGV, + &image, &min_address, &max_address); + if (ERROR_OK != retval) + return retval; - e = Jim_GetLong(interp, argv[1], &l); - width = l; - if (e != JIM_OK) { - return e; - } + struct target *target = get_current_target(CMD_CTX); - e = Jim_GetLong(interp, argv[2], &l); - addr = l; - if (e != JIM_OK) { - return e; - } - e = Jim_GetLong(interp, argv[3], &l); - len = l; - if (e != JIM_OK) { - return e; - } - switch (width) { - case 8: - width = 1; - break; - case 16: - width = 2; + struct duration bench; + duration_start(&bench); + + if (image_open(&image, CMD_ARGV[0], (CMD_ARGC >= 3) ? CMD_ARGV[2] : NULL) != ERROR_OK) + return ERROR_FAIL; + + image_size = 0x0; + retval = ERROR_OK; + for (i = 0; i < image.num_sections; i++) { + buffer = malloc(image.sections[i].size); + if (buffer == NULL) { + command_print(CMD_CTX, + "error allocating buffer for section (%d bytes)", + (int)(image.sections[i].size)); + retval = ERROR_FAIL; break; - case 32: - width = 4; + } + + retval = image_read_section(&image, i, 0x0, image.sections[i].size, buffer, &buf_cnt); + if (retval != ERROR_OK) { + free(buffer); break; - default: - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - Jim_AppendStrings(interp, Jim_GetResult(interp), "Invalid width param, must be 8/16/32", NULL); - return JIM_ERR; - } - if (len == 0) { - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - Jim_AppendStrings(interp, Jim_GetResult(interp), "array2mem: zero width read?", NULL); - return JIM_ERR; - } - if ((addr + (len * width)) < addr) { - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - Jim_AppendStrings(interp, Jim_GetResult(interp), "array2mem: addr + len - wraps to zero?", NULL); - return JIM_ERR; - } - /* absurd transfer size? */ - if (len > 65536) { - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - Jim_AppendStrings(interp, Jim_GetResult(interp), "array2mem: absurd > 64K item request", NULL); - return JIM_ERR; - } + } - if ((width == 1) || - ((width == 2) && ((addr & 1) == 0)) || - ((width == 4) && ((addr & 3) == 0))) { - /* all is well */ - } else { - char buf[100]; - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - sprintf(buf, "array2mem address: 0x%08x is not aligned for %d byte reads", - (unsigned int)addr, - (int)width); - Jim_AppendStrings(interp, Jim_GetResult(interp), buf , NULL); - return JIM_ERR; - } + uint32_t offset = 0; + uint32_t length = buf_cnt; - /* Transfer loop */ + /* DANGER!!! beware of unsigned comparision here!!! */ - /* index counter */ - n = 0; - /* assume ok */ - e = JIM_OK; - while (len) { - /* Slurp... in buffer size chunks */ + if ((image.sections[i].base_address + buf_cnt >= min_address) && + (image.sections[i].base_address < max_address)) { - count = len; /* in objects.. */ - if (count > (sizeof(buffer)/width)) { - count = (sizeof(buffer)/width); - } + if (image.sections[i].base_address < min_address) { + /* clip addresses below */ + offset += min_address-image.sections[i].base_address; + length -= offset; + } - v = 0; /* shut up gcc */ - for (i = 0 ;i < count ;i++, n++) { - get_int_array_element(interp, varname, n, &v); - switch (width) { - case 4: - target_buffer_set_u32(target, &buffer[i*width], v); - break; - case 2: - target_buffer_set_u16(target, &buffer[i*width], v); - break; - case 1: - buffer[i] = v & 0x0ff; + if (image.sections[i].base_address + buf_cnt > max_address) + length -= (image.sections[i].base_address + buf_cnt)-max_address; + + retval = target_write_buffer(target, + image.sections[i].base_address + offset, length, buffer + offset); + if (retval != ERROR_OK) { + free(buffer); break; } + image_size += length; + command_print(CMD_CTX, "%u bytes written at address " TARGET_ADDR_FMT "", + (unsigned int)length, + image.sections[i].base_address + offset); } - len -= count; - retval = target_write_memory(target, addr, width, count, buffer); - if (retval != ERROR_OK) { - /* BOO !*/ - LOG_ERROR("array2mem: Write @ 0x%08x, w=%d, cnt=%d, failed", - (unsigned int)addr, - (int)width, - (int)count); - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); - Jim_AppendStrings(interp, Jim_GetResult(interp), "array2mem: cannot read memory", NULL); - e = JIM_ERR; - len = 0; - } + free(buffer); } - Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + if ((ERROR_OK == retval) && (duration_measure(&bench) == ERROR_OK)) { + command_print(CMD_CTX, "downloaded %" PRIu32 " bytes " + "in %fs (%0.3f KiB/s)", image_size, + duration_elapsed(&bench), duration_kbps(&bench, image_size)); + } + + image_close(&image); + + return retval; - return JIM_OK; } -void target_all_handle_event(enum target_event e) +COMMAND_HANDLER(handle_dump_image_command) { - target_t *target; + struct fileio *fileio; + uint8_t *buffer; + int retval, retvaltemp; + target_addr_t address, size; + struct duration bench; + struct target *target = get_current_target(CMD_CTX); - LOG_DEBUG("**all*targets: event: %d, %s", - (int)e, - Jim_Nvp_value2name_simple(nvp_target_event, e)->name); + if (CMD_ARGC != 3) + return ERROR_COMMAND_SYNTAX_ERROR; - target = all_targets; - while (target) { - target_handle_event(target, e); - target = target->next; + COMMAND_PARSE_ADDRESS(CMD_ARGV[1], address); + COMMAND_PARSE_ADDRESS(CMD_ARGV[2], size); + + uint32_t buf_size = (size > 4096) ? 4096 : size; + buffer = malloc(buf_size); + if (!buffer) + return ERROR_FAIL; + + retval = fileio_open(&fileio, CMD_ARGV[0], FILEIO_WRITE, FILEIO_BINARY); + if (retval != ERROR_OK) { + free(buffer); + return retval; } -} + duration_start(&bench); -/* FIX? should we propagate errors here rather than printing them - * and continuing? - */ -void target_handle_event(target_t *target, enum target_event e) -{ - target_event_action_t *teap; + while (size > 0) { + size_t size_written; + uint32_t this_run_size = (size > buf_size) ? buf_size : size; + retval = target_read_buffer(target, address, this_run_size, buffer); + if (retval != ERROR_OK) + break; - for (teap = target->event_action; teap != NULL; teap = teap->next) { - if (teap->event == e) { - LOG_DEBUG("target: (%d) %s (%s) event: %d (%s) action: %s", - target->target_number, - target->cmd_name, - target_get_name(target), - e, - Jim_Nvp_value2name_simple(nvp_target_event, e)->name, - Jim_GetString(teap->body, NULL)); - if (Jim_EvalObj(interp, teap->body) != JIM_OK) - { - Jim_PrintErrorMessage(interp); - } - } + retval = fileio_write(fileio, this_run_size, buffer, &size_written); + if (retval != ERROR_OK) + break; + + size -= this_run_size; + address += this_run_size; } -} -enum target_cfg_param { - TCFG_TYPE, - TCFG_EVENT, - TCFG_WORK_AREA_VIRT, - TCFG_WORK_AREA_PHYS, - TCFG_WORK_AREA_SIZE, - TCFG_WORK_AREA_BACKUP, - TCFG_ENDIAN, - TCFG_VARIANT, - TCFG_CHAIN_POSITION, -}; + free(buffer); -static Jim_Nvp nvp_config_opts[] = { - { .name = "-type", .value = TCFG_TYPE }, - { .name = "-event", .value = TCFG_EVENT }, - { .name = "-work-area-virt", .value = TCFG_WORK_AREA_VIRT }, - { .name = "-work-area-phys", .value = TCFG_WORK_AREA_PHYS }, - { .name = "-work-area-size", .value = TCFG_WORK_AREA_SIZE }, - { .name = "-work-area-backup", .value = TCFG_WORK_AREA_BACKUP }, - { .name = "-endian" , .value = TCFG_ENDIAN }, - { .name = "-variant", .value = TCFG_VARIANT }, - { .name = "-chain-position", .value = TCFG_CHAIN_POSITION }, + if ((ERROR_OK == retval) && (duration_measure(&bench) == ERROR_OK)) { + size_t filesize; + retval = fileio_size(fileio, &filesize); + if (retval != ERROR_OK) + return retval; + command_print(CMD_CTX, + "dumped %zu bytes in %fs (%0.3f KiB/s)", filesize, + duration_elapsed(&bench), duration_kbps(&bench, filesize)); + } - { .name = NULL, .value = -1 } + retvaltemp = fileio_close(fileio); + if (retvaltemp != ERROR_OK) + return retvaltemp; + + return retval; +} + +enum verify_mode { + IMAGE_TEST = 0, + IMAGE_VERIFY = 1, + IMAGE_CHECKSUM_ONLY = 2 }; -static int target_configure(Jim_GetOptInfo *goi, target_t *target) +static COMMAND_HELPER(handle_verify_image_command_internal, enum verify_mode verify) { - Jim_Nvp *n; - Jim_Obj *o; - jim_wide w; - char *cp; + uint8_t *buffer; + size_t buf_cnt; + uint32_t image_size; + int i; + int retval; + uint32_t checksum = 0; + uint32_t mem_checksum = 0; + + struct image image; + + struct target *target = get_current_target(CMD_CTX); + + if (CMD_ARGC < 1) + return ERROR_COMMAND_SYNTAX_ERROR; + + if (!target) { + LOG_ERROR("no target selected"); + return ERROR_FAIL; + } + + struct duration bench; + duration_start(&bench); + + if (CMD_ARGC >= 2) { + target_addr_t addr; + COMMAND_PARSE_ADDRESS(CMD_ARGV[1], addr); + image.base_address = addr; + image.base_address_set = 1; + } else { + image.base_address_set = 0; + image.base_address = 0x0; + } + + image.start_address_set = 0; + + retval = image_open(&image, CMD_ARGV[0], (CMD_ARGC == 3) ? CMD_ARGV[2] : NULL); + if (retval != ERROR_OK) + return retval; + + image_size = 0x0; + int diffs = 0; + retval = ERROR_OK; + for (i = 0; i < image.num_sections; i++) { + buffer = malloc(image.sections[i].size); + if (buffer == NULL) { + command_print(CMD_CTX, + "error allocating buffer for section (%d bytes)", + (int)(image.sections[i].size)); + break; + } + retval = image_read_section(&image, i, 0x0, image.sections[i].size, buffer, &buf_cnt); + if (retval != ERROR_OK) { + free(buffer); + break; + } + + if (verify >= IMAGE_VERIFY) { + /* calculate checksum of image */ + retval = image_calculate_checksum(buffer, buf_cnt, &checksum); + if (retval != ERROR_OK) { + free(buffer); + break; + } + + retval = target_checksum_memory(target, image.sections[i].base_address, buf_cnt, &mem_checksum); + if (retval != ERROR_OK) { + free(buffer); + break; + } + if ((checksum != mem_checksum) && (verify == IMAGE_CHECKSUM_ONLY)) { + LOG_ERROR("checksum mismatch"); + free(buffer); + retval = ERROR_FAIL; + goto done; + } + if (checksum != mem_checksum) { + /* failed crc checksum, fall back to a binary compare */ + uint8_t *data; + + if (diffs == 0) + LOG_ERROR("checksum mismatch - attempting binary compare"); + + data = malloc(buf_cnt); + + /* Can we use 32bit word accesses? */ + int size = 1; + int count = buf_cnt; + if ((count % 4) == 0) { + size *= 4; + count /= 4; + } + retval = target_read_memory(target, image.sections[i].base_address, size, count, data); + if (retval == ERROR_OK) { + uint32_t t; + for (t = 0; t < buf_cnt; t++) { + if (data[t] != buffer[t]) { + command_print(CMD_CTX, + "diff %d address 0x%08x. Was 0x%02x instead of 0x%02x", + diffs, + (unsigned)(t + image.sections[i].base_address), + data[t], + buffer[t]); + if (diffs++ >= 127) { + command_print(CMD_CTX, "More than 128 errors, the rest are not printed."); + free(data); + free(buffer); + goto done; + } + } + keep_alive(); + } + } + free(data); + } + } else { + command_print(CMD_CTX, "address " TARGET_ADDR_FMT " length 0x%08zx", + image.sections[i].base_address, + buf_cnt); + } + + free(buffer); + image_size += buf_cnt; + } + if (diffs > 0) + command_print(CMD_CTX, "No more differences found."); +done: + if (diffs > 0) + retval = ERROR_FAIL; + if ((ERROR_OK == retval) && (duration_measure(&bench) == ERROR_OK)) { + command_print(CMD_CTX, "verified %" PRIu32 " bytes " + "in %fs (%0.3f KiB/s)", image_size, + duration_elapsed(&bench), duration_kbps(&bench, image_size)); + } + + image_close(&image); + + return retval; +} + +COMMAND_HANDLER(handle_verify_image_checksum_command) +{ + return CALL_COMMAND_HANDLER(handle_verify_image_command_internal, IMAGE_CHECKSUM_ONLY); +} + +COMMAND_HANDLER(handle_verify_image_command) +{ + return CALL_COMMAND_HANDLER(handle_verify_image_command_internal, IMAGE_VERIFY); +} + +COMMAND_HANDLER(handle_test_image_command) +{ + return CALL_COMMAND_HANDLER(handle_verify_image_command_internal, IMAGE_TEST); +} + +static int handle_bp_command_list(struct command_context *cmd_ctx) +{ + struct target *target = get_current_target(cmd_ctx); + struct breakpoint *breakpoint = target->breakpoints; + while (breakpoint) { + if (breakpoint->type == BKPT_SOFT) { + char *buf = buf_to_str(breakpoint->orig_instr, + breakpoint->length, 16); + command_print(cmd_ctx, "IVA breakpoint: " TARGET_ADDR_FMT ", 0x%x, %i, 0x%s", + breakpoint->address, + breakpoint->length, + breakpoint->set, buf); + free(buf); + } else { + if ((breakpoint->address == 0) && (breakpoint->asid != 0)) + command_print(cmd_ctx, "Context breakpoint: 0x%8.8" PRIx32 ", 0x%x, %i", + breakpoint->asid, + breakpoint->length, breakpoint->set); + else if ((breakpoint->address != 0) && (breakpoint->asid != 0)) { + command_print(cmd_ctx, "Hybrid breakpoint(IVA): " TARGET_ADDR_FMT ", 0x%x, %i", + breakpoint->address, + breakpoint->length, breakpoint->set); + command_print(cmd_ctx, "\t|--->linked with ContextID: 0x%8.8" PRIx32, + breakpoint->asid); + } else + command_print(cmd_ctx, "Breakpoint(IVA): " TARGET_ADDR_FMT ", 0x%x, %i", + breakpoint->address, + breakpoint->length, breakpoint->set); + } + + breakpoint = breakpoint->next; + } + return ERROR_OK; +} + +static int handle_bp_command_set(struct command_context *cmd_ctx, + target_addr_t addr, uint32_t asid, uint32_t length, int hw) +{ + struct target *target = get_current_target(cmd_ctx); + int retval; + + if (asid == 0) { + retval = breakpoint_add(target, addr, length, hw); + if (ERROR_OK == retval) + command_print(cmd_ctx, "breakpoint set at " TARGET_ADDR_FMT "", addr); + else { + LOG_ERROR("Failure setting breakpoint, the same address(IVA) is already used"); + return retval; + } + } else if (addr == 0) { + if (target->type->add_context_breakpoint == NULL) { + LOG_WARNING("Context breakpoint not available"); + return ERROR_OK; + } + retval = context_breakpoint_add(target, asid, length, hw); + if (ERROR_OK == retval) + command_print(cmd_ctx, "Context breakpoint set at 0x%8.8" PRIx32 "", asid); + else { + LOG_ERROR("Failure setting breakpoint, the same address(CONTEXTID) is already used"); + return retval; + } + } else { + if (target->type->add_hybrid_breakpoint == NULL) { + LOG_WARNING("Hybrid breakpoint not available"); + return ERROR_OK; + } + retval = hybrid_breakpoint_add(target, addr, asid, length, hw); + if (ERROR_OK == retval) + command_print(cmd_ctx, "Hybrid breakpoint set at 0x%8.8" PRIx32 "", asid); + else { + LOG_ERROR("Failure setting breakpoint, the same address is already used"); + return retval; + } + } + return ERROR_OK; +} + +COMMAND_HANDLER(handle_bp_command) +{ + target_addr_t addr; + uint32_t asid; + uint32_t length; + int hw = BKPT_SOFT; + + switch (CMD_ARGC) { + case 0: + return handle_bp_command_list(CMD_CTX); + + case 2: + asid = 0; + COMMAND_PARSE_ADDRESS(CMD_ARGV[0], addr); + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[1], length); + return handle_bp_command_set(CMD_CTX, addr, asid, length, hw); + + case 3: + if (strcmp(CMD_ARGV[2], "hw") == 0) { + hw = BKPT_HARD; + COMMAND_PARSE_ADDRESS(CMD_ARGV[0], addr); + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[1], length); + asid = 0; + return handle_bp_command_set(CMD_CTX, addr, asid, length, hw); + } else if (strcmp(CMD_ARGV[2], "hw_ctx") == 0) { + hw = BKPT_HARD; + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[0], asid); + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[1], length); + addr = 0; + return handle_bp_command_set(CMD_CTX, addr, asid, length, hw); + } + /* fallthrough */ + case 4: + hw = BKPT_HARD; + COMMAND_PARSE_ADDRESS(CMD_ARGV[0], addr); + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[1], asid); + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[2], length); + return handle_bp_command_set(CMD_CTX, addr, asid, length, hw); + + default: + return ERROR_COMMAND_SYNTAX_ERROR; + } +} + +COMMAND_HANDLER(handle_rbp_command) +{ + if (CMD_ARGC != 1) + return ERROR_COMMAND_SYNTAX_ERROR; + + target_addr_t addr; + COMMAND_PARSE_ADDRESS(CMD_ARGV[0], addr); + + struct target *target = get_current_target(CMD_CTX); + breakpoint_remove(target, addr); + + return ERROR_OK; +} + +COMMAND_HANDLER(handle_wp_command) +{ + struct target *target = get_current_target(CMD_CTX); + + if (CMD_ARGC == 0) { + struct watchpoint *watchpoint = target->watchpoints; + + while (watchpoint) { + command_print(CMD_CTX, "address: " TARGET_ADDR_FMT + ", len: 0x%8.8" PRIx32 + ", r/w/a: %i, value: 0x%8.8" PRIx32 + ", mask: 0x%8.8" PRIx32, + watchpoint->address, + watchpoint->length, + (int)watchpoint->rw, + watchpoint->value, + watchpoint->mask); + watchpoint = watchpoint->next; + } + return ERROR_OK; + } + + enum watchpoint_rw type = WPT_ACCESS; + uint32_t addr = 0; + uint32_t length = 0; + uint32_t data_value = 0x0; + uint32_t data_mask = 0xffffffff; + + switch (CMD_ARGC) { + case 5: + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[4], data_mask); + /* fall through */ + case 4: + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[3], data_value); + /* fall through */ + case 3: + switch (CMD_ARGV[2][0]) { + case 'r': + type = WPT_READ; + break; + case 'w': + type = WPT_WRITE; + break; + case 'a': + type = WPT_ACCESS; + break; + default: + LOG_ERROR("invalid watchpoint mode ('%c')", CMD_ARGV[2][0]); + return ERROR_COMMAND_SYNTAX_ERROR; + } + /* fall through */ + case 2: + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[1], length); + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[0], addr); + break; + + default: + return ERROR_COMMAND_SYNTAX_ERROR; + } + + int retval = watchpoint_add(target, addr, length, type, + data_value, data_mask); + if (ERROR_OK != retval) + LOG_ERROR("Failure setting watchpoints"); + + return retval; +} + +COMMAND_HANDLER(handle_rwp_command) +{ + if (CMD_ARGC != 1) + return ERROR_COMMAND_SYNTAX_ERROR; + + uint32_t addr; + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[0], addr); + + struct target *target = get_current_target(CMD_CTX); + watchpoint_remove(target, addr); + + return ERROR_OK; +} + +/** + * Translate a virtual address to a physical address. + * + * The low-level target implementation must have logged a detailed error + * which is forwarded to telnet/GDB session. + */ +COMMAND_HANDLER(handle_virt2phys_command) +{ + if (CMD_ARGC != 1) + return ERROR_COMMAND_SYNTAX_ERROR; + + target_addr_t va; + COMMAND_PARSE_ADDRESS(CMD_ARGV[0], va); + target_addr_t pa; + + struct target *target = get_current_target(CMD_CTX); + int retval = target->type->virt2phys(target, va, &pa); + if (retval == ERROR_OK) + command_print(CMD_CTX, "Physical address " TARGET_ADDR_FMT "", pa); + + return retval; +} + +static void writeData(FILE *f, const void *data, size_t len) +{ + size_t written = fwrite(data, 1, len, f); + if (written != len) + LOG_ERROR("failed to write %zu bytes: %s", len, strerror(errno)); +} + +static void writeLong(FILE *f, int l, struct target *target) +{ + uint8_t val[4]; + + target_buffer_set_u32(target, val, l); + writeData(f, val, 4); +} + +static void writeString(FILE *f, char *s) +{ + writeData(f, s, strlen(s)); +} + +typedef unsigned char UNIT[2]; /* unit of profiling */ + +/* Dump a gmon.out histogram file. */ +static void write_gmon(uint32_t *samples, uint32_t sampleNum, const char *filename, bool with_range, + uint32_t start_address, uint32_t end_address, struct target *target, uint32_t duration_ms) +{ + uint32_t i; + FILE *f = fopen(filename, "w"); + if (f == NULL) + return; + writeString(f, "gmon"); + writeLong(f, 0x00000001, target); /* Version */ + writeLong(f, 0, target); /* padding */ + writeLong(f, 0, target); /* padding */ + writeLong(f, 0, target); /* padding */ + + uint8_t zero = 0; /* GMON_TAG_TIME_HIST */ + writeData(f, &zero, 1); + + /* figure out bucket size */ + uint32_t min; + uint32_t max; + if (with_range) { + min = start_address; + max = end_address; + } else { + min = samples[0]; + max = samples[0]; + for (i = 0; i < sampleNum; i++) { + if (min > samples[i]) + min = samples[i]; + if (max < samples[i]) + max = samples[i]; + } + + /* max should be (largest sample + 1) + * Refer to binutils/gprof/hist.c (find_histogram_for_pc) */ + max++; + } + + int addressSpace = max - min; + assert(addressSpace >= 2); + + /* FIXME: What is the reasonable number of buckets? + * The profiling result will be more accurate if there are enough buckets. */ + static const uint32_t maxBuckets = 128 * 1024; /* maximum buckets. */ + uint32_t numBuckets = addressSpace / sizeof(UNIT); + if (numBuckets > maxBuckets) + numBuckets = maxBuckets; + int *buckets = malloc(sizeof(int) * numBuckets); + if (buckets == NULL) { + fclose(f); + return; + } + memset(buckets, 0, sizeof(int) * numBuckets); + for (i = 0; i < sampleNum; i++) { + uint32_t address = samples[i]; + + if ((address < min) || (max <= address)) + continue; + + long long a = address - min; + long long b = numBuckets; + long long c = addressSpace; + int index_t = (a * b) / c; /* danger!!!! int32 overflows */ + buckets[index_t]++; + } + + /* append binary memory gmon.out &profile_hist_hdr ((char*)&profile_hist_hdr + sizeof(struct gmon_hist_hdr)) */ + writeLong(f, min, target); /* low_pc */ + writeLong(f, max, target); /* high_pc */ + writeLong(f, numBuckets, target); /* # of buckets */ + float sample_rate = sampleNum / (duration_ms / 1000.0); + writeLong(f, sample_rate, target); + writeString(f, "seconds"); + for (i = 0; i < (15-strlen("seconds")); i++) + writeData(f, &zero, 1); + writeString(f, "s"); + + /*append binary memory gmon.out profile_hist_data (profile_hist_data + profile_hist_hdr.hist_size) */ + + char *data = malloc(2 * numBuckets); + if (data != NULL) { + for (i = 0; i < numBuckets; i++) { + int val; + val = buckets[i]; + if (val > 65535) + val = 65535; + data[i * 2] = val&0xff; + data[i * 2 + 1] = (val >> 8) & 0xff; + } + free(buckets); + writeData(f, data, numBuckets * 2); + free(data); + } else + free(buckets); + + fclose(f); +} + +/* profiling samples the CPU PC as quickly as OpenOCD is able, + * which will be used as a random sampling of PC */ +COMMAND_HANDLER(handle_profile_command) +{ + struct target *target = get_current_target(CMD_CTX); + + if ((CMD_ARGC != 2) && (CMD_ARGC != 4)) + return ERROR_COMMAND_SYNTAX_ERROR; + + const uint32_t MAX_PROFILE_SAMPLE_NUM = 10000; + uint32_t offset; + uint32_t num_of_samples; + int retval = ERROR_OK; + + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[0], offset); + + uint32_t *samples = malloc(sizeof(uint32_t) * MAX_PROFILE_SAMPLE_NUM); + if (samples == NULL) { + LOG_ERROR("No memory to store samples."); + return ERROR_FAIL; + } + + uint64_t timestart_ms = timeval_ms(); + /** + * Some cores let us sample the PC without the + * annoying halt/resume step; for example, ARMv7 PCSR. + * Provide a way to use that more efficient mechanism. + */ + retval = target_profiling(target, samples, MAX_PROFILE_SAMPLE_NUM, + &num_of_samples, offset); + if (retval != ERROR_OK) { + free(samples); + return retval; + } + uint32_t duration_ms = timeval_ms() - timestart_ms; + + assert(num_of_samples <= MAX_PROFILE_SAMPLE_NUM); + + retval = target_poll(target); + if (retval != ERROR_OK) { + free(samples); + return retval; + } + if (target->state == TARGET_RUNNING) { + retval = target_halt(target); + if (retval != ERROR_OK) { + free(samples); + return retval; + } + } + + retval = target_poll(target); + if (retval != ERROR_OK) { + free(samples); + return retval; + } + + uint32_t start_address = 0; + uint32_t end_address = 0; + bool with_range = false; + if (CMD_ARGC == 4) { + with_range = true; + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[2], start_address); + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[3], end_address); + } + + write_gmon(samples, num_of_samples, CMD_ARGV[1], + with_range, start_address, end_address, target, duration_ms); + command_print(CMD_CTX, "Wrote %s", CMD_ARGV[1]); + + free(samples); + return retval; +} + +static int new_int_array_element(Jim_Interp *interp, const char *varname, int idx, uint32_t val) +{ + char *namebuf; + Jim_Obj *nameObjPtr, *valObjPtr; + int result; + + namebuf = alloc_printf("%s(%d)", varname, idx); + if (!namebuf) + return JIM_ERR; + + nameObjPtr = Jim_NewStringObj(interp, namebuf, -1); + valObjPtr = Jim_NewIntObj(interp, val); + if (!nameObjPtr || !valObjPtr) { + free(namebuf); + return JIM_ERR; + } + + Jim_IncrRefCount(nameObjPtr); + Jim_IncrRefCount(valObjPtr); + result = Jim_SetVariable(interp, nameObjPtr, valObjPtr); + Jim_DecrRefCount(interp, nameObjPtr); + Jim_DecrRefCount(interp, valObjPtr); + free(namebuf); + /* printf("%s(%d) <= 0%08x\n", varname, idx, val); */ + return result; +} + +static int jim_mem2array(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + struct command_context *context; + struct target *target; + + context = current_command_context(interp); + assert(context != NULL); + + target = get_current_target(context); + if (target == NULL) { + LOG_ERROR("mem2array: no current target"); + return JIM_ERR; + } + + return target_mem2array(interp, target, argc - 1, argv + 1); +} + +static int target_mem2array(Jim_Interp *interp, struct target *target, int argc, Jim_Obj *const *argv) +{ + long l; + uint32_t width; + int len; + uint32_t addr; + uint32_t count; + uint32_t v; + const char *varname; + const char *phys; + bool is_phys; + int n, e, retval; + uint32_t i; + + /* argv[1] = name of array to receive the data + * argv[2] = desired width + * argv[3] = memory address + * argv[4] = count of times to read + */ + + if (argc < 4 || argc > 5) { + Jim_WrongNumArgs(interp, 0, argv, "varname width addr nelems [phys]"); + return JIM_ERR; + } + varname = Jim_GetString(argv[0], &len); + /* given "foo" get space for worse case "foo(%d)" .. add 20 */ + + e = Jim_GetLong(interp, argv[1], &l); + width = l; + if (e != JIM_OK) + return e; + + e = Jim_GetLong(interp, argv[2], &l); + addr = l; + if (e != JIM_OK) + return e; + e = Jim_GetLong(interp, argv[3], &l); + len = l; + if (e != JIM_OK) + return e; + is_phys = false; + if (argc > 4) { + phys = Jim_GetString(argv[4], &n); + if (!strncmp(phys, "phys", n)) + is_phys = true; + else + return JIM_ERR; + } + switch (width) { + case 8: + width = 1; + break; + case 16: + width = 2; + break; + case 32: + width = 4; + break; + default: + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + Jim_AppendStrings(interp, Jim_GetResult(interp), "Invalid width param, must be 8/16/32", NULL); + return JIM_ERR; + } + if (len == 0) { + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + Jim_AppendStrings(interp, Jim_GetResult(interp), "mem2array: zero width read?", NULL); + return JIM_ERR; + } + if ((addr + (len * width)) < addr) { + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + Jim_AppendStrings(interp, Jim_GetResult(interp), "mem2array: addr + len - wraps to zero?", NULL); + return JIM_ERR; + } + /* absurd transfer size? */ + if (len > 65536) { + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + Jim_AppendStrings(interp, Jim_GetResult(interp), "mem2array: absurd > 64K item request", NULL); + return JIM_ERR; + } + + if ((width == 1) || + ((width == 2) && ((addr & 1) == 0)) || + ((width == 4) && ((addr & 3) == 0))) { + /* all is well */ + } else { + char buf[100]; + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + sprintf(buf, "mem2array address: 0x%08" PRIx32 " is not aligned for %" PRId32 " byte reads", + addr, + width); + Jim_AppendStrings(interp, Jim_GetResult(interp), buf, NULL); + return JIM_ERR; + } + + /* Transfer loop */ + + /* index counter */ + n = 0; + + size_t buffersize = 4096; + uint8_t *buffer = malloc(buffersize); + if (buffer == NULL) + return JIM_ERR; + + /* assume ok */ + e = JIM_OK; + while (len) { + /* Slurp... in buffer size chunks */ + + count = len; /* in objects.. */ + if (count > (buffersize / width)) + count = (buffersize / width); + + if (is_phys) + retval = target_read_phys_memory(target, addr, width, count, buffer); + else + retval = target_read_memory(target, addr, width, count, buffer); + if (retval != ERROR_OK) { + /* BOO !*/ + LOG_ERROR("mem2array: Read @ 0x%08" PRIx32 ", w=%" PRId32 ", cnt=%" PRId32 ", failed", + addr, + width, + count); + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + Jim_AppendStrings(interp, Jim_GetResult(interp), "mem2array: cannot read memory", NULL); + e = JIM_ERR; + break; + } else { + v = 0; /* shut up gcc */ + for (i = 0; i < count ; i++, n++) { + switch (width) { + case 4: + v = target_buffer_get_u32(target, &buffer[i*width]); + break; + case 2: + v = target_buffer_get_u16(target, &buffer[i*width]); + break; + case 1: + v = buffer[i] & 0x0ff; + break; + } + new_int_array_element(interp, varname, n, v); + } + len -= count; + addr += count * width; + } + } + + free(buffer); + + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + + return e; +} + +static int get_int_array_element(Jim_Interp *interp, const char *varname, int idx, uint32_t *val) +{ + char *namebuf; + Jim_Obj *nameObjPtr, *valObjPtr; + int result; + long l; + + namebuf = alloc_printf("%s(%d)", varname, idx); + if (!namebuf) + return JIM_ERR; + + nameObjPtr = Jim_NewStringObj(interp, namebuf, -1); + if (!nameObjPtr) { + free(namebuf); + return JIM_ERR; + } + + Jim_IncrRefCount(nameObjPtr); + valObjPtr = Jim_GetVariable(interp, nameObjPtr, JIM_ERRMSG); + Jim_DecrRefCount(interp, nameObjPtr); + free(namebuf); + if (valObjPtr == NULL) + return JIM_ERR; + + result = Jim_GetLong(interp, valObjPtr, &l); + /* printf("%s(%d) => 0%08x\n", varname, idx, val); */ + *val = l; + return result; +} + +static int jim_array2mem(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + struct command_context *context; + struct target *target; + + context = current_command_context(interp); + assert(context != NULL); + + target = get_current_target(context); + if (target == NULL) { + LOG_ERROR("array2mem: no current target"); + return JIM_ERR; + } + + return target_array2mem(interp, target, argc-1, argv + 1); +} + +static int target_array2mem(Jim_Interp *interp, struct target *target, + int argc, Jim_Obj *const *argv) +{ + long l; + uint32_t width; + int len; + uint32_t addr; + uint32_t count; + uint32_t v; + const char *varname; + const char *phys; + bool is_phys; + int n, e, retval; + uint32_t i; + + /* argv[1] = name of array to get the data + * argv[2] = desired width + * argv[3] = memory address + * argv[4] = count to write + */ + if (argc < 4 || argc > 5) { + Jim_WrongNumArgs(interp, 0, argv, "varname width addr nelems [phys]"); + return JIM_ERR; + } + varname = Jim_GetString(argv[0], &len); + /* given "foo" get space for worse case "foo(%d)" .. add 20 */ + + e = Jim_GetLong(interp, argv[1], &l); + width = l; + if (e != JIM_OK) + return e; + + e = Jim_GetLong(interp, argv[2], &l); + addr = l; + if (e != JIM_OK) + return e; + e = Jim_GetLong(interp, argv[3], &l); + len = l; + if (e != JIM_OK) + return e; + is_phys = false; + if (argc > 4) { + phys = Jim_GetString(argv[4], &n); + if (!strncmp(phys, "phys", n)) + is_phys = true; + else + return JIM_ERR; + } + switch (width) { + case 8: + width = 1; + break; + case 16: + width = 2; + break; + case 32: + width = 4; + break; + default: + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + Jim_AppendStrings(interp, Jim_GetResult(interp), + "Invalid width param, must be 8/16/32", NULL); + return JIM_ERR; + } + if (len == 0) { + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + Jim_AppendStrings(interp, Jim_GetResult(interp), + "array2mem: zero width read?", NULL); + return JIM_ERR; + } + if ((addr + (len * width)) < addr) { + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + Jim_AppendStrings(interp, Jim_GetResult(interp), + "array2mem: addr + len - wraps to zero?", NULL); + return JIM_ERR; + } + /* absurd transfer size? */ + if (len > 65536) { + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + Jim_AppendStrings(interp, Jim_GetResult(interp), + "array2mem: absurd > 64K item request", NULL); + return JIM_ERR; + } + + if ((width == 1) || + ((width == 2) && ((addr & 1) == 0)) || + ((width == 4) && ((addr & 3) == 0))) { + /* all is well */ + } else { + char buf[100]; + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + sprintf(buf, "array2mem address: 0x%08" PRIx32 " is not aligned for %" PRId32 " byte reads", + addr, + width); + Jim_AppendStrings(interp, Jim_GetResult(interp), buf, NULL); + return JIM_ERR; + } + + /* Transfer loop */ + + /* index counter */ + n = 0; + /* assume ok */ + e = JIM_OK; + + size_t buffersize = 4096; + uint8_t *buffer = malloc(buffersize); + if (buffer == NULL) + return JIM_ERR; + + while (len) { + /* Slurp... in buffer size chunks */ + + count = len; /* in objects.. */ + if (count > (buffersize / width)) + count = (buffersize / width); + + v = 0; /* shut up gcc */ + for (i = 0; i < count; i++, n++) { + get_int_array_element(interp, varname, n, &v); + switch (width) { + case 4: + target_buffer_set_u32(target, &buffer[i * width], v); + break; + case 2: + target_buffer_set_u16(target, &buffer[i * width], v); + break; + case 1: + buffer[i] = v & 0x0ff; + break; + } + } + len -= count; + + if (is_phys) + retval = target_write_phys_memory(target, addr, width, count, buffer); + else + retval = target_write_memory(target, addr, width, count, buffer); + if (retval != ERROR_OK) { + /* BOO !*/ + LOG_ERROR("array2mem: Write @ 0x%08" PRIx32 ", w=%" PRId32 ", cnt=%" PRId32 ", failed", + addr, + width, + count); + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + Jim_AppendStrings(interp, Jim_GetResult(interp), "array2mem: cannot read memory", NULL); + e = JIM_ERR; + break; + } + addr += count * width; + } + + free(buffer); + + Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); + + return e; +} + +/* FIX? should we propagate errors here rather than printing them + * and continuing? + */ +void target_handle_event(struct target *target, enum target_event e) +{ + struct target_event_action *teap; + + for (teap = target->event_action; teap != NULL; teap = teap->next) { + if (teap->event == e) { + LOG_DEBUG("target(%d): %s (%s) event: %d (%s) action: %s", + target->target_number, + target_name(target), + target_type_name(target), + e, + Jim_Nvp_value2name_simple(nvp_target_event, e)->name, + Jim_GetString(teap->body, NULL)); + + /* Override current target by the target an event + * is issued from (lot of scripts need it). + * Return back to previous override as soon + * as the handler processing is done */ + struct command_context *cmd_ctx = current_command_context(teap->interp); + struct target *saved_target_override = cmd_ctx->current_target_override; + cmd_ctx->current_target_override = target; + + if (Jim_EvalObj(teap->interp, teap->body) != JIM_OK) { + Jim_MakeErrorMessage(teap->interp); + command_print(NULL, "%s\n", Jim_GetString(Jim_GetResult(teap->interp), NULL)); + } + + cmd_ctx->current_target_override = saved_target_override; + } + } +} + +/** + * Returns true only if the target has a handler for the specified event. + */ +bool target_has_event_action(struct target *target, enum target_event event) +{ + struct target_event_action *teap; + + for (teap = target->event_action; teap != NULL; teap = teap->next) { + if (teap->event == event) + return true; + } + return false; +} + +enum target_cfg_param { + TCFG_TYPE, + TCFG_EVENT, + TCFG_WORK_AREA_VIRT, + TCFG_WORK_AREA_PHYS, + TCFG_WORK_AREA_SIZE, + TCFG_WORK_AREA_BACKUP, + TCFG_ENDIAN, + TCFG_COREID, + TCFG_CHAIN_POSITION, + TCFG_DBGBASE, + TCFG_RTOS, + TCFG_DEFER_EXAMINE, + TCFG_GDB_PORT, +}; + +static Jim_Nvp nvp_config_opts[] = { + { .name = "-type", .value = TCFG_TYPE }, + { .name = "-event", .value = TCFG_EVENT }, + { .name = "-work-area-virt", .value = TCFG_WORK_AREA_VIRT }, + { .name = "-work-area-phys", .value = TCFG_WORK_AREA_PHYS }, + { .name = "-work-area-size", .value = TCFG_WORK_AREA_SIZE }, + { .name = "-work-area-backup", .value = TCFG_WORK_AREA_BACKUP }, + { .name = "-endian" , .value = TCFG_ENDIAN }, + { .name = "-coreid", .value = TCFG_COREID }, + { .name = "-chain-position", .value = TCFG_CHAIN_POSITION }, + { .name = "-dbgbase", .value = TCFG_DBGBASE }, + { .name = "-rtos", .value = TCFG_RTOS }, + { .name = "-defer-examine", .value = TCFG_DEFER_EXAMINE }, + { .name = "-gdb-port", .value = TCFG_GDB_PORT }, + { .name = NULL, .value = -1 } +}; + +static int target_configure(Jim_GetOptInfo *goi, struct target *target) +{ + Jim_Nvp *n; + Jim_Obj *o; + jim_wide w; int e; /* parse config or cget options ... */ @@ -3595,16 +4624,20 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) case TCFG_TYPE: /* not setable */ if (goi->isconfigure) { - Jim_SetResult_sprintf(goi->interp, "not setable: %s", n->name); + Jim_SetResultFormatted(goi->interp, + "not settable: %s", n->name); return JIM_ERR; } else { - no_params: +no_params: if (goi->argc != 0) { - Jim_WrongNumArgs(goi->interp, goi->argc, goi->argv, "NO PARAMS"); + Jim_WrongNumArgs(goi->interp, + goi->argc, goi->argv, + "NO PARAMS"); return JIM_ERR; } } - Jim_SetResultString(goi->interp, target_get_name(target), -1); + Jim_SetResultString(goi->interp, + target_type_name(target), -1); /* loop for more */ break; case TCFG_EVENT: @@ -3632,14 +4665,13 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) } { - target_event_action_t *teap; + struct target_event_action *teap; teap = target->event_action; /* replace existing? */ while (teap) { - if (teap->event == (enum target_event)n->value) { + if (teap->event == (enum target_event)n->value) break; - } teap = teap->next; } @@ -3651,10 +4683,10 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) replace = false; } teap->event = n->value; + teap->interp = goi->interp; Jim_GetOpt_Obj(goi, &o); - if (teap->body) { - Jim_DecrRefCount(interp, teap->body); - } + if (teap->body) + Jim_DecrRefCount(teap->interp, teap->body); teap->body = Jim_DuplicateObj(goi->interp, o); /* * FIXME: @@ -3668,8 +4700,7 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) */ Jim_IncrRefCount(teap->body); - if (!replace) - { + if (!replace) { /* add to head of event list */ teap->next = target->event_action; target->event_action = teap; @@ -3677,11 +4708,10 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) Jim_SetEmptyResult(goi->interp); } else { /* get */ - if (teap == NULL) { + if (teap == NULL) Jim_SetEmptyResult(goi->interp); - } else { + else Jim_SetResult(goi->interp, Jim_DuplicateObj(goi->interp, teap->body)); - } } } /* loop for more */ @@ -3691,16 +4721,15 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) if (goi->isconfigure) { target_free_all_working_areas(target); e = Jim_GetOpt_Wide(goi, &w); - if (e != JIM_OK) { + if (e != JIM_OK) return e; - } target->working_area_virt = w; + target->working_area_virt_spec = true; } else { - if (goi->argc != 0) { + if (goi->argc != 0) goto no_params; - } } - Jim_SetResult(interp, Jim_NewIntObj(goi->interp, target->working_area_virt)); + Jim_SetResult(goi->interp, Jim_NewIntObj(goi->interp, target->working_area_virt)); /* loop for more */ break; @@ -3708,16 +4737,15 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) if (goi->isconfigure) { target_free_all_working_areas(target); e = Jim_GetOpt_Wide(goi, &w); - if (e != JIM_OK) { + if (e != JIM_OK) return e; - } target->working_area_phys = w; + target->working_area_phys_spec = true; } else { - if (goi->argc != 0) { + if (goi->argc != 0) goto no_params; - } } - Jim_SetResult(interp, Jim_NewIntObj(goi->interp, target->working_area_phys)); + Jim_SetResult(goi->interp, Jim_NewIntObj(goi->interp, target->working_area_phys)); /* loop for more */ break; @@ -3725,16 +4753,14 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) if (goi->isconfigure) { target_free_all_working_areas(target); e = Jim_GetOpt_Wide(goi, &w); - if (e != JIM_OK) { + if (e != JIM_OK) return e; - } target->working_area_size = w; } else { - if (goi->argc != 0) { + if (goi->argc != 0) goto no_params; - } } - Jim_SetResult(interp, Jim_NewIntObj(goi->interp, target->working_area_size)); + Jim_SetResult(goi->interp, Jim_NewIntObj(goi->interp, target->working_area_size)); /* loop for more */ break; @@ -3742,20 +4768,19 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) if (goi->isconfigure) { target_free_all_working_areas(target); e = Jim_GetOpt_Wide(goi, &w); - if (e != JIM_OK) { + if (e != JIM_OK) return e; - } /* make this exactly 1 or 0 */ target->backup_working_area = (!!w); } else { - if (goi->argc != 0) { + if (goi->argc != 0) goto no_params; - } } - Jim_SetResult(interp, Jim_NewIntObj(goi->interp, target->backup_working_area)); + Jim_SetResult(goi->interp, Jim_NewIntObj(goi->interp, target->backup_working_area)); /* loop for more e*/ break; + case TCFG_ENDIAN: if (goi->isconfigure) { e = Jim_GetOpt_Nvp(goi, nvp_target_endian, &n); @@ -3765,9 +4790,8 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) } target->endianness = n->value; } else { - if (goi->argc != 0) { + if (goi->argc != 0) goto no_params; - } } n = Jim_Nvp_value2name_simple(nvp_target_endian, target->endianness); if (n->name == NULL) { @@ -3778,486 +4802,758 @@ static int target_configure(Jim_GetOptInfo *goi, target_t *target) /* loop for more */ break; - case TCFG_VARIANT: + case TCFG_COREID: if (goi->isconfigure) { - if (goi->argc < 1) { - Jim_SetResult_sprintf(goi->interp, - "%s ?STRING?", - n->name); - return JIM_ERR; - } - if (target->variant) { - free((void *)(target->variant)); - } - e = Jim_GetOpt_String(goi, &cp, NULL); - target->variant = strdup(cp); + e = Jim_GetOpt_Wide(goi, &w); + if (e != JIM_OK) + return e; + target->coreid = (int32_t)w; } else { - if (goi->argc != 0) { + if (goi->argc != 0) goto no_params; - } } - Jim_SetResultString(goi->interp, target->variant,-1); + Jim_SetResult(goi->interp, Jim_NewIntObj(goi->interp, target->working_area_size)); /* loop for more */ break; + case TCFG_CHAIN_POSITION: if (goi->isconfigure) { - Jim_Obj *o; - jtag_tap_t *tap; + Jim_Obj *o_t; + struct jtag_tap *tap; + + if (target->has_dap) { + Jim_SetResultString(goi->interp, + "target requires -dap parameter instead of -chain-position!", -1); + return JIM_ERR; + } + target_free_all_working_areas(target); - e = Jim_GetOpt_Obj(goi, &o); - if (e != JIM_OK) { + e = Jim_GetOpt_Obj(goi, &o_t); + if (e != JIM_OK) return e; - } - tap = jtag_tap_by_jim_obj(goi->interp, o); - if (tap == NULL) { + tap = jtag_tap_by_jim_obj(goi->interp, o_t); + if (tap == NULL) return JIM_ERR; - } - /* make this exactly 1 or 0 */ target->tap = tap; + target->tap_configured = true; } else { - if (goi->argc != 0) { + if (goi->argc != 0) goto no_params; - } } - Jim_SetResultString(interp, target->tap->dotted_name, -1); + Jim_SetResultString(goi->interp, target->tap->dotted_name, -1); /* loop for more e*/ break; + case TCFG_DBGBASE: + if (goi->isconfigure) { + e = Jim_GetOpt_Wide(goi, &w); + if (e != JIM_OK) + return e; + target->dbgbase = (uint32_t)w; + target->dbgbase_set = true; + } else { + if (goi->argc != 0) + goto no_params; + } + Jim_SetResult(goi->interp, Jim_NewIntObj(goi->interp, target->dbgbase)); + /* loop for more */ + break; + case TCFG_RTOS: + /* RTOS */ + { + int result = rtos_create(goi, target); + if (result != JIM_OK) + return result; + } + /* loop for more */ + break; + + case TCFG_DEFER_EXAMINE: + /* DEFER_EXAMINE */ + target->defer_examine = true; + /* loop for more */ + break; + + case TCFG_GDB_PORT: + if (goi->isconfigure) { + const char *s; + e = Jim_GetOpt_String(goi, &s, NULL); + if (e != JIM_OK) + return e; + target->gdb_port_override = strdup(s); + } else { + if (goi->argc != 0) + goto no_params; + } + Jim_SetResultString(goi->interp, target->gdb_port_override ? : "undefined", -1); + /* loop for more */ + break; } } /* while (goi->argc) */ - /* done - we return */ - return JIM_OK; + /* done - we return */ + return JIM_OK; +} + +static int jim_target_configure(Jim_Interp *interp, int argc, Jim_Obj * const *argv) +{ + Jim_GetOptInfo goi; + + Jim_GetOpt_Setup(&goi, interp, argc - 1, argv + 1); + goi.isconfigure = !strcmp(Jim_GetString(argv[0], NULL), "configure"); + if (goi.argc < 1) { + Jim_WrongNumArgs(goi.interp, goi.argc, goi.argv, + "missing: -option ..."); + return JIM_ERR; + } + struct target *target = Jim_CmdPrivData(goi.interp); + return target_configure(&goi, target); +} + +static int jim_target_mw(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + const char *cmd_name = Jim_GetString(argv[0], NULL); + + Jim_GetOptInfo goi; + Jim_GetOpt_Setup(&goi, interp, argc - 1, argv + 1); + + if (goi.argc < 2 || goi.argc > 4) { + Jim_SetResultFormatted(goi.interp, + "usage: %s [phys]
[]", cmd_name); + return JIM_ERR; + } + + target_write_fn fn; + fn = target_write_memory; + + int e; + if (strcmp(Jim_GetString(argv[1], NULL), "phys") == 0) { + /* consume it */ + struct Jim_Obj *obj; + e = Jim_GetOpt_Obj(&goi, &obj); + if (e != JIM_OK) + return e; + + fn = target_write_phys_memory; + } + + jim_wide a; + e = Jim_GetOpt_Wide(&goi, &a); + if (e != JIM_OK) + return e; + + jim_wide b; + e = Jim_GetOpt_Wide(&goi, &b); + if (e != JIM_OK) + return e; + + jim_wide c = 1; + if (goi.argc == 1) { + e = Jim_GetOpt_Wide(&goi, &c); + if (e != JIM_OK) + return e; + } + + /* all args must be consumed */ + if (goi.argc != 0) + return JIM_ERR; + + struct target *target = Jim_CmdPrivData(goi.interp); + unsigned data_size; + if (strcasecmp(cmd_name, "mww") == 0) + data_size = 4; + else if (strcasecmp(cmd_name, "mwh") == 0) + data_size = 2; + else if (strcasecmp(cmd_name, "mwb") == 0) + data_size = 1; + else { + LOG_ERROR("command '%s' unknown: ", cmd_name); + return JIM_ERR; + } + + return (target_fill_mem(target, a, fn, data_size, b, c) == ERROR_OK) ? JIM_OK : JIM_ERR; } -/** this is the 'tcl' handler for the target specific command */ -static int tcl_target_func(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +/** +* @brief Reads an array of words/halfwords/bytes from target memory starting at specified address. +* +* Usage: mdw [phys]
[] - for 32 bit reads +* mdh [phys]
[] - for 16 bit reads +* mdb [phys]
[] - for 8 bit reads +* +* Count defaults to 1. +* +* Calls target_read_memory or target_read_phys_memory depending on +* the presence of the "phys" argument +* Reads the target memory in blocks of max. 32 bytes, and returns an array of ints formatted +* to int representation in base16. +* Also outputs read data in a human readable form using command_print +* +* @param phys if present target_read_phys_memory will be used instead of target_read_memory +* @param address address where to start the read. May be specified in decimal or hex using the standard "0x" prefix +* @param count optional count parameter to read an array of values. If not specified, defaults to 1. +* @returns: JIM_ERR on error or JIM_OK on success and sets the result string to an array of ascii formatted numbers +* on success, with [] number of elements. +* +* In case of little endian target: +* Example1: "mdw 0x00000000" returns "10123456" +* Exmaple2: "mdh 0x00000000 1" returns "3456" +* Example3: "mdb 0x00000000" returns "56" +* Example4: "mdh 0x00000000 2" returns "3456 1012" +* Example5: "mdb 0x00000000 3" returns "56 34 12" +**/ +static int jim_target_md(Jim_Interp *interp, int argc, Jim_Obj *const *argv) { - Jim_GetOptInfo goi; - jim_wide a,b,c; - int x,y,z; - uint8_t target_buf[32]; - Jim_Nvp *n; - target_t *target; - struct command_context_s *cmd_ctx; - int e; + const char *cmd_name = Jim_GetString(argv[0], NULL); - enum { - TS_CMD_CONFIGURE, - TS_CMD_CGET, - - TS_CMD_MWW, TS_CMD_MWH, TS_CMD_MWB, - TS_CMD_MDW, TS_CMD_MDH, TS_CMD_MDB, - TS_CMD_MRW, TS_CMD_MRH, TS_CMD_MRB, - TS_CMD_MEM2ARRAY, TS_CMD_ARRAY2MEM, - TS_CMD_EXAMINE, - TS_CMD_POLL, - TS_CMD_RESET, - TS_CMD_HALT, - TS_CMD_WAITSTATE, - TS_CMD_EVENTLIST, - TS_CMD_CURSTATE, - TS_CMD_INVOKE_EVENT, - }; + Jim_GetOptInfo goi; + Jim_GetOpt_Setup(&goi, interp, argc - 1, argv + 1); - static const Jim_Nvp target_options[] = { - { .name = "configure", .value = TS_CMD_CONFIGURE }, - { .name = "cget", .value = TS_CMD_CGET }, - { .name = "mww", .value = TS_CMD_MWW }, - { .name = "mwh", .value = TS_CMD_MWH }, - { .name = "mwb", .value = TS_CMD_MWB }, - { .name = "mdw", .value = TS_CMD_MDW }, - { .name = "mdh", .value = TS_CMD_MDH }, - { .name = "mdb", .value = TS_CMD_MDB }, - { .name = "mem2array", .value = TS_CMD_MEM2ARRAY }, - { .name = "array2mem", .value = TS_CMD_ARRAY2MEM }, - { .name = "eventlist", .value = TS_CMD_EVENTLIST }, - { .name = "curstate", .value = TS_CMD_CURSTATE }, - - { .name = "arp_examine", .value = TS_CMD_EXAMINE }, - { .name = "arp_poll", .value = TS_CMD_POLL }, - { .name = "arp_reset", .value = TS_CMD_RESET }, - { .name = "arp_halt", .value = TS_CMD_HALT }, - { .name = "arp_waitstate", .value = TS_CMD_WAITSTATE }, - { .name = "invoke-event", .value = TS_CMD_INVOKE_EVENT }, - - { .name = NULL, .value = -1 }, - }; + if ((goi.argc < 1) || (goi.argc > 3)) { + Jim_SetResultFormatted(goi.interp, + "usage: %s [phys]
[]", cmd_name); + return JIM_ERR; + } - /* go past the "command" */ - Jim_GetOpt_Setup(&goi, interp, argc-1, argv + 1); + int (*fn)(struct target *target, + target_addr_t address, uint32_t size, uint32_t count, uint8_t *buffer); + fn = target_read_memory; - target = Jim_CmdPrivData(goi.interp); - cmd_ctx = Jim_GetAssocData(goi.interp, "context"); + int e; + if (strcmp(Jim_GetString(argv[1], NULL), "phys") == 0) { + /* consume it */ + struct Jim_Obj *obj; + e = Jim_GetOpt_Obj(&goi, &obj); + if (e != JIM_OK) + return e; - /* commands here are in an NVP table */ - e = Jim_GetOpt_Nvp(&goi, target_options, &n); - if (e != JIM_OK) { - Jim_GetOpt_NvpUnknown(&goi, target_options, 0); - return e; + fn = target_read_phys_memory; } - /* Assume blank result */ - Jim_SetEmptyResult(goi.interp); - switch (n->value) { - case TS_CMD_CONFIGURE: - if (goi.argc < 2) { - Jim_WrongNumArgs(goi.interp, goi.argc, goi.argv, "missing: -option VALUE ..."); - return JIM_ERR; - } - goi.isconfigure = 1; - return target_configure(&goi, target); - case TS_CMD_CGET: - // some things take params - if (goi.argc < 1) { - Jim_WrongNumArgs(goi.interp, 0, goi.argv, "missing: ?-option?"); - return JIM_ERR; - } - goi.isconfigure = 0; - return target_configure(&goi, target); - break; - case TS_CMD_MWW: - case TS_CMD_MWH: - case TS_CMD_MWB: - /* argv[0] = cmd - * argv[1] = address - * argv[2] = data - * argv[3] = optional count. - */ + /* Read address parameter */ + jim_wide addr; + e = Jim_GetOpt_Wide(&goi, &addr); + if (e != JIM_OK) + return JIM_ERR; - if ((goi.argc == 2) || (goi.argc == 3)) { - /* all is well */ - } else { - mwx_error: - Jim_SetResult_sprintf(goi.interp, "expected: %s ADDR DATA [COUNT]", n->name); + /* If next parameter exists, read it out as the count parameter, if not, set it to 1 (default) */ + jim_wide count; + if (goi.argc == 1) { + e = Jim_GetOpt_Wide(&goi, &count); + if (e != JIM_OK) return JIM_ERR; - } + } else + count = 1; - e = Jim_GetOpt_Wide(&goi, &a); - if (e != JIM_OK) { - goto mwx_error; - } + /* all args must be consumed */ + if (goi.argc != 0) + return JIM_ERR; - e = Jim_GetOpt_Wide(&goi, &b); - if (e != JIM_OK) { - goto mwx_error; - } - if (goi.argc == 3) { - e = Jim_GetOpt_Wide(&goi, &c); - if (e != JIM_OK) { - goto mwx_error; - } - } else { - c = 1; - } + jim_wide dwidth = 1; /* shut up gcc */ + if (strcasecmp(cmd_name, "mdw") == 0) + dwidth = 4; + else if (strcasecmp(cmd_name, "mdh") == 0) + dwidth = 2; + else if (strcasecmp(cmd_name, "mdb") == 0) + dwidth = 1; + else { + LOG_ERROR("command '%s' unknown: ", cmd_name); + return JIM_ERR; + } - switch (n->value) { - case TS_CMD_MWW: - target_buffer_set_u32(target, target_buf, b); - b = 4; - break; - case TS_CMD_MWH: - target_buffer_set_u16(target, target_buf, b); - b = 2; - break; - case TS_CMD_MWB: - target_buffer_set_u8(target, target_buf, b); - b = 1; - break; - } - for (x = 0 ; x < c ; x++) { - e = target_write_memory(target, a, b, 1, target_buf); - if (e != ERROR_OK) { - Jim_SetResult_sprintf(interp, "Error writing @ 0x%08x: %d\n", (int)(a), e); - return JIM_ERR; - } - /* b = width */ - a = a + b; - } - return JIM_OK; - break; + /* convert count to "bytes" */ + int bytes = count * dwidth; - /* display */ - case TS_CMD_MDW: - case TS_CMD_MDH: - case TS_CMD_MDB: - /* argv[0] = command - * argv[1] = address - * argv[2] = optional count - */ - if ((goi.argc == 2) || (goi.argc == 3)) { - Jim_SetResult_sprintf(goi.interp, "expected: %s ADDR [COUNT]", n->name); - return JIM_ERR; - } - e = Jim_GetOpt_Wide(&goi, &a); - if (e != JIM_OK) { + struct target *target = Jim_CmdPrivData(goi.interp); + uint8_t target_buf[32]; + jim_wide x, y, z; + while (bytes > 0) { + y = (bytes < 16) ? bytes : 16; /* y = min(bytes, 16); */ + + /* Try to read out next block */ + e = fn(target, addr, dwidth, y / dwidth, target_buf); + + if (e != ERROR_OK) { + Jim_SetResultFormatted(interp, "error reading target @ 0x%08lx", (long)addr); return JIM_ERR; } - if (goi.argc) { - e = Jim_GetOpt_Wide(&goi, &c); - if (e != JIM_OK) { - return JIM_ERR; - } - } else { - c = 1; - } - b = 1; /* shut up gcc */ - switch (n->value) { - case TS_CMD_MDW: - b = 4; - break; - case TS_CMD_MDH: - b = 2; - break; - case TS_CMD_MDB: - b = 1; - break; - } - - /* convert to "bytes" */ - c = c * b; - /* count is now in 'BYTES' */ - while (c > 0) { - y = c; - if (y > 16) { - y = 16; - } - e = target_read_memory(target, a, b, y / b, target_buf); - if (e != ERROR_OK) { - Jim_SetResult_sprintf(interp, "error reading target @ 0x%08lx", (int)(a)); - return JIM_ERR; - } - Jim_fprintf(interp, interp->cookie_stdout, "0x%08x ", (int)(a)); - switch (b) { - case 4: - for (x = 0 ; (x < 16) && (x < y) ; x += 4) { - z = target_buffer_get_u32(target, &(target_buf[ x * 4 ])); - Jim_fprintf(interp, interp->cookie_stdout, "%08x ", (int)(z)); - } - for (; (x < 16) ; x += 4) { - Jim_fprintf(interp, interp->cookie_stdout, " "); - } - break; - case 2: - for (x = 0 ; (x < 16) && (x < y) ; x += 2) { - z = target_buffer_get_u16(target, &(target_buf[ x * 2 ])); - Jim_fprintf(interp, interp->cookie_stdout, "%04x ", (int)(z)); - } - for (; (x < 16) ; x += 2) { - Jim_fprintf(interp, interp->cookie_stdout, " "); - } - break; - case 1: - default: - for (x = 0 ; (x < 16) && (x < y) ; x += 1) { - z = target_buffer_get_u8(target, &(target_buf[ x * 4 ])); - Jim_fprintf(interp, interp->cookie_stdout, "%02x ", (int)(z)); - } - for (; (x < 16) ; x += 1) { - Jim_fprintf(interp, interp->cookie_stdout, " "); - } - break; + command_print_sameline(NULL, "0x%08x ", (int)(addr)); + switch (dwidth) { + case 4: + for (x = 0; x < 16 && x < y; x += 4) { + z = target_buffer_get_u32(target, &(target_buf[x])); + command_print_sameline(NULL, "%08x ", (int)(z)); } - /* ascii-ify the bytes */ - for (x = 0 ; x < y ; x++) { - if ((target_buf[x] >= 0x20) && - (target_buf[x] <= 0x7e)) { - /* good */ - } else { - /* smack it */ - target_buf[x] = '.'; - } + for (; (x < 16) ; x += 4) + command_print_sameline(NULL, " "); + break; + case 2: + for (x = 0; x < 16 && x < y; x += 2) { + z = target_buffer_get_u16(target, &(target_buf[x])); + command_print_sameline(NULL, "%04x ", (int)(z)); } - /* space pad */ - while (x < 16) { - target_buf[x] = ' '; - x++; + for (; (x < 16) ; x += 2) + command_print_sameline(NULL, " "); + break; + case 1: + default: + for (x = 0 ; (x < 16) && (x < y) ; x += 1) { + z = target_buffer_get_u8(target, &(target_buf[x])); + command_print_sameline(NULL, "%02x ", (int)(z)); } - /* terminate */ - target_buf[16] = 0; - /* print - with a newline */ - Jim_fprintf(interp, interp->cookie_stdout, "%s\n", target_buf); - /* NEXT... */ - c -= 16; - a += 16; - } - return JIM_OK; - case TS_CMD_MEM2ARRAY: - return target_mem2array(goi.interp, target, goi.argc, goi.argv); - break; - case TS_CMD_ARRAY2MEM: - return target_array2mem(goi.interp, target, goi.argc, goi.argv); - break; - case TS_CMD_EXAMINE: - if (goi.argc) { - Jim_WrongNumArgs(goi.interp, 2, argv, "[no parameters]"); - return JIM_ERR; - } - if (!target->tap->enabled) - goto err_tap_disabled; - e = target->type->examine(target); - if (e != ERROR_OK) { - Jim_SetResult_sprintf(interp, "examine-fails: %d", e); - return JIM_ERR; - } - return JIM_OK; - case TS_CMD_POLL: - if (goi.argc) { - Jim_WrongNumArgs(goi.interp, 2, argv, "[no parameters]"); - return JIM_ERR; - } - if (!target->tap->enabled) - goto err_tap_disabled; - if (!(target_was_examined(target))) { - e = ERROR_TARGET_NOT_EXAMINED; - } else { - e = target->type->poll(target); - } - if (e != ERROR_OK) { - Jim_SetResult_sprintf(interp, "poll-fails: %d", e); - return JIM_ERR; - } else { - return JIM_OK; - } - break; - case TS_CMD_RESET: - if (goi.argc != 2) { - Jim_WrongNumArgs(interp, 2, argv, - "([tT]|[fF]|assert|deassert) BOOL"); - return JIM_ERR; - } - e = Jim_GetOpt_Nvp(&goi, nvp_assert, &n); - if (e != JIM_OK) { - Jim_GetOpt_NvpUnknown(&goi, nvp_assert, 1); - return e; - } - /* the halt or not param */ - e = Jim_GetOpt_Wide(&goi, &a); - if (e != JIM_OK) { - return e; - } - if (!target->tap->enabled) - goto err_tap_disabled; - if (!target->type->assert_reset - || !target->type->deassert_reset) { - Jim_SetResult_sprintf(interp, - "No target-specific reset for %s", - target->cmd_name); - return JIM_ERR; - } - /* determine if we should halt or not. */ - target->reset_halt = !!a; - /* When this happens - all workareas are invalid. */ - target_free_all_working_areas_restore(target, 0); - - /* do the assert */ - if (n->value == NVP_ASSERT) { - e = target->type->assert_reset(target); - } else { - e = target->type->deassert_reset(target); - } - return (e == ERROR_OK) ? JIM_OK : JIM_ERR; - case TS_CMD_HALT: - if (goi.argc) { - Jim_WrongNumArgs(goi.interp, 0, argv, "halt [no parameters]"); - return JIM_ERR; - } - if (!target->tap->enabled) - goto err_tap_disabled; - e = target->type->halt(target); - return (e == ERROR_OK) ? JIM_OK : JIM_ERR; - case TS_CMD_WAITSTATE: - /* params: statename timeoutmsecs */ - if (goi.argc != 2) { - Jim_SetResult_sprintf(goi.interp, "%s STATENAME TIMEOUTMSECS", n->name); - return JIM_ERR; - } - e = Jim_GetOpt_Nvp(&goi, nvp_target_state, &n); - if (e != JIM_OK) { - Jim_GetOpt_NvpUnknown(&goi, nvp_target_state,1); - return e; - } - e = Jim_GetOpt_Wide(&goi, &a); - if (e != JIM_OK) { - return e; - } - if (!target->tap->enabled) - goto err_tap_disabled; - e = target_wait_state(target, n->value, a); - if (e != ERROR_OK) { - Jim_SetResult_sprintf(goi.interp, - "target: %s wait %s fails (%d) %s", - target->cmd_name, - n->name, - e, target_strerror_safe(e)); - return JIM_ERR; - } else { - return JIM_OK; + for (; (x < 16) ; x += 1) + command_print_sameline(NULL, " "); + break; } - case TS_CMD_EVENTLIST: - /* List for human, Events defined for this target. - * scripts/programs should use 'name cget -event NAME' - */ - { - target_event_action_t *teap; - teap = target->event_action; - command_print(cmd_ctx, "Event actions for target (%d) %s\n", - target->target_number, - target->cmd_name); - command_print(cmd_ctx, "%-25s | Body", "Event"); - command_print(cmd_ctx, "------------------------- | ----------------------------------------"); - while (teap) { - command_print(cmd_ctx, - "%-25s | %s", - Jim_Nvp_value2name_simple(nvp_target_event, teap->event)->name, - Jim_GetString(teap->body, NULL)); - teap = teap->next; + /* ascii-ify the bytes */ + for (x = 0 ; x < y ; x++) { + if ((target_buf[x] >= 0x20) && + (target_buf[x] <= 0x7e)) { + /* good */ + } else { + /* smack it */ + target_buf[x] = '.'; } - command_print(cmd_ctx, "***END***"); - return JIM_OK; - } - case TS_CMD_CURSTATE: - if (goi.argc != 0) { - Jim_WrongNumArgs(goi.interp, 0, argv, "[no parameters]"); - return JIM_ERR; } - Jim_SetResultString(goi.interp, - target_state_name( target ), - -1); - return JIM_OK; - case TS_CMD_INVOKE_EVENT: - if (goi.argc != 1) { - Jim_SetResult_sprintf(goi.interp, "%s ?EVENTNAME?",n->name); - return JIM_ERR; + /* space pad */ + while (x < 16) { + target_buf[x] = ' '; + x++; } - e = Jim_GetOpt_Nvp(&goi, nvp_target_event, &n); - if (e != JIM_OK) { - Jim_GetOpt_NvpUnknown(&goi, nvp_target_event, 1); + /* terminate */ + target_buf[16] = 0; + /* print - with a newline */ + command_print_sameline(NULL, "%s\n", target_buf); + /* NEXT... */ + bytes -= 16; + addr += 16; + } + return JIM_OK; +} + +static int jim_target_mem2array(Jim_Interp *interp, + int argc, Jim_Obj *const *argv) +{ + struct target *target = Jim_CmdPrivData(interp); + return target_mem2array(interp, target, argc - 1, argv + 1); +} + +static int jim_target_array2mem(Jim_Interp *interp, + int argc, Jim_Obj *const *argv) +{ + struct target *target = Jim_CmdPrivData(interp); + return target_array2mem(interp, target, argc - 1, argv + 1); +} + +static int jim_target_tap_disabled(Jim_Interp *interp) +{ + Jim_SetResultFormatted(interp, "[TAP is disabled]"); + return JIM_ERR; +} + +static int jim_target_examine(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + bool allow_defer = false; + + Jim_GetOptInfo goi; + Jim_GetOpt_Setup(&goi, interp, argc - 1, argv + 1); + if (goi.argc > 1) { + const char *cmd_name = Jim_GetString(argv[0], NULL); + Jim_SetResultFormatted(goi.interp, + "usage: %s ['allow-defer']", cmd_name); + return JIM_ERR; + } + if (goi.argc > 0 && + strcmp(Jim_GetString(argv[1], NULL), "allow-defer") == 0) { + /* consume it */ + struct Jim_Obj *obj; + int e = Jim_GetOpt_Obj(&goi, &obj); + if (e != JIM_OK) return e; - } - target_handle_event(target, n->value); + allow_defer = true; + } + + struct target *target = Jim_CmdPrivData(interp); + if (!target->tap->enabled) + return jim_target_tap_disabled(interp); + + if (allow_defer && target->defer_examine) { + LOG_INFO("Deferring arp_examine of %s", target_name(target)); + LOG_INFO("Use arp_examine command to examine it manually!"); return JIM_OK; } - return JIM_ERR; - -err_tap_disabled: - Jim_SetResult_sprintf(interp, "[TAP is disabled]"); - return JIM_ERR; + + int e = target->type->examine(target); + if (e != ERROR_OK) + return JIM_ERR; + return JIM_OK; +} + +static int jim_target_was_examined(Jim_Interp *interp, int argc, Jim_Obj * const *argv) +{ + struct target *target = Jim_CmdPrivData(interp); + + Jim_SetResultBool(interp, target_was_examined(target)); + return JIM_OK; +} + +static int jim_target_examine_deferred(Jim_Interp *interp, int argc, Jim_Obj * const *argv) +{ + struct target *target = Jim_CmdPrivData(interp); + + Jim_SetResultBool(interp, target->defer_examine); + return JIM_OK; +} + +static int jim_target_halt_gdb(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + if (argc != 1) { + Jim_WrongNumArgs(interp, 1, argv, "[no parameters]"); + return JIM_ERR; + } + struct target *target = Jim_CmdPrivData(interp); + + if (target_call_event_callbacks(target, TARGET_EVENT_GDB_HALT) != ERROR_OK) + return JIM_ERR; + + return JIM_OK; +} + +static int jim_target_poll(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + if (argc != 1) { + Jim_WrongNumArgs(interp, 1, argv, "[no parameters]"); + return JIM_ERR; + } + struct target *target = Jim_CmdPrivData(interp); + if (!target->tap->enabled) + return jim_target_tap_disabled(interp); + + int e; + if (!(target_was_examined(target))) + e = ERROR_TARGET_NOT_EXAMINED; + else + e = target->type->poll(target); + if (e != ERROR_OK) + return JIM_ERR; + return JIM_OK; +} + +static int jim_target_reset(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + Jim_GetOptInfo goi; + Jim_GetOpt_Setup(&goi, interp, argc - 1, argv + 1); + + if (goi.argc != 2) { + Jim_WrongNumArgs(interp, 0, argv, + "([tT]|[fF]|assert|deassert) BOOL"); + return JIM_ERR; + } + + Jim_Nvp *n; + int e = Jim_GetOpt_Nvp(&goi, nvp_assert, &n); + if (e != JIM_OK) { + Jim_GetOpt_NvpUnknown(&goi, nvp_assert, 1); + return e; + } + /* the halt or not param */ + jim_wide a; + e = Jim_GetOpt_Wide(&goi, &a); + if (e != JIM_OK) + return e; + + struct target *target = Jim_CmdPrivData(goi.interp); + if (!target->tap->enabled) + return jim_target_tap_disabled(interp); + + if (!target->type->assert_reset || !target->type->deassert_reset) { + Jim_SetResultFormatted(interp, + "No target-specific reset for %s", + target_name(target)); + return JIM_ERR; + } + + if (target->defer_examine) + target_reset_examined(target); + + /* determine if we should halt or not. */ + target->reset_halt = !!a; + /* When this happens - all workareas are invalid. */ + target_free_all_working_areas_restore(target, 0); + + /* do the assert */ + if (n->value == NVP_ASSERT) + e = target->type->assert_reset(target); + else + e = target->type->deassert_reset(target); + return (e == ERROR_OK) ? JIM_OK : JIM_ERR; +} + +static int jim_target_halt(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + if (argc != 1) { + Jim_WrongNumArgs(interp, 1, argv, "[no parameters]"); + return JIM_ERR; + } + struct target *target = Jim_CmdPrivData(interp); + if (!target->tap->enabled) + return jim_target_tap_disabled(interp); + int e = target->type->halt(target); + return (e == ERROR_OK) ? JIM_OK : JIM_ERR; +} + +static int jim_target_wait_state(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + Jim_GetOptInfo goi; + Jim_GetOpt_Setup(&goi, interp, argc - 1, argv + 1); + + /* params: statename timeoutmsecs */ + if (goi.argc != 2) { + const char *cmd_name = Jim_GetString(argv[0], NULL); + Jim_SetResultFormatted(goi.interp, + "%s ", cmd_name); + return JIM_ERR; + } + + Jim_Nvp *n; + int e = Jim_GetOpt_Nvp(&goi, nvp_target_state, &n); + if (e != JIM_OK) { + Jim_GetOpt_NvpUnknown(&goi, nvp_target_state, 1); + return e; + } + jim_wide a; + e = Jim_GetOpt_Wide(&goi, &a); + if (e != JIM_OK) + return e; + struct target *target = Jim_CmdPrivData(interp); + if (!target->tap->enabled) + return jim_target_tap_disabled(interp); + + e = target_wait_state(target, n->value, a); + if (e != ERROR_OK) { + Jim_Obj *eObj = Jim_NewIntObj(interp, e); + Jim_SetResultFormatted(goi.interp, + "target: %s wait %s fails (%#s) %s", + target_name(target), n->name, + eObj, target_strerror_safe(e)); + Jim_FreeNewObj(interp, eObj); + return JIM_ERR; + } + return JIM_OK; +} +/* List for human, Events defined for this target. + * scripts/programs should use 'name cget -event NAME' + */ +static int jim_target_event_list(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + struct command_context *cmd_ctx = current_command_context(interp); + assert(cmd_ctx != NULL); + + struct target *target = Jim_CmdPrivData(interp); + struct target_event_action *teap = target->event_action; + command_print(cmd_ctx, "Event actions for target (%d) %s\n", + target->target_number, + target_name(target)); + command_print(cmd_ctx, "%-25s | Body", "Event"); + command_print(cmd_ctx, "------------------------- | " + "----------------------------------------"); + while (teap) { + Jim_Nvp *opt = Jim_Nvp_value2name_simple(nvp_target_event, teap->event); + command_print(cmd_ctx, "%-25s | %s", + opt->name, Jim_GetString(teap->body, NULL)); + teap = teap->next; + } + command_print(cmd_ctx, "***END***"); + return JIM_OK; +} +static int jim_target_current_state(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + if (argc != 1) { + Jim_WrongNumArgs(interp, 1, argv, "[no parameters]"); + return JIM_ERR; + } + struct target *target = Jim_CmdPrivData(interp); + Jim_SetResultString(interp, target_state_name(target), -1); + return JIM_OK; +} +static int jim_target_invoke_event(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + Jim_GetOptInfo goi; + Jim_GetOpt_Setup(&goi, interp, argc - 1, argv + 1); + if (goi.argc != 1) { + const char *cmd_name = Jim_GetString(argv[0], NULL); + Jim_SetResultFormatted(goi.interp, "%s ", cmd_name); + return JIM_ERR; + } + Jim_Nvp *n; + int e = Jim_GetOpt_Nvp(&goi, nvp_target_event, &n); + if (e != JIM_OK) { + Jim_GetOpt_NvpUnknown(&goi, nvp_target_event, 1); + return e; + } + struct target *target = Jim_CmdPrivData(interp); + target_handle_event(target, n->value); + return JIM_OK; } +static const struct command_registration target_instance_command_handlers[] = { + { + .name = "configure", + .mode = COMMAND_CONFIG, + .jim_handler = jim_target_configure, + .help = "configure a new target for use", + .usage = "[target_attribute ...]", + }, + { + .name = "cget", + .mode = COMMAND_ANY, + .jim_handler = jim_target_configure, + .help = "returns the specified target attribute", + .usage = "target_attribute", + }, + { + .name = "mww", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_mw, + .help = "Write 32-bit word(s) to target memory", + .usage = "address data [count]", + }, + { + .name = "mwh", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_mw, + .help = "Write 16-bit half-word(s) to target memory", + .usage = "address data [count]", + }, + { + .name = "mwb", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_mw, + .help = "Write byte(s) to target memory", + .usage = "address data [count]", + }, + { + .name = "mdw", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_md, + .help = "Display target memory as 32-bit words", + .usage = "address [count]", + }, + { + .name = "mdh", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_md, + .help = "Display target memory as 16-bit half-words", + .usage = "address [count]", + }, + { + .name = "mdb", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_md, + .help = "Display target memory as 8-bit bytes", + .usage = "address [count]", + }, + { + .name = "array2mem", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_array2mem, + .help = "Writes Tcl array of 8/16/32 bit numbers " + "to target memory", + .usage = "arrayname bitwidth address count", + }, + { + .name = "mem2array", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_mem2array, + .help = "Loads Tcl array of 8/16/32 bit numbers " + "from target memory", + .usage = "arrayname bitwidth address count", + }, + { + .name = "eventlist", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_event_list, + .help = "displays a table of events defined for this target", + }, + { + .name = "curstate", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_current_state, + .help = "displays the current state of this target", + }, + { + .name = "arp_examine", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_examine, + .help = "used internally for reset processing", + .usage = "['allow-defer']", + }, + { + .name = "was_examined", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_was_examined, + .help = "used internally for reset processing", + }, + { + .name = "examine_deferred", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_examine_deferred, + .help = "used internally for reset processing", + }, + { + .name = "arp_halt_gdb", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_halt_gdb, + .help = "used internally for reset processing to halt GDB", + }, + { + .name = "arp_poll", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_poll, + .help = "used internally for reset processing", + }, + { + .name = "arp_reset", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_reset, + .help = "used internally for reset processing", + }, + { + .name = "arp_halt", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_halt, + .help = "used internally for reset processing", + }, + { + .name = "arp_waitstate", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_wait_state, + .help = "used internally for reset processing", + }, + { + .name = "invoke-event", + .mode = COMMAND_EXEC, + .jim_handler = jim_target_invoke_event, + .help = "invoke handler for specified event", + .usage = "event_name", + }, + COMMAND_REGISTRATION_DONE +}; + static int target_create(Jim_GetOptInfo *goi) { Jim_Obj *new_cmd; Jim_Cmd *cmd; const char *cp; - char *cp2; int e; int x; - target_t *target; - struct command_context_s *cmd_ctx; + struct target *target; + struct command_context *cmd_ctx; + + cmd_ctx = current_command_context(goi->interp); + assert(cmd_ctx != NULL); - cmd_ctx = Jim_GetAssocData(goi->interp, "context"); if (goi->argc < 3) { Jim_WrongNumArgs(goi->interp, 1, goi->argv, "?name? ?type? ..options..."); return JIM_ERR; @@ -4269,22 +5565,41 @@ static int target_create(Jim_GetOptInfo *goi) cmd = Jim_GetCommand(goi->interp, new_cmd, JIM_ERRMSG); if (cmd) { cp = Jim_GetString(new_cmd, NULL); - Jim_SetResult_sprintf(goi->interp, "Command/target: %s Exists", cp); + Jim_SetResultFormatted(goi->interp, "Command/target: %s Exists", cp); return JIM_ERR; } /* TYPE */ - e = Jim_GetOpt_String(goi, &cp2, NULL); - cp = cp2; + e = Jim_GetOpt_String(goi, &cp, NULL); + if (e != JIM_OK) + return e; + struct transport *tr = get_current_transport(); + if (tr->override_target) { + e = tr->override_target(&cp); + if (e != ERROR_OK) { + LOG_ERROR("The selected transport doesn't support this target"); + return JIM_ERR; + } + LOG_INFO("The selected transport took over low-level target control. The results might differ compared to plain JTAG/SWD"); + } /* now does target type exist */ for (x = 0 ; target_types[x] ; x++) { if (0 == strcmp(cp, target_types[x]->name)) { /* found */ break; } + + /* check for deprecated name */ + if (target_types[x]->deprecated_name) { + if (0 == strcmp(cp, target_types[x]->deprecated_name)) { + /* found */ + LOG_WARNING("target name is deprecated use: \'%s\'", target_types[x]->name); + break; + } + } } if (target_types[x] == NULL) { - Jim_SetResult_sprintf(goi->interp, "Unknown target type %s, try one of ", cp); + Jim_SetResultFormatted(goi->interp, "Unknown target type %s, try one of ", cp); for (x = 0 ; target_types[x] ; x++) { if (target_types[x + 1]) { Jim_AppendStrings(goi->interp, @@ -4295,25 +5610,29 @@ static int target_create(Jim_GetOptInfo *goi) Jim_AppendStrings(goi->interp, Jim_GetResult(goi->interp), " or ", - target_types[x]->name,NULL); + target_types[x]->name, NULL); } } return JIM_ERR; } /* Create it */ - target = calloc(1,sizeof(target_t)); + target = calloc(1, sizeof(struct target)); /* set target number */ target->target_number = new_target_number(); + cmd_ctx->current_target = target; /* allocate memory for each unique target type */ - target->type = (target_type_t*)calloc(1,sizeof(target_type_t)); + target->type = calloc(1, sizeof(struct target_type)); - memcpy(target->type, target_types[x], sizeof(target_type_t)); + memcpy(target->type, target_types[x], sizeof(struct target_type)); /* will be set by "-endian" */ target->endianness = TARGET_ENDIAN_UNKNOWN; + /* default to first core, override with -coreid */ + target->coreid = 0; + target->working_area = 0x0; target->working_area_size = 0x0; target->working_areas = NULL; @@ -4327,36 +5646,46 @@ static int target_create(Jim_GetOptInfo *goi) target->next = NULL; target->arch_info = NULL; - target->display = 1; + target->verbose_halt_msg = true; target->halt_issued = false; /* initialize trace information */ - target->trace_info = malloc(sizeof(trace_t)); - target->trace_info->num_trace_points = 0; - target->trace_info->trace_points_size = 0; - target->trace_info->trace_points = NULL; - target->trace_info->trace_history_size = 0; - target->trace_info->trace_history = NULL; - target->trace_info->trace_history_pos = 0; - target->trace_info->trace_history_overflowed = 0; + target->trace_info = calloc(1, sizeof(struct trace)); target->dbgmsg = NULL; target->dbg_msg_enabled = 0; target->endianness = TARGET_ENDIAN_UNKNOWN; + target->rtos = NULL; + target->rtos_auto_detect = false; + + target->gdb_port_override = NULL; + /* Do the rest as "configure" options */ goi->isconfigure = 1; e = target_configure(goi, target); - if (target->tap == NULL) - { - Jim_SetResultString(interp, "-chain-position required when creating target", -1); - e = JIM_ERR; + if (e == JIM_OK) { + if (target->has_dap) { + if (!target->dap_configured) { + Jim_SetResultString(goi->interp, "-dap ?name? required when creating target", -1); + e = JIM_ERR; + } + } else { + if (!target->tap_configured) { + Jim_SetResultString(goi->interp, "-chain-position ?name? required when creating target", -1); + e = JIM_ERR; + } + } + /* tap must be set after target was configured */ + if (target->tap == NULL) + e = JIM_ERR; } if (e != JIM_OK) { + free(target->gdb_port_override); free(target->type); free(target); return e; @@ -4367,166 +5696,222 @@ static int target_create(Jim_GetOptInfo *goi) target->endianness = TARGET_LITTLE_ENDIAN; } - /* incase variant is not set */ - if (!target->variant) - target->variant = strdup(""); + cp = Jim_GetString(new_cmd, NULL); + target->cmd_name = strdup(cp); + + if (target->type->target_create) { + e = (*(target->type->target_create))(target, goi->interp); + if (e != ERROR_OK) { + LOG_DEBUG("target_create failed"); + free(target->gdb_port_override); + free(target->type); + free(target->cmd_name); + free(target); + return JIM_ERR; + } + } /* create the target specific commands */ - if (target->type->register_commands) { - (*(target->type->register_commands))(cmd_ctx); - } - if (target->type->target_create) { - (*(target->type->target_create))(target, goi->interp); + if (target->type->commands) { + e = register_commands(cmd_ctx, NULL, target->type->commands); + if (ERROR_OK != e) + LOG_ERROR("unable to register '%s' commands", cp); } /* append to end of list */ { - target_t **tpp; + struct target **tpp; tpp = &(all_targets); - while (*tpp) { + while (*tpp) tpp = &((*tpp)->next); - } *tpp = target; } - cp = Jim_GetString(new_cmd, NULL); - target->cmd_name = strdup(cp); - /* now - create the new target name command */ - e = Jim_CreateCommand(goi->interp, - /* name */ - cp, - tcl_target_func, /* C function */ - target, /* private data */ - NULL); /* no del proc */ - - return e; -} - -static int jim_target(Jim_Interp *interp, int argc, Jim_Obj *const *argv) -{ - int x,r,e; - jim_wide w; - struct command_context_s *cmd_ctx; - target_t *target; - Jim_GetOptInfo goi; - enum tcmd { - /* TG = target generic */ - TG_CMD_CREATE, - TG_CMD_TYPES, - TG_CMD_NAMES, - TG_CMD_CURRENT, - TG_CMD_NUMBER, - TG_CMD_COUNT, + const struct command_registration target_subcommands[] = { + { + .chain = target_instance_command_handlers, + }, + { + .chain = target->type->commands, + }, + COMMAND_REGISTRATION_DONE }; - const char *target_cmds[] = { - "create", "types", "names", "current", "number", - "count", - NULL /* terminate */ + const struct command_registration target_commands[] = { + { + .name = cp, + .mode = COMMAND_ANY, + .help = "target command group", + .usage = "", + .chain = target_subcommands, + }, + COMMAND_REGISTRATION_DONE }; + e = register_commands(cmd_ctx, NULL, target_commands); + if (ERROR_OK != e) + return JIM_ERR; - LOG_DEBUG("Target command params:"); - LOG_DEBUG("%s", Jim_Debug_ArgvString(interp, argc, argv)); - - cmd_ctx = Jim_GetAssocData(interp, "context"); + struct command *c = command_find_in_context(cmd_ctx, cp); + assert(c); + command_set_handler_data(c, target); - Jim_GetOpt_Setup(&goi, interp, argc-1, argv + 1); + return (ERROR_OK == e) ? JIM_OK : JIM_ERR; +} - if (goi.argc == 0) { - Jim_WrongNumArgs(interp, 1, argv, "missing: command ..."); +static int jim_target_current(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + if (argc != 1) { + Jim_WrongNumArgs(interp, 1, argv, "Too many parameters"); return JIM_ERR; } + struct command_context *cmd_ctx = current_command_context(interp); + assert(cmd_ctx != NULL); + + Jim_SetResultString(interp, target_name(get_current_target(cmd_ctx)), -1); + return JIM_OK; +} - /* Jim_GetOpt_Debug(&goi); */ - r = Jim_GetOpt_Enum(&goi, target_cmds, &x); - if (r != JIM_OK) { - return r; +static int jim_target_types(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + if (argc != 1) { + Jim_WrongNumArgs(interp, 1, argv, "Too many parameters"); + return JIM_ERR; } + Jim_SetResult(interp, Jim_NewListObj(interp, NULL, 0)); + for (unsigned x = 0; NULL != target_types[x]; x++) { + Jim_ListAppendElement(interp, Jim_GetResult(interp), + Jim_NewStringObj(interp, target_types[x]->name, -1)); + } + return JIM_OK; +} - switch (x) { - default: - Jim_Panic(goi.interp,"Why am I here?"); +static int jim_target_names(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + if (argc != 1) { + Jim_WrongNumArgs(interp, 1, argv, "Too many parameters"); return JIM_ERR; - case TG_CMD_CURRENT: - if (goi.argc != 0) { - Jim_WrongNumArgs(goi.interp, 1, goi.argv, "Too many parameters"); - return JIM_ERR; - } - Jim_SetResultString(goi.interp, get_current_target(cmd_ctx)->cmd_name, -1); - return JIM_OK; - case TG_CMD_TYPES: - if (goi.argc != 0) { - Jim_WrongNumArgs(goi.interp, 1, goi.argv, "Too many parameters"); - return JIM_ERR; - } - Jim_SetResult(goi.interp, Jim_NewListObj(goi.interp, NULL, 0)); - for (x = 0 ; target_types[x] ; x++) { - Jim_ListAppendElement(goi.interp, - Jim_GetResult(goi.interp), - Jim_NewStringObj(goi.interp, target_types[x]->name, -1)); - } - return JIM_OK; - case TG_CMD_NAMES: - if (goi.argc != 0) { - Jim_WrongNumArgs(goi.interp, 1, goi.argv, "Too many parameters"); - return JIM_ERR; - } - Jim_SetResult(goi.interp, Jim_NewListObj(goi.interp, NULL, 0)); - target = all_targets; - while (target) { - Jim_ListAppendElement(goi.interp, - Jim_GetResult(goi.interp), - Jim_NewStringObj(goi.interp, target->cmd_name, -1)); - target = target->next; - } - return JIM_OK; - case TG_CMD_CREATE: - if (goi.argc < 3) { - Jim_WrongNumArgs(goi.interp, goi.argc, goi.argv, "?name ... config options ..."); - return JIM_ERR; - } - return target_create(&goi); - break; - case TG_CMD_NUMBER: - /* It's OK to remove this mechanism sometime after August 2010 or so */ - LOG_WARNING("don't use numbers as target identifiers; use names"); - if (goi.argc != 1) { - Jim_SetResult_sprintf(goi.interp, "expected: target number ?NUMBER?"); - return JIM_ERR; - } - e = Jim_GetOpt_Wide(&goi, &w); - if (e != JIM_OK) { - return JIM_ERR; - } - for (x = 0, target = all_targets; target; target = target->next, x++) { - if (target->target_number == w) - break; - } - if (target == NULL) { - Jim_SetResult_sprintf(goi.interp, - "Target: number %d does not exist", (int)(w)); - return JIM_ERR; - } - Jim_SetResultString(goi.interp, target->cmd_name, -1); - return JIM_OK; - case TG_CMD_COUNT: - if (goi.argc != 0) { - Jim_WrongNumArgs(goi.interp, 0, goi.argv, ""); - return JIM_ERR; + } + Jim_SetResult(interp, Jim_NewListObj(interp, NULL, 0)); + struct target *target = all_targets; + while (target) { + Jim_ListAppendElement(interp, Jim_GetResult(interp), + Jim_NewStringObj(interp, target_name(target), -1)); + target = target->next; + } + return JIM_OK; +} + +static int jim_target_smp(Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + int i; + const char *targetname; + int retval, len; + struct target *target = (struct target *) NULL; + struct target_list *head, *curr, *new; + curr = (struct target_list *) NULL; + head = (struct target_list *) NULL; + + retval = 0; + LOG_DEBUG("%d", argc); + /* argv[1] = target to associate in smp + * argv[2] = target to assoicate in smp + * argv[3] ... + */ + + for (i = 1; i < argc; i++) { + + targetname = Jim_GetString(argv[i], &len); + target = get_target(targetname); + LOG_DEBUG("%s ", targetname); + if (target) { + new = malloc(sizeof(struct target_list)); + new->target = target; + new->next = (struct target_list *)NULL; + if (head == (struct target_list *)NULL) { + head = new; + curr = head; + } else { + curr->next = new; + curr = new; + } } - for (x = 0, target = all_targets; target; target = target->next, x++) - continue; - Jim_SetResult(goi.interp, Jim_NewIntObj(goi.interp, x)); - return JIM_OK; } + /* now parse the list of cpu and put the target in smp mode*/ + curr = head; - return JIM_ERR; + while (curr != (struct target_list *)NULL) { + target = curr->target; + target->smp = 1; + target->head = head; + curr = curr->next; + } + + if (target && target->rtos) + retval = rtos_smp_init(head->target); + + return retval; } -struct FastLoad +static int jim_target_create(Jim_Interp *interp, int argc, Jim_Obj *const *argv) { - uint32_t address; + Jim_GetOptInfo goi; + Jim_GetOpt_Setup(&goi, interp, argc - 1, argv + 1); + if (goi.argc < 3) { + Jim_WrongNumArgs(goi.interp, goi.argc, goi.argv, + " [ ...]"); + return JIM_ERR; + } + return target_create(&goi); +} + +static const struct command_registration target_subcommand_handlers[] = { + { + .name = "init", + .mode = COMMAND_CONFIG, + .handler = handle_target_init_command, + .help = "initialize targets", + }, + { + .name = "create", + /* REVISIT this should be COMMAND_CONFIG ... */ + .mode = COMMAND_ANY, + .jim_handler = jim_target_create, + .usage = "name type '-chain-position' name [options ...]", + .help = "Creates and selects a new target", + }, + { + .name = "current", + .mode = COMMAND_ANY, + .jim_handler = jim_target_current, + .help = "Returns the currently selected target", + }, + { + .name = "types", + .mode = COMMAND_ANY, + .jim_handler = jim_target_types, + .help = "Returns the available target types as " + "a list of strings", + }, + { + .name = "names", + .mode = COMMAND_ANY, + .jim_handler = jim_target_names, + .help = "Returns the names of all targets as a list of strings", + }, + { + .name = "smp", + .mode = COMMAND_ANY, + .jim_handler = jim_target_smp, + .usage = "targetname1 targetname2 ...", + .help = "gather several target in a smp list" + }, + + COMMAND_REGISTRATION_DONE +}; + +struct FastLoad { + target_addr_t address; uint8_t *data; int length; @@ -4537,11 +5922,9 @@ static struct FastLoad *fastload; static void free_fastload(void) { - if (fastload != NULL) - { + if (fastload != NULL) { int i; - for (i = 0; i < fastload_num; i++) - { + for (i = 0; i < fastload_num; i++) { if (fastload[i].data) free(fastload[i].data); } @@ -4550,57 +5933,50 @@ static void free_fastload(void) } } - - - -static int handle_fast_load_image_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +COMMAND_HANDLER(handle_fast_load_image_command) { uint8_t *buffer; - uint32_t buf_cnt; + size_t buf_cnt; uint32_t image_size; - uint32_t min_address = 0; - uint32_t max_address = 0xffffffff; + target_addr_t min_address = 0; + target_addr_t max_address = -1; int i; - image_t image; - - duration_t duration; - char *duration_text; + struct image image; - int retval = parse_load_image_command_args(args, argc, + int retval = CALL_COMMAND_HANDLER(parse_load_image_command_CMD_ARGV, &image, &min_address, &max_address); if (ERROR_OK != retval) return retval; - duration_start_measure(&duration); + struct duration bench; + duration_start(&bench); - if (image_open(&image, args[0], (argc >= 3) ? args[2] : NULL) != ERROR_OK) - { - return ERROR_OK; - } + retval = image_open(&image, CMD_ARGV[0], (CMD_ARGC >= 3) ? CMD_ARGV[2] : NULL); + if (retval != ERROR_OK) + return retval; image_size = 0x0; retval = ERROR_OK; fastload_num = image.num_sections; - fastload = (struct FastLoad *)malloc(sizeof(struct FastLoad)*image.num_sections); - if (fastload == NULL) - { + fastload = malloc(sizeof(struct FastLoad)*image.num_sections); + if (fastload == NULL) { + command_print(CMD_CTX, "out of memory"); image_close(&image); return ERROR_FAIL; } memset(fastload, 0, sizeof(struct FastLoad)*image.num_sections); - for (i = 0; i < image.num_sections; i++) - { + for (i = 0; i < image.num_sections; i++) { buffer = malloc(image.sections[i].size); - if (buffer == NULL) - { - command_print(cmd_ctx, "error allocating buffer for section (%d bytes)", + if (buffer == NULL) { + command_print(CMD_CTX, "error allocating buffer for section (%d bytes)", (int)(image.sections[i].size)); + retval = ERROR_FAIL; break; } - if ((retval = image_read_section(&image, i, 0x0, image.sections[i].size, buffer, &buf_cnt)) != ERROR_OK) - { + retval = image_read_section(&image, i, 0x0, image.sections[i].size, buffer, &buf_cnt); + if (retval != ERROR_OK) { free(buffer); break; } @@ -4608,36 +5984,33 @@ static int handle_fast_load_image_command(struct command_context_s *cmd_ctx, cha uint32_t offset = 0; uint32_t length = buf_cnt; - /* DANGER!!! beware of unsigned comparision here!!! */ - if ((image.sections[i].base_address + buf_cnt >= min_address)&& - (image.sections[i].base_address < max_address)) - { - if (image.sections[i].base_address < min_address) - { + if ((image.sections[i].base_address + buf_cnt >= min_address) && + (image.sections[i].base_address < max_address)) { + if (image.sections[i].base_address < min_address) { /* clip addresses below */ offset += min_address-image.sections[i].base_address; length -= offset; } if (image.sections[i].base_address + buf_cnt > max_address) - { length -= (image.sections[i].base_address + buf_cnt)-max_address; - } fastload[i].address = image.sections[i].base_address + offset; fastload[i].data = malloc(length); - if (fastload[i].data == NULL) - { + if (fastload[i].data == NULL) { free(buffer); + command_print(CMD_CTX, "error allocating buffer for section (%" PRIu32 " bytes)", + length); + retval = ERROR_FAIL; break; } memcpy(fastload[i].data, buffer + offset, length); fastload[i].length = length; image_size += length; - command_print(cmd_ctx, "%u bytes written at address 0x%8.8x", + command_print(CMD_CTX, "%u bytes written at address 0x%8.8x", (unsigned int)length, ((unsigned int)(image.sections[i].base_address + offset))); } @@ -4645,58 +6018,564 @@ static int handle_fast_load_image_command(struct command_context_s *cmd_ctx, cha free(buffer); } - duration_stop_measure(&duration, &duration_text); - if (retval == ERROR_OK) - { - command_print(cmd_ctx, "Loaded %u bytes in %s", (unsigned int)image_size, duration_text); - command_print(cmd_ctx, "NB!!! image has not been loaded to target, issue a subsequent 'fast_load' to do so."); + if ((ERROR_OK == retval) && (duration_measure(&bench) == ERROR_OK)) { + command_print(CMD_CTX, "Loaded %" PRIu32 " bytes " + "in %fs (%0.3f KiB/s)", image_size, + duration_elapsed(&bench), duration_kbps(&bench, image_size)); + + command_print(CMD_CTX, + "WARNING: image has not been loaded to target!" + "You can issue a 'fast_load' to finish loading."); } - free(duration_text); image_close(&image); if (retval != ERROR_OK) - { free_fastload(); - } return retval; } -static int handle_fast_load_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc) +COMMAND_HANDLER(handle_fast_load_command) { - if (argc > 0) + if (CMD_ARGC > 0) return ERROR_COMMAND_SYNTAX_ERROR; - if (fastload == NULL) - { + if (fastload == NULL) { LOG_ERROR("No image in memory"); return ERROR_FAIL; } int i; - int ms = timeval_ms(); + int64_t ms = timeval_ms(); int size = 0; int retval = ERROR_OK; - for (i = 0; i < fastload_num;i++) - { - target_t *target = get_current_target(cmd_ctx); - command_print(cmd_ctx, "Write to 0x%08x, length 0x%08x", + for (i = 0; i < fastload_num; i++) { + struct target *target = get_current_target(CMD_CTX); + command_print(CMD_CTX, "Write to 0x%08x, length 0x%08x", (unsigned int)(fastload[i].address), (unsigned int)(fastload[i].length)); - if (retval == ERROR_OK) - { - retval = target_write_buffer(target, fastload[i].address, fastload[i].length, fastload[i].data); - } + retval = target_write_buffer(target, fastload[i].address, fastload[i].length, fastload[i].data); + if (retval != ERROR_OK) + break; size += fastload[i].length; } - int after = timeval_ms(); - command_print(cmd_ctx, "Loaded image %f kBytes/s", (float)(size/1024.0)/((float)(after-ms)/1000.0)); + if (retval == ERROR_OK) { + int64_t after = timeval_ms(); + command_print(CMD_CTX, "Loaded image %f kBytes/s", (float)(size/1024.0)/((float)(after-ms)/1000.0)); + } return retval; } +static const struct command_registration target_command_handlers[] = { + { + .name = "targets", + .handler = handle_targets_command, + .mode = COMMAND_ANY, + .help = "change current default target (one parameter) " + "or prints table of all targets (no parameters)", + .usage = "[target]", + }, + { + .name = "target", + .mode = COMMAND_CONFIG, + .help = "configure target", -/* - * Local Variables: - * c-basic-offset: 4 - * tab-width: 4 - * End: - */ + .chain = target_subcommand_handlers, + }, + COMMAND_REGISTRATION_DONE +}; + +int target_register_commands(struct command_context *cmd_ctx) +{ + return register_commands(cmd_ctx, NULL, target_command_handlers); +} + +static bool target_reset_nag = true; + +bool get_target_reset_nag(void) +{ + return target_reset_nag; +} + +COMMAND_HANDLER(handle_target_reset_nag) +{ + return CALL_COMMAND_HANDLER(handle_command_parse_bool, + &target_reset_nag, "Nag after each reset about options to improve " + "performance"); +} + +COMMAND_HANDLER(handle_ps_command) +{ + struct target *target = get_current_target(CMD_CTX); + char *display; + if (target->state != TARGET_HALTED) { + LOG_INFO("target not halted !!"); + return ERROR_OK; + } + + if ((target->rtos) && (target->rtos->type) + && (target->rtos->type->ps_command)) { + display = target->rtos->type->ps_command(target); + command_print(CMD_CTX, "%s", display); + free(display); + return ERROR_OK; + } else { + LOG_INFO("failed"); + return ERROR_TARGET_FAILURE; + } +} + +static void binprint(struct command_context *cmd_ctx, const char *text, const uint8_t *buf, int size) +{ + if (text != NULL) + command_print_sameline(cmd_ctx, "%s", text); + for (int i = 0; i < size; i++) + command_print_sameline(cmd_ctx, " %02x", buf[i]); + command_print(cmd_ctx, " "); +} + +COMMAND_HANDLER(handle_test_mem_access_command) +{ + struct target *target = get_current_target(CMD_CTX); + uint32_t test_size; + int retval = ERROR_OK; + + if (target->state != TARGET_HALTED) { + LOG_INFO("target not halted !!"); + return ERROR_FAIL; + } + + if (CMD_ARGC != 1) + return ERROR_COMMAND_SYNTAX_ERROR; + + COMMAND_PARSE_NUMBER(u32, CMD_ARGV[0], test_size); + + /* Test reads */ + size_t num_bytes = test_size + 4; + + struct working_area *wa = NULL; + retval = target_alloc_working_area(target, num_bytes, &wa); + if (retval != ERROR_OK) { + LOG_ERROR("Not enough working area"); + return ERROR_FAIL; + } + + uint8_t *test_pattern = malloc(num_bytes); + + for (size_t i = 0; i < num_bytes; i++) + test_pattern[i] = rand(); + + retval = target_write_memory(target, wa->address, 1, num_bytes, test_pattern); + if (retval != ERROR_OK) { + LOG_ERROR("Test pattern write failed"); + goto out; + } + + for (int host_offset = 0; host_offset <= 1; host_offset++) { + for (int size = 1; size <= 4; size *= 2) { + for (int offset = 0; offset < 4; offset++) { + uint32_t count = test_size / size; + size_t host_bufsiz = (count + 2) * size + host_offset; + uint8_t *read_ref = malloc(host_bufsiz); + uint8_t *read_buf = malloc(host_bufsiz); + + for (size_t i = 0; i < host_bufsiz; i++) { + read_ref[i] = rand(); + read_buf[i] = read_ref[i]; + } + command_print_sameline(CMD_CTX, + "Test read %" PRIu32 " x %d @ %d to %saligned buffer: ", count, + size, offset, host_offset ? "un" : ""); + + struct duration bench; + duration_start(&bench); + + retval = target_read_memory(target, wa->address + offset, size, count, + read_buf + size + host_offset); + + duration_measure(&bench); + + if (retval == ERROR_TARGET_UNALIGNED_ACCESS) { + command_print(CMD_CTX, "Unsupported alignment"); + goto next; + } else if (retval != ERROR_OK) { + command_print(CMD_CTX, "Memory read failed"); + goto next; + } + + /* replay on host */ + memcpy(read_ref + size + host_offset, test_pattern + offset, count * size); + + /* check result */ + int result = memcmp(read_ref, read_buf, host_bufsiz); + if (result == 0) { + command_print(CMD_CTX, "Pass in %fs (%0.3f KiB/s)", + duration_elapsed(&bench), + duration_kbps(&bench, count * size)); + } else { + command_print(CMD_CTX, "Compare failed"); + binprint(CMD_CTX, "ref:", read_ref, host_bufsiz); + binprint(CMD_CTX, "buf:", read_buf, host_bufsiz); + } +next: + free(read_ref); + free(read_buf); + } + } + } + +out: + free(test_pattern); + + if (wa != NULL) + target_free_working_area(target, wa); + + /* Test writes */ + num_bytes = test_size + 4 + 4 + 4; + + retval = target_alloc_working_area(target, num_bytes, &wa); + if (retval != ERROR_OK) { + LOG_ERROR("Not enough working area"); + return ERROR_FAIL; + } + + test_pattern = malloc(num_bytes); + + for (size_t i = 0; i < num_bytes; i++) + test_pattern[i] = rand(); + + for (int host_offset = 0; host_offset <= 1; host_offset++) { + for (int size = 1; size <= 4; size *= 2) { + for (int offset = 0; offset < 4; offset++) { + uint32_t count = test_size / size; + size_t host_bufsiz = count * size + host_offset; + uint8_t *read_ref = malloc(num_bytes); + uint8_t *read_buf = malloc(num_bytes); + uint8_t *write_buf = malloc(host_bufsiz); + + for (size_t i = 0; i < host_bufsiz; i++) + write_buf[i] = rand(); + command_print_sameline(CMD_CTX, + "Test write %" PRIu32 " x %d @ %d from %saligned buffer: ", count, + size, offset, host_offset ? "un" : ""); + + retval = target_write_memory(target, wa->address, 1, num_bytes, test_pattern); + if (retval != ERROR_OK) { + command_print(CMD_CTX, "Test pattern write failed"); + goto nextw; + } + + /* replay on host */ + memcpy(read_ref, test_pattern, num_bytes); + memcpy(read_ref + size + offset, write_buf + host_offset, count * size); + + struct duration bench; + duration_start(&bench); + + retval = target_write_memory(target, wa->address + size + offset, size, count, + write_buf + host_offset); + + duration_measure(&bench); + + if (retval == ERROR_TARGET_UNALIGNED_ACCESS) { + command_print(CMD_CTX, "Unsupported alignment"); + goto nextw; + } else if (retval != ERROR_OK) { + command_print(CMD_CTX, "Memory write failed"); + goto nextw; + } + + /* read back */ + retval = target_read_memory(target, wa->address, 1, num_bytes, read_buf); + if (retval != ERROR_OK) { + command_print(CMD_CTX, "Test pattern write failed"); + goto nextw; + } + + /* check result */ + int result = memcmp(read_ref, read_buf, num_bytes); + if (result == 0) { + command_print(CMD_CTX, "Pass in %fs (%0.3f KiB/s)", + duration_elapsed(&bench), + duration_kbps(&bench, count * size)); + } else { + command_print(CMD_CTX, "Compare failed"); + binprint(CMD_CTX, "ref:", read_ref, num_bytes); + binprint(CMD_CTX, "buf:", read_buf, num_bytes); + } +nextw: + free(read_ref); + free(read_buf); + } + } + } + + free(test_pattern); + + if (wa != NULL) + target_free_working_area(target, wa); + return retval; +} + +static const struct command_registration target_exec_command_handlers[] = { + { + .name = "fast_load_image", + .handler = handle_fast_load_image_command, + .mode = COMMAND_ANY, + .help = "Load image into server memory for later use by " + "fast_load; primarily for profiling", + .usage = "filename address ['bin'|'ihex'|'elf'|'s19'] " + "[min_address [max_length]]", + }, + { + .name = "fast_load", + .handler = handle_fast_load_command, + .mode = COMMAND_EXEC, + .help = "loads active fast load image to current target " + "- mainly for profiling purposes", + .usage = "", + }, + { + .name = "profile", + .handler = handle_profile_command, + .mode = COMMAND_EXEC, + .usage = "seconds filename [start end]", + .help = "profiling samples the CPU PC", + }, + /** @todo don't register virt2phys() unless target supports it */ + { + .name = "virt2phys", + .handler = handle_virt2phys_command, + .mode = COMMAND_ANY, + .help = "translate a virtual address into a physical address", + .usage = "virtual_address", + }, + { + .name = "reg", + .handler = handle_reg_command, + .mode = COMMAND_EXEC, + .help = "display (reread from target with \"force\") or set a register; " + "with no arguments, displays all registers and their values", + .usage = "[(register_number|register_name) [(value|'force')]]", + }, + { + .name = "poll", + .handler = handle_poll_command, + .mode = COMMAND_EXEC, + .help = "poll target state; or reconfigure background polling", + .usage = "['on'|'off']", + }, + { + .name = "wait_halt", + .handler = handle_wait_halt_command, + .mode = COMMAND_EXEC, + .help = "wait up to the specified number of milliseconds " + "(default 5000) for a previously requested halt", + .usage = "[milliseconds]", + }, + { + .name = "halt", + .handler = handle_halt_command, + .mode = COMMAND_EXEC, + .help = "request target to halt, then wait up to the specified" + "number of milliseconds (default 5000) for it to complete", + .usage = "[milliseconds]", + }, + { + .name = "resume", + .handler = handle_resume_command, + .mode = COMMAND_EXEC, + .help = "resume target execution from current PC or address", + .usage = "[address]", + }, + { + .name = "reset", + .handler = handle_reset_command, + .mode = COMMAND_EXEC, + .usage = "[run|halt|init]", + .help = "Reset all targets into the specified mode." + "Default reset mode is run, if not given.", + }, + { + .name = "soft_reset_halt", + .handler = handle_soft_reset_halt_command, + .mode = COMMAND_EXEC, + .usage = "", + .help = "halt the target and do a soft reset", + }, + { + .name = "step", + .handler = handle_step_command, + .mode = COMMAND_EXEC, + .help = "step one instruction from current PC or address", + .usage = "[address]", + }, + { + .name = "mdd", + .handler = handle_md_command, + .mode = COMMAND_EXEC, + .help = "display memory words", + .usage = "['phys'] address [count]", + }, + { + .name = "mdw", + .handler = handle_md_command, + .mode = COMMAND_EXEC, + .help = "display memory words", + .usage = "['phys'] address [count]", + }, + { + .name = "mdh", + .handler = handle_md_command, + .mode = COMMAND_EXEC, + .help = "display memory half-words", + .usage = "['phys'] address [count]", + }, + { + .name = "mdb", + .handler = handle_md_command, + .mode = COMMAND_EXEC, + .help = "display memory bytes", + .usage = "['phys'] address [count]", + }, + { + .name = "mwd", + .handler = handle_mw_command, + .mode = COMMAND_EXEC, + .help = "write memory word", + .usage = "['phys'] address value [count]", + }, + { + .name = "mww", + .handler = handle_mw_command, + .mode = COMMAND_EXEC, + .help = "write memory word", + .usage = "['phys'] address value [count]", + }, + { + .name = "mwh", + .handler = handle_mw_command, + .mode = COMMAND_EXEC, + .help = "write memory half-word", + .usage = "['phys'] address value [count]", + }, + { + .name = "mwb", + .handler = handle_mw_command, + .mode = COMMAND_EXEC, + .help = "write memory byte", + .usage = "['phys'] address value [count]", + }, + { + .name = "bp", + .handler = handle_bp_command, + .mode = COMMAND_EXEC, + .help = "list or set hardware or software breakpoint", + .usage = "
[] ['hw'|'hw_ctx']", + }, + { + .name = "rbp", + .handler = handle_rbp_command, + .mode = COMMAND_EXEC, + .help = "remove breakpoint", + .usage = "address", + }, + { + .name = "wp", + .handler = handle_wp_command, + .mode = COMMAND_EXEC, + .help = "list (no params) or create watchpoints", + .usage = "[address length [('r'|'w'|'a') value [mask]]]", + }, + { + .name = "rwp", + .handler = handle_rwp_command, + .mode = COMMAND_EXEC, + .help = "remove watchpoint", + .usage = "address", + }, + { + .name = "load_image", + .handler = handle_load_image_command, + .mode = COMMAND_EXEC, + .usage = "filename address ['bin'|'ihex'|'elf'|'s19'] " + "[min_address] [max_length]", + }, + { + .name = "dump_image", + .handler = handle_dump_image_command, + .mode = COMMAND_EXEC, + .usage = "filename address size", + }, + { + .name = "verify_image_checksum", + .handler = handle_verify_image_checksum_command, + .mode = COMMAND_EXEC, + .usage = "filename [offset [type]]", + }, + { + .name = "verify_image", + .handler = handle_verify_image_command, + .mode = COMMAND_EXEC, + .usage = "filename [offset [type]]", + }, + { + .name = "test_image", + .handler = handle_test_image_command, + .mode = COMMAND_EXEC, + .usage = "filename [offset [type]]", + }, + { + .name = "mem2array", + .mode = COMMAND_EXEC, + .jim_handler = jim_mem2array, + .help = "read 8/16/32 bit memory and return as a TCL array " + "for script processing", + .usage = "arrayname bitwidth address count", + }, + { + .name = "array2mem", + .mode = COMMAND_EXEC, + .jim_handler = jim_array2mem, + .help = "convert a TCL array to memory locations " + "and write the 8/16/32 bit values", + .usage = "arrayname bitwidth address count", + }, + { + .name = "reset_nag", + .handler = handle_target_reset_nag, + .mode = COMMAND_ANY, + .help = "Nag after each reset about options that could have been " + "enabled to improve performance. ", + .usage = "['enable'|'disable']", + }, + { + .name = "ps", + .handler = handle_ps_command, + .mode = COMMAND_EXEC, + .help = "list all tasks ", + .usage = " ", + }, + { + .name = "test_mem_access", + .handler = handle_test_mem_access_command, + .mode = COMMAND_EXEC, + .help = "Test the target's memory access functions", + .usage = "size", + }, + + COMMAND_REGISTRATION_DONE +}; +static int target_register_user_commands(struct command_context *cmd_ctx) +{ + int retval = ERROR_OK; + retval = target_request_register_commands(cmd_ctx); + if (retval != ERROR_OK) + return retval; + + retval = trace_register_commands(cmd_ctx); + if (retval != ERROR_OK) + return retval; + + + return register_commands(cmd_ctx, NULL, target_exec_command_handlers); +}