target.c 119 KB
Newer Older
1
2
3
4
/***************************************************************************
 *   Copyright (C) 2005 by Dominic Rath                                    *
 *   Dominic.Rath@gmx.de                                                   *
 *                                                                         *
5
 *   Copyright (C) 2007-2009 Øyvind Harboe                                 *
6
7
 *   oyvind.harboe@zylin.com                                               *
 *                                                                         *
8
9
10
 *   Copyright (C) 2008, Duane Ellis                                       *
 *   openocd@duaneeellis.com                                               *
 *                                                                         *
11
12
13
 *   Copyright (C) 2008 by Spencer Oliver                                  *
 *   spen@spen-soft.co.uk                                                  *
 *                                                                         *
14
15
16
 *   Copyright (C) 2008 by Rick Altherr                                    *
 *   kc8apf@kc8apf.net>                                                    *
 *                                                                         *
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 *   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     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   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.             *
 ***************************************************************************/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "target.h"
37
#include "target_type.h"
38
#include "target_request.h"
39
#include "breakpoints.h"
40
41
42
43
#include "time_support.h"
#include "register.h"
#include "trace.h"
#include "image.h"
44
45
46
#include "jtag.h"


47
static int jim_mcrmrc(Jim_Interp *interp, int argc, Jim_Obj *const *argv);
48

Zachary T Welch's avatar
Zachary T Welch committed
49
50
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);
51

52
/* targets */
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
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 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 cortexm3_target;
extern struct target_type cortexa8_target;
extern struct target_type arm11_target;
extern struct target_type mips_m4k_target;
extern struct target_type avr_target;
Zachary T Welch's avatar
Zachary T Welch committed
68
extern struct target_type testee_target;
69
70

struct target_type *target_types[] =
71
72
73
74
75
76
77
{
	&arm7tdmi_target,
	&arm9tdmi_target,
	&arm920t_target,
	&arm720t_target,
	&arm966e_target,
	&arm926ejs_target,
78
	&fa526_target,
79
	&feroceon_target,
80
	&dragonite_target,
81
82
	&xscale_target,
	&cortexm3_target,
83
	&cortexa8_target,
oharboe's avatar
oharboe committed
84
	&arm11_target,
ntfreak's avatar
ntfreak committed
85
	&mips_m4k_target,
86
	&avr_target,
Zachary T Welch's avatar
Zachary T Welch committed
87
	&testee_target,
88
89
90
	NULL,
};

Zachary T Welch's avatar
Zachary T Welch committed
91
struct target *all_targets = NULL;
92
struct target_event_callback *target_event_callbacks = NULL;
93
struct target_timer_callback *target_timer_callbacks = NULL;
94

95
96
97
98
99
100
101
102
const Jim_Nvp nvp_assert[] = {
	{ .name = "assert", NVP_ASSERT },
	{ .name = "deassert", NVP_DEASSERT },
	{ .name = "T", NVP_ASSERT },
	{ .name = "F", NVP_DEASSERT },
	{ .name = "t", NVP_ASSERT },
	{ .name = "f", NVP_DEASSERT },
	{ .name = NULL, .value = -1 }
103
104
};

105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
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" },
	{ .value = ERROR_TARGET_NOT_HALTED, .name = "err-not-halted" },
	{ .value = ERROR_TARGET_FAILURE, .name = "err-failure" },
	{ .value = ERROR_TARGET_UNALIGNED_ACCESS   , .name = "err-unaligned-access" },
	{ .value = ERROR_TARGET_DATA_ABORT , .name = "err-data-abort" },
	{ .value = ERROR_TARGET_RESOURCE_NOT_AVAILABLE , .name = "err-resource-not-available" },
	{ .value = ERROR_TARGET_TRANSLATION_FAULT  , .name = "err-translation-fault" },
	{ .value = ERROR_TARGET_NOT_RUNNING, .name = "err-not-running" },
	{ .value = ERROR_TARGET_NOT_EXAMINED, .name = "err-not-examined" },
	{ .value = -1, .name = NULL }
};

120
const char *target_strerror_safe(int err)
121
122
123
{
	const Jim_Nvp *n;

124
	n = Jim_Nvp_value2name_simple(nvp_error_target, err);
zwelch's avatar
zwelch committed
125
	if (n->name == NULL) {
126
127
128
129
130
131
		return "unknown";
	} else {
		return n->name;
	}
}

132
static const Jim_Nvp nvp_target_event[] = {
133
134
	{ .value = TARGET_EVENT_OLD_gdb_program_config , .name = "old-gdb_program_config" },
	{ .value = TARGET_EVENT_OLD_pre_resume         , .name = "old-pre_resume" },
135

136
	{ .value = TARGET_EVENT_GDB_HALT, .name = "gdb-halt" },
137
138
139
140
141
	{ .value = TARGET_EVENT_HALTED, .name = "halted" },
	{ .value = TARGET_EVENT_RESUMED, .name = "resumed" },
	{ .value = TARGET_EVENT_RESUME_START, .name = "resume-start" },
	{ .value = TARGET_EVENT_RESUME_END, .name = "resume-end" },

142
143
144
	{ .name = "gdb-start", .value = TARGET_EVENT_GDB_START },
	{ .name = "gdb-end", .value = TARGET_EVENT_GDB_END },

145
	/* historical name */
146

147
	{ .value = TARGET_EVENT_RESET_START, .name = "reset-start" },
148
149
150
151
152
153
154
155
156

	{ .value = TARGET_EVENT_RESET_ASSERT_PRE,    .name = "reset-assert-pre" },
	{ .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" },
157
158
159
	{ .value = TARGET_EVENT_RESET_INIT , .name = "reset-init" },
	{ .value = TARGET_EVENT_RESET_END, .name = "reset-end" },

160
	{ .value = TARGET_EVENT_EXAMINE_START, .name = "examine-start" },
161
	{ .value = TARGET_EVENT_EXAMINE_END, .name = "examine-end" },
162

163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
	{ .value = TARGET_EVENT_DEBUG_HALTED, .name = "debug-halted" },
	{ .value = TARGET_EVENT_DEBUG_RESUMED, .name = "debug-resumed" },

	{ .value = TARGET_EVENT_GDB_ATTACH, .name = "gdb-attach" },
	{ .value = TARGET_EVENT_GDB_DETACH, .name = "gdb-detach" },

	{ .value = TARGET_EVENT_GDB_FLASH_WRITE_START, .name = "gdb-flash-write-start" },
	{ .value = TARGET_EVENT_GDB_FLASH_WRITE_END  , .name = "gdb-flash-write-end"   },

	{ .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" },

	{ .name = NULL, .value = -1 }
180
181
};

182
183
184
185
186
187
188
const Jim_Nvp nvp_target_state[] = {
	{ .name = "unknown", .value = TARGET_UNKNOWN },
	{ .name = "running", .value = TARGET_RUNNING },
	{ .name = "halted",  .value = TARGET_HALTED },
	{ .name = "reset",   .value = TARGET_RESET },
	{ .name = "debug-running", .value = TARGET_DEBUG_RUNNING },
	{ .name = NULL, .value = -1 },
189
190
};

191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
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 = "undefined"                , .value = DBG_REASON_UNDEFINED },
	{ .name = NULL, .value = -1 },
};

const Jim_Nvp nvp_target_endian[] = {
	{ .name = "big",    .value = TARGET_BIG_ENDIAN },
	{ .name = "little", .value = TARGET_LITTLE_ENDIAN },
	{ .name = "be",     .value = TARGET_BIG_ENDIAN },
206
	{ .name = "le",     .value = TARGET_LITTLE_ENDIAN },
207
208
209
	{ .name = NULL,     .value = -1 },
};

210
211
212
213
214
215
216
217
const Jim_Nvp nvp_reset_modes[] = {
	{ .name = "unknown", .value = RESET_UNKNOWN },
	{ .name = "run"    , .value = RESET_RUN },
	{ .name = "halt"   , .value = RESET_HALT },
	{ .name = "init"   , .value = RESET_INIT },
	{ .name = NULL     , .value = -1 },
};

218
const char *
Zachary T Welch's avatar
Zachary T Welch committed
219
target_state_name( struct target *t )
220
221
222
223
224
225
226
227
228
229
{
	const char *cp;
	cp = Jim_Nvp_value2name_simple(nvp_target_state, t->state)->name;
	if( !cp ){
		LOG_ERROR("Invalid target state: %d", (int)(t->state));
		cp = "(*BUG*unknown*BUG*)";
	}
	return cp;
}

230
/* determine the number of the new target */
231
static int new_target_number(void)
232
{
Zachary T Welch's avatar
Zachary T Welch committed
233
	struct target *t;
234
235
236
237
238
	int x;

	/* number is 0 based */
	x = -1;
	t = all_targets;
zwelch's avatar
zwelch committed
239
240
	while (t) {
		if (x < t->target_number) {
241
242
243
244
			x = t->target_number;
		}
		t = t->next;
	}
zwelch's avatar
zwelch committed
245
	return x + 1;
246
247
}

248
/* read a uint32_t from a buffer in target memory endianness */
Zachary T Welch's avatar
Zachary T Welch committed
249
uint32_t target_buffer_get_u32(struct target *target, const uint8_t *buffer)
250
251
252
253
254
255
256
{
	if (target->endianness == TARGET_LITTLE_ENDIAN)
		return le_to_h_u32(buffer);
	else
		return be_to_h_u32(buffer);
}

zwelch's avatar
zwelch committed
257
/* read a uint16_t from a buffer in target memory endianness */
Zachary T Welch's avatar
Zachary T Welch committed
258
uint16_t target_buffer_get_u16(struct target *target, const uint8_t *buffer)
259
260
261
262
263
264
265
{
	if (target->endianness == TARGET_LITTLE_ENDIAN)
		return le_to_h_u16(buffer);
	else
		return be_to_h_u16(buffer);
}

266
/* read a uint8_t from a buffer in target memory endianness */
Zachary T Welch's avatar
Zachary T Welch committed
267
uint8_t target_buffer_get_u8(struct target *target, const uint8_t *buffer)
268
269
270
271
{
	return *buffer & 0x0ff;
}

272
/* write a uint32_t to a buffer in target memory endianness */
Zachary T Welch's avatar
Zachary T Welch committed
273
void target_buffer_set_u32(struct target *target, uint8_t *buffer, uint32_t value)
274
275
276
277
278
279
280
{
	if (target->endianness == TARGET_LITTLE_ENDIAN)
		h_u32_to_le(buffer, value);
	else
		h_u32_to_be(buffer, value);
}

zwelch's avatar
zwelch committed
281
/* write a uint16_t to a buffer in target memory endianness */
Zachary T Welch's avatar
Zachary T Welch committed
282
void target_buffer_set_u16(struct target *target, uint8_t *buffer, uint16_t value)
283
284
285
286
287
288
289
{
	if (target->endianness == TARGET_LITTLE_ENDIAN)
		h_u16_to_le(buffer, value);
	else
		h_u16_to_be(buffer, value);
}

290
/* write a uint8_t to a buffer in target memory endianness */
Zachary T Welch's avatar
Zachary T Welch committed
291
void target_buffer_set_u8(struct target *target, uint8_t *buffer, uint8_t value)
292
293
294
295
{
	*buffer = value;
}

296
/* return a pointer to a configured target; id is name or number */
Zachary T Welch's avatar
Zachary T Welch committed
297
struct target *get_target(const char *id)
298
{
Zachary T Welch's avatar
Zachary T Welch committed
299
	struct target *target;
300
301
302
303
304
305
306
307
308

	/* try as tcltarget name */
	for (target = all_targets; target; target = target->next) {
		if (target->cmd_name == NULL)
			continue;
		if (strcmp(id, target->cmd_name) == 0)
			return target;
	}

309
310
	/* It's OK to remove this fallback sometime after August 2010 or so */

311
	/* no match, try as number */
312
313
	unsigned num;
	if (parse_uint(id, &num) != ERROR_OK)
314
315
316
		return NULL;

	for (target = all_targets; target; target = target->next) {
317
318
319
		if (target->target_number == (int)num) {
			LOG_WARNING("use '%s' as target identifier, not '%u'",
					target->cmd_name, num);
320
			return target;
321
		}
322
323
324
325
326
	}

	return NULL;
}

327
/* returns a pointer to the n-th configured target */
Zachary T Welch's avatar
Zachary T Welch committed
328
static struct target *get_target_by_num(int num)
329
{
Zachary T Welch's avatar
Zachary T Welch committed
330
	struct target *target = all_targets;
331

zwelch's avatar
zwelch committed
332
333
	while (target) {
		if (target->target_number == num) {
334
			return target;
335
		}
336
337
338
339
340
341
		target = target->next;
	}

	return NULL;
}

342
struct target* get_current_target(struct command_context *cmd_ctx)
343
{
Zachary T Welch's avatar
Zachary T Welch committed
344
	struct target *target = get_target_by_num(cmd_ctx->current_target);
oharboe's avatar
oharboe committed
345

346
347
	if (target == NULL)
	{
348
		LOG_ERROR("BUG: current_target out of bounds");
349
350
351
		exit(-1);
	}

oharboe's avatar
oharboe committed
352
	return target;
353
354
}

Zachary T Welch's avatar
Zachary T Welch committed
355
int target_poll(struct target *target)
356
{
357
358
	int retval;

359
	/* We can't poll until after examine */
360
	if (!target_was_examined(target))
361
362
363
364
	{
		/* Fail silently lest we pollute the log */
		return ERROR_FAIL;
	}
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387

	retval = target->type->poll(target);
	if (retval != ERROR_OK)
		return retval;

	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)
			{
				target->halt_issued = false;
				LOG_INFO("Halt timed out, wake up GDB.");
				target_call_event_callbacks(target, TARGET_EVENT_GDB_HALT);
			}
		}
	}

	return ERROR_OK;
388
389
}

Zachary T Welch's avatar
Zachary T Welch committed
390
int target_halt(struct target *target)
391
{
392
	int retval;
393
	/* We can't poll until after examine */
394
	if (!target_was_examined(target))
395
396
397
398
	{
		LOG_ERROR("Target not examined yet");
		return ERROR_FAIL;
	}
399
400
401
402
403
404
405
406
407

	retval = target->type->halt(target);
	if (retval != ERROR_OK)
		return retval;

	target->halt_issued = true;
	target->halt_issued_time = timeval_ms();

	return ERROR_OK;
408
409
}

Zachary T Welch's avatar
Zachary T Welch committed
410
int target_resume(struct target *target, int current, uint32_t address, int handle_breakpoints, int debug_execution)
411
{
412
	int retval;
oharboe's avatar
oharboe committed
413

414
	/* We can't poll until after examine */
415
	if (!target_was_examined(target))
416
417
418
419
	{
		LOG_ERROR("Target not examined yet");
		return ERROR_FAIL;
	}
oharboe's avatar
oharboe committed
420

oharboe's avatar
oharboe committed
421
422
423
424
	/* 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.
	 */
425
426
	if ((retval = target->type->resume(target, current, address, handle_breakpoints, debug_execution)) != ERROR_OK)
		return retval;
oharboe's avatar
oharboe committed
427

428
	return retval;
429
430
}

431
int target_process_reset(struct command_context *cmd_ctx, enum target_reset_mode reset_mode)
432
433
{
	char buf[100];
434
	int retval;
435
	Jim_Nvp *n;
436
	n = Jim_Nvp_value2name_simple(nvp_reset_modes, reset_mode);
zwelch's avatar
zwelch committed
437
	if (n->name == NULL) {
438
439
440
441
		LOG_ERROR("invalid reset mode");
		return ERROR_FAIL;
	}

442
443
444
445
	/* 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.
	 */
446
447
448
	bool save_poll = jtag_poll_get_enabled();

	jtag_poll_set_enabled(false);
449

450
451
	sprintf(buf, "ocd_process_reset %s", n->name);
	retval = Jim_Eval(interp, buf);
452

453
	jtag_poll_set_enabled(save_poll);
454

zwelch's avatar
zwelch committed
455
	if (retval != JIM_OK) {
456
		Jim_PrintErrorMessage(interp);
457
458
		return ERROR_FAIL;
	}
459
460

	/* We want any events to be processed before the prompt */
461
	retval = target_call_timer_callbacks_now();
462

463
	return retval;
464
465
}

Zachary T Welch's avatar
Zachary T Welch committed
466
static int identity_virt2phys(struct target *target,
David Brownell's avatar
David Brownell committed
467
		uint32_t virtual, uint32_t *physical)
468
469
470
471
472
{
	*physical = virtual;
	return ERROR_OK;
}

Zachary T Welch's avatar
Zachary T Welch committed
473
static int no_mmu(struct target *target, int *enabled)
474
{
475
	*enabled = 0;
476
477
478
	return ERROR_OK;
}

Zachary T Welch's avatar
Zachary T Welch committed
479
static int default_examine(struct target *target)
480
{
481
	target_set_examined(target);
482
483
484
	return ERROR_OK;
}

Zachary T Welch's avatar
Zachary T Welch committed
485
int target_examine_one(struct target *target)
zwelch's avatar
zwelch committed
486
487
488
489
{
	return target->type->examine(target);
}

zwelch's avatar
zwelch committed
490
491
static int jtag_enable_callback(enum jtag_event event, void *priv)
{
Zachary T Welch's avatar
Zachary T Welch committed
492
	struct target *target = priv;
zwelch's avatar
zwelch committed
493
494
495
496
497
498
499
500
501

	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);
}


zwelch's avatar
zwelch committed
502
/* Targets that correctly implement init + examine, i.e.
503
 * no communication with target during init:
oharboe's avatar
oharboe committed
504
505
 *
 * XScale
506
 */
ntfreak's avatar
ntfreak committed
507
int target_examine(void)
508
509
{
	int retval = ERROR_OK;
Zachary T Welch's avatar
Zachary T Welch committed
510
	struct target *target;
zwelch's avatar
zwelch committed
511
512

	for (target = all_targets; target; target = target->next)
513
	{
zwelch's avatar
zwelch committed
514
515
516
517
		/* defer examination, but don't skip it */
		if (!target->tap->enabled) {
			jtag_register_event_callback(jtag_enable_callback,
					target);
zwelch's avatar
zwelch committed
518
			continue;
zwelch's avatar
zwelch committed
519
		}
zwelch's avatar
zwelch committed
520
		if ((retval = target_examine_one(target)) != ERROR_OK)
521
522
523
524
			return retval;
	}
	return retval;
}
Zachary T Welch's avatar
Zachary T Welch committed
525
const char *target_get_name(struct target *target)
zwelch's avatar
zwelch committed
526
527
528
{
	return target->type->name;
}
529

Zachary T Welch's avatar
Zachary T Welch committed
530
static int target_write_memory_imp(struct target *target, uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer)
531
{
532
	if (!target_was_examined(target))
533
534
535
536
537
538
539
	{
		LOG_ERROR("Target not examined yet");
		return ERROR_FAIL;
	}
	return target->type->write_memory_imp(target, address, size, count, buffer);
}

Zachary T Welch's avatar
Zachary T Welch committed
540
static int target_read_memory_imp(struct target *target, uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer)
541
{
542
	if (!target_was_examined(target))
543
544
545
546
547
548
549
	{
		LOG_ERROR("Target not examined yet");
		return ERROR_FAIL;
	}
	return target->type->read_memory_imp(target, address, size, count, buffer);
}

Zachary T Welch's avatar
Zachary T Welch committed
550
static int target_soft_reset_halt_imp(struct target *target)
551
{
552
	if (!target_was_examined(target))
553
554
555
556
	{
		LOG_ERROR("Target not examined yet");
		return ERROR_FAIL;
	}
557
558
559
560
561
	if (!target->type->soft_reset_halt_imp) {
		LOG_ERROR("Target %s does not support soft_reset_halt",
				target->cmd_name);
		return ERROR_FAIL;
	}
562
563
564
	return target->type->soft_reset_halt_imp(target);
}

Zachary T Welch's avatar
Zachary T Welch committed
565
static int target_run_algorithm_imp(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)
566
{
567
	if (!target_was_examined(target))
568
569
570
571
572
573
	{
		LOG_ERROR("Target not examined yet");
		return ERROR_FAIL;
	}
	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);
}
574

Zachary T Welch's avatar
Zachary T Welch committed
575
int target_read_memory(struct target *target,
576
		uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer)
zwelch's avatar
zwelch committed
577
578
579
580
{
	return target->type->read_memory(target, address, size, count, buffer);
}

Zachary T Welch's avatar
Zachary T Welch committed
581
int target_read_phys_memory(struct target *target,
582
583
584
585
586
		uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer)
{
	return target->type->read_phys_memory(target, address, size, count, buffer);
}

Zachary T Welch's avatar
Zachary T Welch committed
587
int target_write_memory(struct target *target,
588
		uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer)
zwelch's avatar
zwelch committed
589
590
591
{
	return target->type->write_memory(target, address, size, count, buffer);
}
592

Zachary T Welch's avatar
Zachary T Welch committed
593
int target_write_phys_memory(struct target *target,
594
595
596
597
598
		uint32_t address, uint32_t size, uint32_t count, uint8_t *buffer)
{
	return target->type->write_phys_memory(target, address, size, count, buffer);
}

Zachary T Welch's avatar
Zachary T Welch committed
599
int target_bulk_write_memory(struct target *target,
600
		uint32_t address, uint32_t count, uint8_t *buffer)
zwelch's avatar
zwelch committed
601
602
603
604
{
	return target->type->bulk_write_memory(target, address, count, buffer);
}

Zachary T Welch's avatar
Zachary T Welch committed
605
int target_add_breakpoint(struct target *target,
606
		struct breakpoint *breakpoint)
607
608
609
{
	return target->type->add_breakpoint(target, breakpoint);
}
Zachary T Welch's avatar
Zachary T Welch committed
610
int target_remove_breakpoint(struct target *target,
611
		struct breakpoint *breakpoint)
612
613
614
615
{
	return target->type->remove_breakpoint(target, breakpoint);
}

Zachary T Welch's avatar
Zachary T Welch committed
616
int target_add_watchpoint(struct target *target,
617
		struct watchpoint *watchpoint)
618
619
620
{
	return target->type->add_watchpoint(target, watchpoint);
}
Zachary T Welch's avatar
Zachary T Welch committed
621
int target_remove_watchpoint(struct target *target,
622
		struct watchpoint *watchpoint)
623
624
625
{
	return target->type->remove_watchpoint(target, watchpoint);
}
zwelch's avatar
zwelch committed
626

Zachary T Welch's avatar
Zachary T Welch committed
627
int target_get_gdb_reg_list(struct target *target,
Zachary T Welch's avatar
Zachary T Welch committed
628
		struct reg **reg_list[], int *reg_list_size)
zwelch's avatar
zwelch committed
629
630
631
{
	return target->type->get_gdb_reg_list(target, reg_list, reg_list_size);
}
Zachary T Welch's avatar
Zachary T Welch committed
632
int target_step(struct target *target,
633
		int current, uint32_t address, int handle_breakpoints)
zwelch's avatar
zwelch committed
634
635
636
637
{
	return target->type->step(target, current, address, handle_breakpoints);
}

zwelch's avatar
zwelch committed
638

Zachary T Welch's avatar
Zachary T Welch committed
639
int target_run_algorithm(struct target *target,
640
		int num_mem_params, struct mem_param *mem_params,
641
		int num_reg_params, struct reg_param *reg_param,
642
		uint32_t entry_point, uint32_t exit_point,
zwelch's avatar
zwelch committed
643
644
645
646
647
648
649
		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);
}

650
651
652
653
654
/**
 * Reset the @c examined flag for the given target.
 * Pure paranoia -- targets are zeroed on allocation.
 */
static void target_reset_examined(struct target *target)
655
{
656
	target->examined = false;
657
658
}

zwelch's avatar
zwelch committed
659

660

Zachary T Welch's avatar
Zachary T Welch committed
661
static int default_mrc(struct target *target, int cpnum, uint32_t op1, uint32_t op2, uint32_t CRn, uint32_t CRm, uint32_t *value)
662
{
663
	LOG_ERROR("Not implemented: %s", __func__);
664
665
666
	return ERROR_FAIL;
}

Zachary T Welch's avatar
Zachary T Welch committed
667
static int default_mcr(struct target *target, int cpnum, uint32_t op1, uint32_t op2, uint32_t CRn, uint32_t CRm, uint32_t value)
668
{
669
	LOG_ERROR("Not implemented: %s", __func__);
670
671
672
	return ERROR_FAIL;
}

Zachary T Welch's avatar
Zachary T Welch committed
673
static int arm_cp_check(struct target *target, int cpnum, uint32_t op1, uint32_t op2, uint32_t CRn, uint32_t CRm)
674
675
676
677
678
679
680
681
682
683
684
685
686
687
{
	/* basic check */
	if (!target_was_examined(target))
	{
		LOG_ERROR("Target not examined yet");
		return ERROR_FAIL;
	}

	if ((cpnum <0) || (cpnum > 15))
	{
		LOG_ERROR("Illegal co-processor %d", cpnum);
		return ERROR_FAIL;
	}

688
	if (op1 > 7)
689
690
691
692
693
	{
		LOG_ERROR("Illegal op1");
		return ERROR_FAIL;
	}

694
	if (op2 > 7)
695
696
697
698
699
	{
		LOG_ERROR("Illegal op2");
		return ERROR_FAIL;
	}

700
	if (CRn > 15)
701
702
703
704
705
	{
		LOG_ERROR("Illegal CRn");
		return ERROR_FAIL;
	}

706
	if (CRm > 15)
707
708
709
710
711
	{
		LOG_ERROR("Illegal CRm");
		return ERROR_FAIL;
	}

712
713
714
	return ERROR_OK;
}

Zachary T Welch's avatar
Zachary T Welch committed
715
int target_mrc(struct target *target, int cpnum, uint32_t op1, uint32_t op2, uint32_t CRn, uint32_t CRm, uint32_t *value)
716
717
718
719
720
721
722
723
724
725
{
	int retval;

	retval = arm_cp_check(target, cpnum, op1, op2, CRn, CRm);
	if (retval != ERROR_OK)
		return retval;

	return target->type->mrc(target, cpnum, op1, op2, CRn, CRm, value);
}

Zachary T Welch's avatar
Zachary T Welch committed
726
int target_mcr(struct target *target, int cpnum, uint32_t op1, uint32_t op2, uint32_t CRn, uint32_t CRm, uint32_t value)
727
728
729
730
731
732
733
734
735
736
{
	int retval;

	retval = arm_cp_check(target, cpnum, op1, op2, CRn, CRm);
	if (retval != ERROR_OK)
		return retval;

	return target->type->mcr(target, cpnum, op1, op2, CRn, CRm, value);
}

737
static int
Zachary T Welch's avatar
Zachary T Welch committed
738
err_read_phys_memory(struct target *target, uint32_t address,
739
		uint32_t size, uint32_t count, uint8_t *buffer)
740
{
741
	LOG_ERROR("Not implemented: %s", __func__);
742
	return ERROR_FAIL;
743
744
}

745
static int
Zachary T Welch's avatar
Zachary T Welch committed
746
err_write_phys_memory(struct target *target, uint32_t address,
747
		uint32_t size, uint32_t count, uint8_t *buffer)
748
{
749
	LOG_ERROR("Not implemented: %s", __func__);
750
	return ERROR_FAIL;
751
752
}

753
int target_init(struct command_context *cmd_ctx)
754
{
Zachary T Welch's avatar
Zachary T Welch committed
755
	struct target *target;
756
	int retval;
oharboe's avatar
oharboe committed
757

758
	for (target = all_targets; target; target = target->next) {
759
		struct target_type *type = target->type;
760

761
		target_reset_examined(target);
762
763
764
765
		if (target->type->examine == NULL)
		{
			target->type->examine = default_examine;
		}
oharboe's avatar
oharboe committed
766

767
		if ((retval = target->type->init_target(cmd_ctx, target)) != ERROR_OK)
768
		{
zwelch's avatar
zwelch committed
769
			LOG_ERROR("target '%s' init failed", target_get_name(target));
770
			return retval;
771
		}
oharboe's avatar
oharboe committed
772

David Brownell's avatar
David Brownell committed
773
774
775
776
		/**
		 * @todo MCR/MRC are ARM-specific; don't require them in
		 * all targets, or for ARMs without coprocessors.
		 */
777
778
779
		if (target->type->mcr == NULL)
		{
			target->type->mcr = default_mcr;
780
781
		} else
		{
782
783
784
785
786
787
788
789
			const struct command_registration mcr_cmd = {
				.name = "mcr",
				.mode = COMMAND_EXEC,
				.jim_handler = &jim_mcrmrc,
				.help = "write coprocessor",
				.usage = "<cpnum> <op1> <op2> <CRn> <CRm> <value>",
			};
			register_command(cmd_ctx, NULL, &mcr_cmd);
790
791
792
793
794
		}

		if (target->type->mrc == NULL)
		{
			target->type->mrc = default_mrc;
795
796
		} else
		{
797
798
799
800
801
802
803
			const struct command_registration mrc_cmd = {
				.name = "mrc",
				.jim_handler = &jim_mcrmrc,
				.help = "read coprocessor",
				.usage = "<cpnum> <op1> <op2> <CRn> <CRm>",
			};
			register_command(cmd_ctx, NULL, &mrc_cmd);
804
805
806
		}


David Brownell's avatar
David Brownell committed
807
808
809
810
811
812
		/**
		 * @todo get rid of those *memory_imp() methods, now that all
		 * callers are using target_*_memory() accessors ... and make
		 * sure the "physical" paths handle the same issues.
		 */

813
814
815
816
817
818
819
820
821
822
823
824
		/* 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;

825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
		/* 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->write_phys_memory == NULL) {
				LOG_ERROR("type '%s' is missing %s",
						type->name,
						"write_phys_memory");
				type->write_phys_memory = err_write_phys_memory;
			}
			if (type->read_phys_memory == NULL) {
				LOG_ERROR("type '%s' is missing %s",
						type->name,
						"read_phys_memory");
				type->read_phys_memory = err_read_phys_memory;
			}
			if (type->virt2phys == NULL) {
				LOG_ERROR("type '%s' is missing %s",
						type->name,
						"virt2phys");
				type->virt2phys = identity_virt2phys;
			}

		/* 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.
		 */
		} else {
			if (type->write_phys_memory
					|| type->read_phys_memory
					|| type->virt2phys)
				LOG_WARNING("type '%s' has broken MMU hooks",
						type->name);

			type->mmu = no_mmu;
			type->write_phys_memory = type->write_memory;
			type->read_phys_memory = type->read_memory;
			type->virt2phys = identity_virt2phys;
863
864
		}
	}
oharboe's avatar
oharboe committed
865

866
	if (all_targets)
867
	{
zwelch's avatar
zwelch committed
868
		if ((retval = target_register_user_commands(cmd_ctx)) != ERROR_OK)
869
			return retval;
zwelch's avatar
zwelch committed
870
		if ((retval = target_register_timer_callback(handle_target, 100, 1, NULL)) != ERROR_OK)
871
			return retval;
872
	}
oharboe's avatar
oharboe committed
873

874
875
876
	return ERROR_OK;
}

Zachary T Welch's avatar
Zachary T Welch committed
877
int target_register_event_callback(int (*callback)(struct target *target, enum target_event event, void *priv), void *priv)
878
{
879
	struct target_event_callback **callbacks_p = &target_event_callbacks;
oharboe's avatar
oharboe committed
880

881
882
883
884
	if (callback == NULL)
	{
		return ERROR_INVALID_ARGUMENTS;
	}
oharboe's avatar
oharboe committed
885

886
887
888
889
890
891
	if (*callbacks_p)
	{
		while ((*callbacks_p)->next)
			callbacks_p = &((*callbacks_p)->next);
		callbacks_p = &((*callbacks_p)->next);
	}
oharboe's avatar
oharboe committed
892

893
	(*callbacks_p) = malloc(sizeof(struct target_event_callback));
894
895
896
	(*callbacks_p)->callback = callback;
	(*callbacks_p)->priv = priv;
	(*callbacks_p)->next = NULL;
oharboe's avatar
oharboe committed
897

898
899
900
901
902
	return ERROR_OK;
}

int target_register_timer_callback(int (*callback)(void *priv), int time_ms, int periodic, void *priv)
{
903
	struct target_timer_callback **callbacks_p = &target_timer_callbacks;
904
	struct timeval now;
oharboe's avatar
oharboe committed
905

906
907
908
909
	if (callback == NULL)
	{
		return ERROR_INVALID_ARGUMENTS;
	}
oharboe's avatar
oharboe committed
910

911
912
913
914
915
916
	if (*callbacks_p)
	{
		while ((*callbacks_p)->next)
			callbacks_p = &((*callbacks_p)->next);
		callbacks_p = &((*callbacks_p)->next);
	}
oharboe's avatar
oharboe committed
917

918
	(*callbacks_p) = malloc(sizeof(struct target_timer_callback));
919
920
921
	(*callbacks_p)->callback = callback;
	(*callbacks_p)->periodic = periodic;
	(*callbacks_p)->time_ms = time_ms;
oharboe's avatar
oharboe committed
922

923
924
925
926
927
928
929
930
931
	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;
	}
oharboe's avatar
oharboe committed
932

933
934
	(*callbacks_p)->priv = priv;
	(*callbacks_p)->next = NULL;
oharboe's avatar
oharboe committed
935

936
937
938
	return ERROR_OK;
}

Zachary T Welch's avatar
Zachary T Welch committed
939
int target_unregister_event_callback(int (*callback)(struct target *target, enum target_event event, void *priv), void *priv)
940
{
941
942
	struct target_event_callback **p = &target_event_callbacks;
	struct target_event_callback *c = target_event_callbacks;
oharboe's avatar
oharboe committed
943

944
945
946
947
	if (callback == NULL)
	{
		return ERROR_INVALID_ARGUMENTS;
	}
oharboe's avatar
oharboe committed
948

949
950
	while (c)
	{
951
		struct target_event_callback *next = c->next;
952
953
954
955
956
957
958
959
960
961
		if ((c->callback == callback) && (c->priv == priv))
		{
			*p = next;
			free(c);
			return ERROR_OK;
		}
		else
			p = &(c->next);
		c = next;
	}
oharboe's avatar
oharboe committed
962

963
964
965
966
967
	return ERROR_OK;
}

int target_unregister_timer_callback(int (*callback)(void *priv), void *priv)
{
968
969
	struct target_timer_callback **p = &target_timer_callbacks;
	struct target_timer_callback *c = target_timer_callbacks;
oharboe's avatar
oharboe committed
970

971
972
973
974
	if (callback == NULL)
	{
		return ERROR_INVALID_ARGUMENTS;
	}
oharboe's avatar
oharboe committed
975

976
977
	while (c)
	{
978
		struct target_timer_callback *next = c->next;
979
980
981
982
983
984
985
986
987
988
		if ((c->callback == callback) && (c->priv == priv))
		{
			*p = next;
			free(c);
			return ERROR_OK;
		}
		else
			p = &(c->next);
		c = next;
	}
oharboe's avatar
oharboe committed
989

990
991
992
	return ERROR_OK;
}

Zachary T Welch's avatar
Zachary T Welch committed
993
int target_call_event_callbacks(struct target *target, enum target_event event)
994
{
995
996
	struct target_event_callback *callback = target_event_callbacks;
	struct target_event_callback *next_callback;
oharboe's avatar
oharboe committed
997

998
999
1000
	if (event == TARGET_EVENT_HALTED)
	{
		/* execute early halted first */
For faster browsing, not all history is shown. View entire blame