diff options
author | Antonio Borneo <borneo.antonio@gmail.com> | 2010-11-08 17:23:49 +0800 |
---|---|---|
committer | Øyvind Harboe <oyvind.harboe@zylin.com> | 2010-11-09 08:12:51 +0100 |
commit | e7b2958229c7e0d7e98e130764aa50d1ca9017d3 (patch) | |
tree | 93503ebca6e20ffe9ca968680b834ab75d809224 /tcl/chip/atmel/at91/aic.tcl | |
parent | 4747af362de04b508c91df4004d2aed5579c8a1c (diff) | |
download | openocd+libswd-e7b2958229c7e0d7e98e130764aa50d1ca9017d3.tar.gz openocd+libswd-e7b2958229c7e0d7e98e130764aa50d1ca9017d3.tar.bz2 openocd+libswd-e7b2958229c7e0d7e98e130764aa50d1ca9017d3.tar.xz openocd+libswd-e7b2958229c7e0d7e98e130764aa50d1ca9017d3.zip |
TCL scripts: replace "puts" with "echo"
Signed-off-by: Antonio Borneo <borneo.antonio@gmail.com>
Diffstat (limited to 'tcl/chip/atmel/at91/aic.tcl')
-rw-r--r-- | tcl/chip/atmel/at91/aic.tcl | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/tcl/chip/atmel/at91/aic.tcl b/tcl/chip/atmel/at91/aic.tcl index 366be6d0..6dae36ad 100644 --- a/tcl/chip/atmel/at91/aic.tcl +++ b/tcl/chip/atmel/at91/aic.tcl @@ -57,33 +57,33 @@ proc show_AIC { } { if [catch { mem2array aaa 32 $AIC_SMR [expr 32 * 4] } msg ] { error [format "%s (%s)" $msg AIC_SMR] } - puts "AIC_SMR: Mode & Type" + echo "AIC_SMR: Mode & Type" global AT91C_ID for { set x 0 } { $x < 32 } { } { - puts -nonewline " " - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n " " + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)] + echo [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)] incr x } global AIC_SVR if [catch { mem2array aaa 32 $AIC_SVR [expr 32 * 4] } msg ] { error [format "%s (%s)" $msg AIC_SVR] } - puts "AIC_SVR: Vectors" + echo "AIC_SVR: Vectors" for { set x 0 } { $x < 32 } { } { - puts -nonewline " " - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n " " + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)] + echo [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)] incr x } |