From: Øyvind Harboe Date: Mon, 11 Jan 2010 11:54:49 +0000 (+0100) Subject: reset: better error messages X-Git-Tag: v0.4.0-rc2~101 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=fb71a0a0dddf68fa3f266aab5e35409773acc567;p=openocd reset: better error messages Use correct tcl syntax to throw exception. the syntax is "return -code error" not "return -error" Signed-off-by: Øyvind Harboe --- diff --git a/src/target/startup.tcl b/src/target/startup.tcl index b597b84d..d68417e8 100644 --- a/src/target/startup.tcl +++ b/src/target/startup.tcl @@ -41,7 +41,7 @@ proc ocd_process_reset_inner { MODE } { set halt 0; } if { $halt < 0 } { - return -error "Invalid mode: $MODE, must be one of: halt, init, or run"; + return -code error "Invalid mode: $MODE, must be one of: halt, init, or run"; } # Target event handlers *might* change which TAPs are enabled @@ -119,7 +119,7 @@ proc ocd_process_reset_inner { MODE } { set s [$t curstate] if { 0 != [string compare $s "halted" ] } { - return -error [format "TARGET: %s - Not halted" $t] + return -code error [format "TARGET: %s - Not halted" $t] } } }