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 -- )
|
| ︙ | ︙ |