Verified Commit 6126ab7a authored by Bernd Paysan's avatar Bernd Paysan
Browse files

NAT debugging

parent d93007a6

ip.fs

+1 −1
Original line number Diff line number Diff line
@@ -299,7 +299,7 @@ Forward !my-addr ( -- ) 
    sockaddr1 ipv6( sock-rest )else( sock-rest4 ) 2dup try-ip ;



: ping-addr1 ( -- )

    check-addr1 0= IF  nat( ticks .tick ." don't ping: " 2dup .address cr )

    check-addr1 0= IF  nat( ticks .ticks ." don't ping: " 2dup .address cr )

	2drop  EXIT  THEN

    nat( ticks .ticks ."  ping: " 2dup .address cr )

    2>r net2o-sock ">" 0 2r> sendto drop ;