Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More improvements on multi-target connects |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ba53abc38996f7ed04cb7d43db6340fa |
| User & Date: | bernd 2019-10-15 21:00:08 |
Context
|
2019-10-16
| ||
| 19:34 | NAT traversal enabler for multiple connections — interface is very ugly, needs fixing\! check-in: a2d9057ebf user: bernd tags: trunk | |
|
2019-10-15
| ||
| 21:00 | More improvements on multi-target connects check-in: ba53abc389 user: bernd tags: trunk | |
| 20:50 | More improvements on multi-target connects check-in: ac0c29a5d7 user: bernd tags: trunk | |
Changes
Changes to cmd.fs.
563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 |
THEN ;
: send-cmd ( addr u dest -- size ) n64-swap { buf# }
+send-cmd dest-addr 64@ 64>r set-dest
cmd( <info> ." send: " outflag .dest-addr dup buf# net2o:see <default> cr )
max-size^2 1+ 0 DO
buf# min-size I lshift u<= IF
I outflag @ stateless# and IF send0-xt ?punch-cmds
ELSE
send-reply >r over buf# r@ 2! r> send-xt
THEN
min-size I lshift UNLOOP
64r> dest-addr 64! EXIT THEN
LOOP 64r> dest-addr 64! true !!commands!! ;
|
| > |
563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 |
THEN ;
: send-cmd ( addr u dest -- size ) n64-swap { buf# }
+send-cmd dest-addr 64@ 64>r set-dest
cmd( <info> ." send: " outflag .dest-addr dup buf# net2o:see <default> cr )
max-size^2 1+ 0 DO
buf# min-size I lshift u<= IF
I outflag @ stateless# and IF
o IF send0-xt ?punch-cmds ELSE send-cX THEN
ELSE
send-reply >r over buf# r@ 2! r> send-xt
THEN
min-size I lshift UNLOOP
64r> dest-addr 64! EXIT THEN
LOOP 64r> dest-addr 64! true !!commands!! ;
|