Verified Commit a1b48b31 authored Aug 30, 2019 by Bernd Paysan

Experiment with flow label

parent 0789eaa9

addr.fs

+1 −1

Original line number	Diff line number	Diff line
		@@ -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 ( -- )

debugging.fs

+1 −0

Original line number	Diff line number	Diff line
		@@ -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 )

ip.fs

+1 −1

Original line number	Diff line number	Diff line
		@@ -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 ;