Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Time delta fix for 32 bits |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
b8a0c242f3d2c8e5d281292230916b0e |
User & Date: | bernd 2020-01-09 18:31:44.262 |
Context
2020-01-09
| ||
18:52 | Fix ihave, problem check-in: 136a37fd0f user: bernd tags: trunk | |
18:31 | Time delta fix for 32 bits check-in: b8a0c242f3 user: bernd tags: trunk | |
13:57 | Bump version number check-in: b2fb724e32 user: bernd tags: trunk, 0.9.6-20200109 | |
Changes
Changes to helper.fs.
︙ | ︙ | |||
101 102 103 104 105 106 107 | : dht-disconnect ( -- ) 0 addr dht-connection !@ ?dup-IF >o o to connection disconnect-me 0 to connection o> dhtroot-addr off THEN ; 64Variable announced \ time for next announcement : announced! ( -- ) | | | 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 | : dht-disconnect ( -- ) 0 addr dht-connection !@ ?dup-IF >o o to connection disconnect-me 0 to connection o> dhtroot-addr off THEN ; 64Variable announced \ time for next announcement : announced! ( -- ) 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 ; : c:disconnect ( -- ) connect( [: ." Disconnecting..." cr ;] $err ) disconnect-me connect( [: .packets profile( .times ) ;] $err ) ; : c:fetch-id ( pubkey u -- ) |
︙ | ︙ |