From 08058e72d9928441a3c52f2107582bd7d373e0f6 Mon Sep 17 00:00:00 2001 From: oharboe Date: Tue, 14 Oct 2008 07:30:45 +0000 Subject: reset cleanup. Remove obsolete events that are not needed for compatibility. git-svn-id: svn://svn.berlios.de/openocd/trunk@1053 b42882b7-edfa-0310-969c-e2dbd0fdcd60 --- src/helper/startup.tcl | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'src/helper') diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl index a8006702..f683c924 100644 --- a/src/helper/startup.tcl +++ b/src/helper/startup.tcl @@ -119,17 +119,17 @@ proc target_script {target_num eventname scriptname} { set tname [target number $target_num] if { 0 == [string compare $eventname "reset"] } { - $tname configure -event old-post_reset "script $scriptname" + $tname configure -event reset-init "script $scriptname" return } if { 0 == [string compare $eventname "post_reset"] } { - $tname configure -event old-post_reset "script $scriptname" + $tname configure -event reset-init "script $scriptname" return } if { 0 == [string compare $eventname "pre_reset"] } { - $tname configure -event old-pre_reset "script $scriptname" + $tname configure -event reset-start "script $scriptname" return } @@ -212,9 +212,6 @@ proc ocd_process_reset { MODE } { } foreach t [ target names ] { - # For compatiblity with 'old scripts' - $t invoke-event old-pre_reset - # New event script. $t invoke-event reset-start } @@ -271,7 +268,6 @@ proc ocd_process_reset { MODE } { set err [catch "$t arp_waitstate halted 5000"] # Did it halt? if { $err == 0 } { - $t invoke-event old-post_reset $t invoke-event reset-init } } -- cgit v1.2.3