From e7b2958229c7e0d7e98e130764aa50d1ca9017d3 Mon Sep 17 00:00:00 2001 From: Antonio Borneo Date: Mon, 8 Nov 2010 17:23:49 +0800 Subject: TCL scripts: replace "puts" with "echo" Signed-off-by: Antonio Borneo --- tcl/chip/st/spear/quirk_no_srst.tcl | 4 ++-- tcl/chip/st/spear/spear3xx_ddr.tcl | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'tcl/chip/st') diff --git a/tcl/chip/st/spear/quirk_no_srst.tcl b/tcl/chip/st/spear/quirk_no_srst.tcl index df227642..fd02d07c 100644 --- a/tcl/chip/st/spear/quirk_no_srst.tcl +++ b/tcl/chip/st/spear/quirk_no_srst.tcl @@ -37,9 +37,9 @@ proc sp_reset_deassert_post {} { set bar(3) \\ poll on - puts "====> Press reset button on the board <====" + echo "====> Press reset button on the board <====" for {set i 0} { [sp_is_halted] == 0 } { set i [expr $i + 1]} { - puts -nonewline "$bar([expr $i & 3])\r" + echo -n "$bar([expr $i & 3])\r" sleep 200 } diff --git a/tcl/chip/st/spear/spear3xx_ddr.tcl b/tcl/chip/st/spear/spear3xx_ddr.tcl index eb1c4b02..a804cdc4 100644 --- a/tcl/chip/st/spear/spear3xx_ddr.tcl +++ b/tcl/chip/st/spear/spear3xx_ddr.tcl @@ -23,11 +23,11 @@ proc sp3xx_ddr_init {ddr_type} { mww $ddr_size 0x87654321 mww 0x00000000 0x12345678 if {[expr [mrw 0x00000000] == 0x12345678 && [mrw $ddr_size] == 0x87654321]} { - puts [format \ + echo [format \ "Double chip DDR memory. Total memory size 0x%08x byte" \ [expr 2 * $ddr_size]] } else { - puts [format \ + echo [format \ "Single chip DDR memory. Memory size 0x%08x byte" \ $ddr_size] } -- cgit v1.2.3