Commit 3e4e6975 authored by Bernd Paysan's avatar Bernd Paysan

Fixes for problems found today

parent f82cc8f9
......@@ -167,7 +167,7 @@ Forward insert-addr ( o -- )
announced 64@ 64-0= ?EXIT
announced? 0= IF
init-my0key init-myekey
my-addr[] ['] +my-0key $[]o-map
my-addr[] [: .+my-0key ;] $[]o-map
announce-me THEN ;
: renat-all ( -- ) beacon( ." remove all beacons" cr )
......
......@@ -143,7 +143,7 @@ scope{ n2o
}scope
: next-cmd ( -- )
?nextarg 0= IF n2o:help EXIT THEN
?nextarg 0= IF arg-o @ cmd-args^ = IF n2o:help THEN EXIT THEN
2dup ['] n2o >body search-wordlist
IF nip nip execute ELSE
[: <err> ." n2o command not found: " mark-start type mark-end
......
......@@ -162,6 +162,7 @@ event: :>kill ( task -- )
2 Constant kill-seconds#
kill-seconds# 1+ #1000000000 um* 2constant kill-timeout# \ 3s
#5000000. 2Constant kill-wait2# \ 5ms wait for threads to terminate
: net2o-kills ( -- )
net2o-tasks get-stack kills ! net2o-tasks $free
......@@ -173,7 +174,8 @@ kill-seconds# 1+ #1000000000 um* 2constant kill-timeout# \ 3s
timeout ntime d- 1000000000 fm/mod nip
dup r> <> IF '.' emit THEN >r
REPEAT
r> kill-seconds# <> IF cr THEN 2drop ;
r> kill-seconds# <> IF cr THEN 2drop
kill-wait2# stop-dns ;
\ packet&header size
......
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