Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | map finding process updated |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
076d2fe71dbb94594d600b8876f8f14b |
User & Date: | bernd 2020-02-03 18:00:28.288 |
Context
2020-02-03
| ||
18:08 | map finding process updated check-in: 85279f2ea6 user: bernd tags: trunk | |
18:00 | map finding process updated check-in: 076d2fe71d user: bernd tags: trunk | |
17:26 | resend0 cleaned at connect check-in: 217298f0da user: bernd tags: trunk | |
Changes
Changes to net2o.fs.
︙ | ︙ | |||
510 511 512 513 514 515 516 | new-code-size ! new-code-d 64! new-code-s 64! newcode-val validated or! ; : new-data@ ( -- addrs addrd u -- ) new-data-s 64@ new-data-d 64@ new-data-size @ ; : new-data! ( addrs addrd u -- ) new-data-size ! new-data-d 64! new-data-s 64! newdata-val validated or! ; in net2o : new-map ( -- addr ) | > | | > > | 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 | new-code-size ! new-code-d 64! new-code-s 64! newcode-val validated or! ; : new-data@ ( -- addrs addrd u -- ) new-data-s 64@ new-data-d 64@ new-data-size @ ; : new-data! ( addrs addrd u -- ) new-data-size ! new-data-d 64! new-data-s 64! newdata-val validated or! ; in net2o : new-map ( -- addr ) BEGIN mapstart @ 1 mapstart +! reverse [ cell 4 = ] [IF] 0 swap [ELSE] $FFFFFFFF00000000 and [THEN] 64dup >dest-map 2@ d0= UNTIL ; in net2o : new-data ( addrs addrd u -- ) dup max-data# u> !!mapsize!! min-size swap lshift { 64: addrs 64: addrd u -- } o 0= IF addrd >dest-map @ ?EXIT net2o:new-context >o rdrop setup! THEN msg( ." data map: " addrs x64. ." own: " addrd x64. u hex. cr ) |
︙ | ︙ |