increase jtaguart speed using large transfers in openocd
This commit is contained in:
parent
c24bbedb68
commit
5b524485e8
|
@ -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]
|
||||||
|
|
Loading…
Reference in New Issue