Verified Commit 0789eaa9 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Experiment with flow label

parent 645e15c9

addr.fs

+1 −0
Original line number Diff line number Diff line
@@ -121,6 +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!

    host:route $@ !temp-addr ;



: addr>4sock ( -- )

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!

\   0        r@ sin6_flowinfo l!

    0        r@ sin6_scope_id l!

    r> sockaddr_in6 ;