Commit 0493c464 authored by Bernd Paysan's avatar Bernd Paysan

Fix xlat464 initialization problem

parent f3da8e00
......@@ -85,7 +85,7 @@ User ip6:#
: .ip6a ( addr len -- addr' len' )
2dup fake-ip4 12 string-prefix? IF 12 /string .ip4a EXIT THEN
-1 ip6:# !
'[' 8 0 DO ip6:# @ 2 < IF emit ELSE drop THEN .ip6w ':' LOOP
'[' over 2/ 0 DO ip6:# @ 2 < IF emit ELSE drop THEN .ip6w ':' LOOP
drop ." ]" ;
: .ip6 ( addr len -- )
.ip6a .port .net2o ;
......
......@@ -179,7 +179,7 @@ Variable net2o-ipv4 "ipv4.net2o.de" net2o-ipv4 $!
swap sin6_addr dup $C nat64-ip4 over str= IF
drop \ normal nat64-ip4 prefix
ELSE
[: ." unusual xlat464 prefix: " dup $C .ip6a cr ;] do-debug
[: ." unusual xlat464 prefix: " dup $C .ip6a 2drop cr ;] do-debug
nat64-ip4 $C move \ update nat64-ip4 prefix
THEN
ELSE nip THEN ;
......
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