Verified Commit 63af4a64 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Time delta fix for 32 bits

parent 34a8c229

helper.fs

+1 −1
Original line number Diff line number Diff line
@@ -105,7 +105,7 @@ event: :>disconnect ( addr -- ) .disconnect-me ; 


64Variable announced \ time for next announcement

: announced! ( -- )

    ticks config:ekey-timeout& 2@ d>64 dup 5 64rshift 64- 64+ announced 64! ;

    ticks config:ekey-timeout& 2@ d>64 64dup 5 64rshift 64- 64+ announced 64! ;

: announced? ( -- flag ) announced 64@ ticks 64u>= ;

: subme ( -- )  announced? IF  dht-connect sub-me THEN ;