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/rtt.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/rtt.tcl')
| -rw-r--r-- | tcl/chip/atmel/at91/rtt.tcl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tcl/chip/atmel/at91/rtt.tcl b/tcl/chip/atmel/at91/rtt.tcl index 433cfe30..8be6a56b 100644 --- a/tcl/chip/atmel/at91/rtt.tcl +++ b/tcl/chip/atmel/at91/rtt.tcl @@ -18,16 +18,16 @@ proc show_RTTC_RTMR_helper { NAME ADDR VAL } { # Nasty hack, make this a float by tacking a .0 on the end # otherwise, jim makes the value an integer set f [expr $AT91C_SLOWOSC_FREQ.0 / $rtpres.0] - puts [format "\tPrescale value: 0x%04x (%5d) => %f Hz" $rtpres $rtpres $f] + echo [format "\tPrescale value: 0x%04x (%5d) => %f Hz" $rtpres $rtpres $f] if { $VAL & $BIT16 } { - puts "\tBit16 -> Alarm IRQ Enabled" + echo "\tBit16 -> Alarm IRQ Enabled" } else { - puts "\tBit16 -> Alarm IRQ Disabled" + echo "\tBit16 -> Alarm IRQ Disabled" } if { $VAL & $BIT17 } { - puts "\tBit17 -> RTC Inc IRQ Enabled" + echo "\tBit17 -> RTC Inc IRQ Enabled" } else { - puts "\tBit17 -> RTC Inc IRQ Disabled" + echo "\tBit17 -> RTC Inc IRQ Disabled" } # Bit 18 is write only. } @@ -35,14 +35,14 @@ proc show_RTTC_RTMR_helper { NAME ADDR VAL } { proc show_RTTC_RTSR_helper { NAME ADDR VAL } { global BIT0 BIT1 if { $VAL & $BIT0 } { - puts "\tBit0 -> ALARM PENDING" + echo "\tBit0 -> ALARM PENDING" } else { - puts "\tBit0 -> alarm not pending" + echo "\tBit0 -> alarm not pending" } if { $VAL & $BIT1 } { - puts "\tBit0 -> RTINC PENDING" + echo "\tBit0 -> RTINC PENDING" } else { - puts "\tBit0 -> rtinc not pending" + echo "\tBit0 -> rtinc not pending" } } |