Commit 65987ecd authored by bernd's avatar bernd

Try debugging when transfer is stuck

parent 1caf1a53
......@@ -179,13 +179,7 @@ previous
net2o-code
expect-reply
log .time s" Download test 4a" $, type cr endwith
-1. 0 limit!
-1. 1 limit!
-1. 2 limit!
-1. 3 limit!
-1. 4 limit!
-1. 5 limit!
-1. 6 limit!
7 0 DO -1. I limit! LOOP
n2o:done
end-code| n2o:close-all ['] .time $err ;
......
......@@ -1061,11 +1061,12 @@ cell 8 = [IF] 6 [ELSE] 5 [THEN] Constant cell>>
\ keepalive
also net2o-base
: transfer-keepalive? ( -- ) o to connection
timeout( ." transfer keepalive " expected@ hex. hex.
: .keepalive ( -- ) ." transfer keepalive " expected@ hex. hex.
data-rmap @ >o dest-tail @ hex. dest-back @ hex. o>
F cr )
rewind-transfer 0= ?EXIT
F cr ;
: transfer-keepalive? ( -- ) o to connection
timeout( .keepalive )
rewind-transfer 0= IF .keepalive EXIT THEN
expected@ tuck u>= and IF net2o-code
ack <req +expected req> endwith IF slurp THEN end-code EXIT THEN
net2o-code expect-reply
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment