small cleanup

parent 6f7ea02c
......@@ -91,8 +91,10 @@ init-keybuf
:noname defers alloc-code-bufs new-keytmp ; is alloc-code-bufs
\ :noname defers free-code-bufs ; is free-code-bufs
#60.000.000.000 d>64 64Value delta-mykey# \ new mykey every 0.6 seconds
#60.000.000.000 d>64 64Constant :01'# \ one minute
#1.000.000.000 d>64 64Constant 10"# \ ten second
:01'# 64Value delta-mykey# \ new mykey every 0.6 seconds
10"# 64Constant fuzzedtime# \ allow clients to be 10s off
: init-mykey ( -- )
ticks delta-mykey# 64+ last-mykey 64!
......@@ -491,8 +493,6 @@ e? max-xchar $100 < [IF]
: gen>host ( addr u -- addr u )
2dup c:0key "host" >keyed-hash ;
#10.000.000.000 d>64 64Constant fuzzedtime# \ allow clients to be 10s off
-5
enum sig-keysize
enum sig-unsigned
......
......@@ -273,7 +273,7 @@ $FD c, $00 c, $0000 w, $0000 w, $0000 w, $0000 w, $0000 w, $0000 w, $00 c, $01 c
Variable myname
\ new address handling is in net2o-addr.fs, loaded later
\ new address handling is in addr.fs, loaded later
Forward !my-addr ( -- )
......
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