Sendto output on pings

parent 952706fe
......@@ -322,9 +322,11 @@ Forward !my-addr ( -- )
2drop EXIT THEN
nat( ticks .ticks ." ping: " 2dup .address cr )
2>r net2o-sock
[: 64#0 { 64^ x } '>' emit code-map .mapc:dest-vaddr x le-64!
x 8 type punch# $10 type ;] $tmp
0 2r> sendto drop ;
[: { | x[ 8 ] } '>' emit code-map .mapc:dest-vaddr x[ le-64!
x[ 8 type punch# $10 type ;] $tmp
0 2r@ sendto
sendto( ." send to: " 2r@ .address space dup . cr )
rdrop rdrop drop ;
: pathc+ ( addr u -- addr' u' )
BEGIN dup WHILE over c@ $80 < >r 1 /string r> UNTIL THEN ;
......
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