summaryrefslogtreecommitdiff
path: root/src/helper
diff options
context:
space:
mode:
authoroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>2008-10-14 07:30:45 +0000
committeroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>2008-10-14 07:30:45 +0000
commit08058e72d9928441a3c52f2107582bd7d373e0f6 (patch)
treea83af913b2cddb776a779869bb62b7a0df90607e /src/helper
parent1cf14b384ea23bdda41285644ebebb5cee05dcea (diff)
downloadopenocd_libswd-08058e72d9928441a3c52f2107582bd7d373e0f6.tar.gz
openocd_libswd-08058e72d9928441a3c52f2107582bd7d373e0f6.tar.bz2
openocd_libswd-08058e72d9928441a3c52f2107582bd7d373e0f6.tar.xz
openocd_libswd-08058e72d9928441a3c52f2107582bd7d373e0f6.zip
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
Diffstat (limited to 'src/helper')
-rw-r--r--src/helper/startup.tcl10
1 files changed, 3 insertions, 7 deletions
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
}
}