increase jtaguart speed using large transfers in openocd

This commit is contained in:
Thomas Watson 2022-09-17 17:56:56 -05:00
parent c24bbedb68
commit 5b524485e8
1 changed files with 3 additions and 6 deletions

View File

@ -139,12 +139,8 @@ proc jtagstream_drain {tap tx chunk_rx max_rx} {
proc jtagstream_rxtx {tap client is_poll} { proc jtagstream_rxtx {tap client is_poll} {
if {![$client eof]} { if {![$client eof]} {
if {!$is_poll} { set tx [$client read 512]
set tx [$client read 1] set rx [jtagstream_drain $tap $tx 512 4096]
} else {
set tx ""
}
set rx [jtagstream_drain $tap $tx 64 4096]
if {[string length $rx]} { if {[string length $rx]} {
#echo [string length $rx] #echo [string length $rx]
$client puts -nonewline $rx $client puts -nonewline $rx
@ -162,6 +158,7 @@ proc jtagstream_rxtx {tap client is_poll} {
proc jtagstream_client {tap sock} { proc jtagstream_client {tap sock} {
set client [$sock accept] set client [$sock accept]
fconfigure $client -buffering none fconfigure $client -buffering none
fconfigure $client -blocking 0
$client readable [list jtagstream_rxtx $tap $client 0] $client readable [list jtagstream_rxtx $tap $client 0]
$client onexception [list $client close] $client onexception [list $client close]
after 1 [list jtagstream_rxtx $tap $client 1] after 1 [list jtagstream_rxtx $tap $client 1]