tcl config script example

git-svn-id: svn://svn.berlios.de/openocd/trunk@744 b42882b7-edfa-0310-969c-e2dbd0fdcd60

src/openocd.c

@@ -182,9 +182,11 @@ static void tcl_output(void *privData, const char *file, int line,
 int jim_command(command_context_t *context, char *line)
 {
 	int retval=ERROR_OK;
+	/* FIX!!!! in reality there is only one cmd_ctx handler, but consider
+	what might happen here if there are multiple handlers w/reentrant callback
+	fn's... shudder!  */
 	active_cmd_ctx=context;
 	int retcode=Jim_Eval(interp, line);
-	active_cmd_ctx=NULL;
 	
 	const char *result;
 	int reslen;

src/target/Makefile.am

@@ -34,5 +34,5 @@ nobase_dist_pkglib_DATA = xscale/debug_handler.bin event/at91eb40a_reset.script
 	interface/calao-usb-a9260.cfg target/at91sam9260minimal.cfg  event/lpc2148_reset.script \
 	interface/chameleon.cfg interface/at91rm9200.cfg interface/jlink.cfg interface/arm-usb-ocd.cfg \
 	interface/signalyzer.cfg event/eir-sam7se512_reset.script target/eir-sam7se512.cfg \
-	event/hammer_reset.script interface/flyswatter.cfg target/hammer.cfg target/mx31.cfg
+	event/hammer_reset.script interface/flyswatter.cfg target/hammer.cfg target/mx31.cfg target/at91eb40a.tcl
 

src/target/target/at91eb40a.tcl

+#Script for AT91EB40a
+
+#Atmel ties SRST & TRST together, at which point it makes
+#no sense to use TRST, but use TMS instead.
+#
+#The annoying thing with tying SRST & TRST together is that
+#there is no way to halt the CPU *before and during* the
+#SRST reset, which means that the CPU will run a number
+#of cycles before it can be halted(as much as milliseconds).
+openocd {reset_config srst_only srst_pulls_trst}
+ 
+#jtag scan chain
+#format L IRC IRCM IDCODE (Length, IR Capture, IR Capture Mask, IDCODE)
+openocd {jtag_device 4 0x1 0xf 0xe}
+
+#target configuration
+openocd {target arm7tdmi little 0 arm7tdmi-s_r4}
+
+# speed up memory downloads
+openocd {arm7 fast_memory_access enable}
+openocd {arm7_9 dcc_downloads enable}
+
+# OpenOCD does not have a flash driver for for AT91FR40162S 
+openocd {target_script 0 reset event/at91eb40a_reset.script}
+
+#flash driver
+openocd {flash bank ecosflash 0x01000000 0x200000 2 2 0 ecos/at91eb40a.elf}
+
+# required for usable performance. Used for lots of
+# other things than flash programming.
+openocd {working_area 0 0x00000000 0x20000 nobackup}
+
+#force hardware values - we're running out of flash more
+#often than not. The user can disable this in his
+#subsequent config script.
+openocd {arm7_9 force_hw_bkpts enable}
+
+set reset_count 0
+
+proc target_reset_0 {} {
+	global reset_count
+	# Reset script for AT91EB40a
+	openocd {reg cpsr 0x000000D3} 		
+	openocd {mww 0xFFE00020 0x1}
+	openocd {mww 0xFFE00024 0x00000000}  
+	openocd {mww 0xFFE00000 0x01002539} 
+	openocd {mww 0xFFFFF124 0xFFFFFFFF}  
+	openocd {mww 0xffff0010 0x100}
+	openocd {mww 0xffff0034 0x100}
+	set reset_count [expr $reset_count+1]
+	puts "Testing reset $reset_count !"
+}