Verified Commit 86691f5f authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Sendto output on pings

parent 952706fe

ip.fs

+5 −3
Original line number Diff line number Diff line
@@ -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 ;