Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix ihave, problem |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
136a37fd0f4473f542d7aaa768722839 |
User & Date: | bernd 2020-01-09 18:52:10.212 |
Context
2020-01-12
| ||
21:09 | Improve haves check-in: 90b0958714 user: bernd tags: trunk | |
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 | |
Changes
Changes to msg.fs.
︙ | ︙ | |||
1373 1374 1375 1376 1377 1378 1379 | also net2o-base \ chain messages to one previous message : chain, ( msgaddr u -- ) [: 2dup startdate@ 64#0 { 64^ sd } sd le-64! sd 1 64s forth:type c:0key sigonly@ >hash hashtmp hash#128 forth:type ;] $tmp $, msg-chain ; : ihave, ( -- ) ihave$ $@ dup IF | | | 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 | also net2o-base \ chain messages to one previous message : chain, ( msgaddr u -- ) [: 2dup startdate@ 64#0 { 64^ sd } sd le-64! sd 1 64s forth:type c:0key sigonly@ >hash hashtmp hash#128 forth:type ;] $tmp $, msg-chain ; : ihave, ( -- ) ihave$ $@ dup IF maxstring over 4 + - mehave$ $@len - dup 0< IF 2drop EXIT THEN keysize negate and dup >r $, mehave$ $@ $, msg-ihave ihave$ 0 r> $del ELSE 2drop THEN ; : push, ( -- ) push$ $@ dup IF $, nestsig ELSE 2drop THEN ; |
︙ | ︙ |