From 08058e72d9928441a3c52f2107582bd7d373e0f6 Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
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