summaryrefslogtreecommitdiff
path: root/tool/download.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tool/download.tcl')
-rwxr-xr-xtool/download.tcl6
1 files changed, 4 insertions, 2 deletions
diff --git a/tool/download.tcl b/tool/download.tcl
index c0dca55..96fc03b 100755
--- a/tool/download.tcl
+++ b/tool/download.tcl
@@ -14,11 +14,13 @@ if {$::argc > 1} {
14 14
15spawn tool/connect 15spawn tool/connect
16 16
17send "@[format %x [expr $core * 32768 / $wordsperline]]\n" 17set atline "@[format %x [expr $core * 32768 / $wordsperline]]"
18send "$atline\n"
19expect -ex "$atline\r\n"
18 20
19while {[gets stdin line] >= 0} { 21while {[gets stdin line] >= 0} {
20 send "$line\n" 22 send "$line\n"
21 expect -ex "$line\n" 23 expect -ex "$line\r\n"
22} 24}
23 25
24# It's likely we ended with a very large zero-memory operation. We want to see 26# It's likely we ended with a very large zero-memory operation. We want to see