diff options
| author | zwelch <zwelch@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2009-05-27 06:44:43 +0000 |
|---|---|---|
| committer | zwelch <zwelch@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2009-05-27 06:44:43 +0000 |
| commit | 140d6c8e7948710a764965075bfaa700efd09802 (patch) | |
| tree | ccb281820c12961eb036d2a00040164d114ad057 /src/tcl/test | |
| parent | 7c0e823d0a57df99adc5b1b7975406bfd9e0d9fb (diff) | |
| download | openocd_libswd-140d6c8e7948710a764965075bfaa700efd09802.tar.gz openocd_libswd-140d6c8e7948710a764965075bfaa700efd09802.tar.bz2 openocd_libswd-140d6c8e7948710a764965075bfaa700efd09802.tar.xz openocd_libswd-140d6c8e7948710a764965075bfaa700efd09802.zip | |
Move TCL script files -- Step 1 of 2:
- Move src/target/{interface,target,board,test}/ into src/tcl/
- Remove existing rules in src/Makefile.am and src/target/Makefile.am.
- Add Makefile.am handling of *.cfg and *.tcl files in top Makefile.am:
- Add dist-hook to include such files under src/tcl in the distribution.
- Add install-data-hook to install contents of '$(top_srcdir)/src/tcl/'.
- Add uninstall-hook to remove the installed script files.
- Change paths to (un)install script files in '$(pkgdatadir)/scripts'.
git-svn-id: svn://svn.berlios.de/openocd/trunk@1918 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'src/tcl/test')
| -rw-r--r-- | src/tcl/test/selftest.cfg | 17 | ||||
| -rw-r--r-- | src/tcl/test/syntax1.cfg | 29 |
2 files changed, 46 insertions, 0 deletions
diff --git a/src/tcl/test/selftest.cfg b/src/tcl/test/selftest.cfg new file mode 100644 index 00000000..d1a00aed --- /dev/null +++ b/src/tcl/test/selftest.cfg @@ -0,0 +1,17 @@ +
+add_help_text selftest "run selftest using working ram <tmpfile> <address> <size>"
+
+proc selftest {tmpfile address size} {
+
+ for {set i 0} {$i < $size } {set i [expr $i+4]} {
+ mww [expr $address+$i] $i
+ }
+
+ for {set i 0} {$i < 10 } {set i [expr $i+1]} {
+ puts "Test iteration $i"
+ dump_image $tmpfile $address $size
+ verify_image $tmpfile $address bin
+ load_image $tmpfile $address bin
+ }
+
+}
\ No newline at end of file diff --git a/src/tcl/test/syntax1.cfg b/src/tcl/test/syntax1.cfg new file mode 100644 index 00000000..fb88d5ae --- /dev/null +++ b/src/tcl/test/syntax1.cfg @@ -0,0 +1,29 @@ +jtag_nsrst_delay 200 +jtag_ntrst_delay 200 + +#use combined on interfaces or targets that can't set TRST/SRST separately +reset_config trst_and_srst srst_pulls_trst + +#LPCs need reset pulled while RTCK is low. 0 to activate JTAG, power-on reset is not enough +jtag_reset 1 1 +jtag_reset 0 0 + +#jtag scan chain +#format L IRC IRCM IDCODE (Length, IR Capture, IR Capture Mask, IDCODE) +jtag newtap lpc2148 one -irlen 4 -ircapture 0x1 -irmask 0xf -expected-id 0x4f1f0f0f + +#target configuration +#daemon_startup reset + +set _TARGETNAME [format "%s.cpu" lpc2148] +target create lpc2148.cpu arm7tdmi -endian little -work-area-size 0x4000 -work-area-phys 0x40000000 -work-area-virt 0 -work-area-backup 0 + +$_TARGETNAME configure -event reset-init { +soft_reset_halt +mvb 0xE01FC040 0x01 +} + + + +flash bank lpc2000 0x0 0x7d000 0 0 0 lpc2000_v2 14765 + |