Check-in [b8a0c242f3]
Not logged in

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: b8a0c242f3d2c8e5d281292230916b0e0a8c7bf5
User & Date: bernd 2020-01-09 18:31:44
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to helper.fs.

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







|







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