Verified Commit 0493c464 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Fix xlat464 initialization problem

parent f3da8e00

ip.fs

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

socks.fs

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