Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix xlat464 initialization problem |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
16ee7bd49eef71527c8152d104f616d1 |
User & Date: | bernd 2020-02-02 16:02:48.383 |
Context
2020-02-03
| ||
17:06 | minimum blocksize check-in: e4211e87dc user: bernd tags: trunk | |
2020-02-02
| ||
16:02 | Fix xlat464 initialization problem check-in: 16ee7bd49e user: bernd tags: trunk | |
2020-01-31
| ||
23:24 | More fixes check-in: 1a894f33cb user: bernd tags: trunk | |
Changes
Changes to ip.fs.
︙ | ︙ | |||
81 82 83 84 85 86 87 | : .ip6w ( addr len -- addr' len' ) over be-uw@ [: ?dup-IF 0 .r ip6:# off ELSE 1 ip6:# +! THEN ;] $10 base-execute 2 /string ; : .ip6a ( addr len -- addr' len' ) 2dup fake-ip4 12 string-prefix? IF 12 /string .ip4a EXIT THEN -1 ip6:# ! | | | 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 | : .ip6w ( addr len -- addr' len' ) over be-uw@ [: ?dup-IF 0 .r ip6:# off ELSE 1 ip6:# +! THEN ;] $10 base-execute 2 /string ; : .ip6a ( addr len -- addr' len' ) 2dup fake-ip4 12 string-prefix? IF 12 /string .ip4a EXIT THEN -1 ip6:# ! '[' over 2/ 0 DO ip6:# @ 2 < IF emit ELSE drop THEN .ip6w ':' LOOP drop ." ]" ; : .ip6 ( addr len -- ) .ip6a .port .net2o ; : .ip64 ( addr len -- ) over $10 ip6::0 over str= IF 16 /string ELSE .ip6a THEN over 4 ip6::0 over str= IF 4 /string ELSE .ip4a THEN |
︙ | ︙ |
Changes to socks.fs.
︙ | ︙ | |||
175 176 177 178 179 180 181 | : dns64? ( -- flag ) net2o-ipv4 $@ net2o-port get-info info@ sockaddr_in6 = over family w@ AF_INET6 = and dup IF [: ." xlat464 discovered" cr ;] do-debug swap sin6_addr dup $C nat64-ip4 over str= IF drop \ normal nat64-ip4 prefix ELSE | | | 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 | : dns64? ( -- flag ) net2o-ipv4 $@ net2o-port get-info info@ sockaddr_in6 = over family w@ AF_INET6 = and dup IF [: ." xlat464 discovered" cr ;] do-debug swap sin6_addr dup $C nat64-ip4 over str= IF drop \ normal nat64-ip4 prefix ELSE [: ." unusual xlat464 prefix: " dup $C .ip6a 2drop cr ;] do-debug nat64-ip4 $C move \ update nat64-ip4 prefix THEN ELSE nip THEN ; \ route an incoming packet : >rpath-len ( rpath -- rpath len ) |
︙ | ︙ |