Sendto output on pings

86691f5f · Bernd Paysan · 952706fe · 86691f5f
Verified Commit 86691f5f authored Oct 21, 2019 by Bernd Paysan
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 3 deletions

ip.fs ip.fs +5 -3

No files found.
--- a/ip.fs
+++ b/ip.fs
@@ -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 ;