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: |
85279f2ea63f85f0f61422300016e1b5 |
User & Date: | bernd 2020-02-03 18:08:47.077 |
Context
2020-02-03
| ||
18:16 | Clean up nick\! check-in: 8fca31bb94 user: bernd tags: trunk | |
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 | |
Changes
Changes to net2o.fs.
︙ | ︙ | |||
513 514 515 516 517 518 519 | : 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] | | < | 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 | : 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<> WHILE 2drop REPEAT ; 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 ) |
︙ | ︙ |