Check-in [69d886902f]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Experiment with flow label
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 69d886902f82eb878acbb876ab227948c991412f
User & Date: bernd 2019-08-30 18:53:29
Context
2019-08-30
21:57
Fix disabling IPv6 check-in: 6ed16db24a user: bernd tags: trunk
18:53
Experiment with flow label check-in: 69d886902f user: bernd tags: trunk
18:49
Experiment with flow label check-in: 78b0625b9a user: bernd tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to addr.fs.

   117    117   User dest-0key> \ pointer to dest-0key
   118    118   User dest-0key< \ pointer to obtained dest-0key
   119    119   
   120    120   : addr>6sock ( -- )
   121    121       host:key @ dest-0key< !
   122    122       host:portv6 w@ sockaddr1 port be-w!
   123    123       host:ipv6 sockaddr1 sin6_addr ip6!
   124         -    rng32 $7FFFF and sockaddr1 sin6_flowinfo be-l!
          124  +    flowlabel( rng32 $7FFFF and sockaddr1 sin6_flowinfo be-l! )
   125    125       host:route $@ !temp-addr ;
   126    126   
   127    127   : addr>4sock ( -- )
   128    128       host:key @ dest-0key< !
   129    129       host:portv4 w@ sockaddr1 port be-w!
   130    130       host:ipv4 be-ul@ sockaddr1 ipv4!
   131    131       host:route $@ !temp-addr ;

Changes to debugging.fs.

    80     80   debug: slurp( \ debug slurp&spit
    81     81   debug: wallet( \ debug wallet stuff
    82     82   debug: qr( \ qr code stuff
    83     83   debug: deprecated( \ deprecated stuff
    84     84   debug: unhandled( \ unhandled commands
    85     85   debug: syncfile( \ synchronous file operations
    86     86   debug: newvault( \ new style vault keys
           87  +debug: flowlabel( \ experiment with flow labels
    87     88   
    88     89   -db profile( \ don't profile by default )
    89     90   +db ipv6( \ ipv6 should be on by default )
    90     91   +db ipv4( \ ipv4 should be on by default )
    91     92   +db ipv64( \ ipv6 over 4
    92     93   -db newvault( \ new vault disabled for now )
    93     94   +db syncfile( \ disable async file operations for now )

Changes to ip.fs.

   126    126       >r        r@ sin6_addr 12 + be-l!
   127    127       0         r@ sin6_addr 8 + l!
   128    128       0         r@ sin6_addr 4 + l!
   129    129       $0064ff9b r> sin6_addr be-l! ;
   130    130   
   131    131   : sock-rest ( sockaddr -- addr u ) >r
   132    132       AF_INET6 r@ family w!
   133         -\   0        r@ sin6_flowinfo l!
          133  +    flowlabel( )else( 0        r@ sin6_flowinfo l! )
   134    134       0        r@ sin6_scope_id l!
   135    135       r> sockaddr_in6 ;
   136    136   
   137    137   : sock-rest4 ( sockaddr -- addr u ) >r
   138    138       AF_INET r@ family w!
   139    139       r> sockaddr_in4 ;
   140    140