summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorH. Peter Anvin <hpa@zytor.com>2011-06-07 06:07:29 (GMT)
committerH. Peter Anvin <hpa@zytor.com>2011-06-07 06:07:29 (GMT)
commitd84c0291b800421756cb885e08bdddc73cdb066e (patch)
tree49d860ad541b5181822233ae41daf2908344e1e2
parentf3b69de7fe8b1634bb160c7f4646d7033d84e554 (diff)
downloadde1flash-d84c0291b800421756cb885e08bdddc73cdb066e.zip
de1flash-d84c0291b800421756cb885e08bdddc73cdb066e.tar.gz
de1flash-d84c0291b800421756cb885e08bdddc73cdb066e.tar.bz2
de1flash-d84c0291b800421756cb885e08bdddc73cdb066e.tar.xz
de1flash.tcl: fix stray $ in lappend
Arguments to set, append, lappend etc don't take $...
-rw-r--r--de1flash.tcl13
1 files changed, 8 insertions, 5 deletions
diff --git a/de1flash.tcl b/de1flash.tcl
index feb983d..0936d00 100644
--- a/de1flash.tcl
+++ b/de1flash.tcl
@@ -238,10 +238,14 @@ proc fl_parse_files { mode files } {
if { [string equal $address ""] } {
set address $last_address
}
- if { [string match $len ""] } {
+ if { [string equal $len ""] } {
switch $mode {
- read { set len [expr $fl_device_size - $address] }
- write {
+ read
+ {
+ set len [expr $fl_device_size - $address]
+ }
+ write
+ {
if { [string equal $filename ""] } {
set len [expr $fl_device_size - $address]
} else {
@@ -250,8 +254,7 @@ proc fl_parse_files { mode files } {
}
}
}
-
- lappend $file_list [list $filename $address $len]
+ lappend file_list [list $filename $address $len]
}
return $file_list