Duane Ellis: "target as an [tcl] object" feature.

[fw/openocd] / src / target / target / at91eb40a.cfg

diff --git a/src/target/target/at91eb40a.cfg b/src/target/target/at91eb40a.cfg
index f3fa08fed1427cac4255ba3417124a19c0722352..b49150a78571aed533f09e1491c3b0b70da21b19 100644 (file)
--- a/src/target/target/at91eb40a.cfg
+++ b/src/target/target/at91eb40a.cfg
@@ -32,7 +32,7 @@ working_area 0 0x00000000 0x20000 nobackup
 global reset_count
 set reset_count 0
 
-proc target_0_post_reset {} {
+[new_target_name] configure -event old-post_reset {
        puts "Running reset init script for AT91EB40A"
        global reset_count
        # Reset script for AT91EB40a
@@ -46,10 +46,9 @@ proc target_0_post_reset {} {
        set reset_count [expr $reset_count+1]
        echo "Testing reset $reset_count !"
        
-       asdfs
 }
 
-proc target_0_pre_reset {} {
+[new_target_name] configure -event old-pre_reset {
        global reset_count
        set reset_count [expr $reset_count+1]
        echo "Testing pre_reset $reset_count !"