Commit a1b48b31 authored by Bernd Paysan's avatar Bernd Paysan

Experiment with flow label

parent 0789eaa9
......@@ -121,7 +121,7 @@ User dest-0key< \ pointer to obtained dest-0key
host:key @ dest-0key< !
host:portv6 w@ sockaddr1 port be-w!
host:ipv6 sockaddr1 sin6_addr ip6!
rng32 $7FFFF and sockaddr1 sin6_flowinfo be-l!
flowlabel( rng32 $7FFFF and sockaddr1 sin6_flowinfo be-l! )
host:route $@ !temp-addr ;
: addr>4sock ( -- )
......
......@@ -84,6 +84,7 @@ debug: deprecated( \ deprecated stuff
debug: unhandled( \ unhandled commands
debug: syncfile( \ synchronous file operations
debug: newvault( \ new style vault keys
debug: flowlabel( \ experiment with flow labels
-db profile( \ don't profile by default )
+db ipv6( \ ipv6 should be on by default )
......
......@@ -130,7 +130,7 @@ Forward .addr$
: sock-rest ( sockaddr -- addr u ) >r
AF_INET6 r@ family w!
\ 0 r@ sin6_flowinfo l!
flowlabel( )else( 0 r@ sin6_flowinfo l! )
0 r@ sin6_scope_id l!
r> sockaddr_in6 ;
......
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