TCL scripts: replace "puts" with "echo"
Signed-off-by: Antonio Borneo <borneo.antonio@gmail.com>
This commit is contained in:
committed by
Øyvind Harboe
parent
4747af362d
commit
e7b2958229
@@ -85,11 +85,11 @@ proc production_info {} {
|
||||
# Progress messages are output via puts
|
||||
proc production {firmwarefile serialnumber} {
|
||||
if {[string length $serialnumber]!=12} {
|
||||
puts "Invalid serial number"
|
||||
echo "Invalid serial number"
|
||||
return
|
||||
}
|
||||
|
||||
puts "Power cycling target"
|
||||
echo "Power cycling target"
|
||||
power off
|
||||
sleep 3000
|
||||
power on
|
||||
@@ -99,10 +99,10 @@ proc production {firmwarefile serialnumber} {
|
||||
verify_image $firmwarefile 0x1000000 bin
|
||||
|
||||
# Big endian... weee!!!!
|
||||
puts "Setting MAC number to $serialnumber"
|
||||
echo "Setting MAC number to $serialnumber"
|
||||
flash fillw [expr 0x1030000-0x8] "0x[string range $serialnumber 2 3][string range $serialnumber 0 1]0000" 1
|
||||
flash fillw [expr 0x1030000-0x4] "0x[string range $serialnumber 10 11][string range $serialnumber 8 9][string range $serialnumber 6 7][string range $serialnumber 4 5]" 1
|
||||
puts "Production successful"
|
||||
echo "Production successful"
|
||||
}
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user