Skip to content

net2o
net2o
Verified Commit afd68c14 authored by Bernd Paysan's avatar Bernd Paysan
Browse files
Options

Fix problem with insert-address

parent 346bb728
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 3 deletions
socks.fs
View file @ afd68c14
...@@ -136,8 +136,8 @@ $00000000 Value droprate# ...@@ -136,8 +136,8 @@ $00000000 Value droprate#
get-info dup >r info@ sendto get-info dup >r info@ sendto
r> freeaddrinfo ?ior ; r> freeaddrinfo ?ior ;
0 Value lastaddr# UValue lastaddr#
Variable lastn2oaddr User lastn2oaddr
: insert-address ( addr u -- net2o-addr ) ?<ipv6 : insert-address ( addr u -- net2o-addr ) ?<ipv6
address( ." Insert address " 2dup .address cr ) address( ." Insert address " 2dup .address cr )
...@@ -146,10 +146,11 @@ Variable lastn2oaddr ...@@ -146,10 +146,11 @@ Variable lastn2oaddr
THEN THEN
2dup routes# #key dup -1 = IF 2dup routes# #key dup -1 = IF
drop s" " 2over routes# #! drop s" " 2over routes# #!
routes# #key dup lastn2oaddr ! routes# #key
ELSE ELSE
nip nip nip nip
THEN THEN
dup lastn2oaddr !
last# to lastaddr# ; last# to lastaddr# ;
: dns>string ( addr u port hint -- info net2o-addr u ) : dns>string ( addr u port hint -- info net2o-addr u )
......
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