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 |
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 520 521 522 523 524 525 526 527 528 |
: 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 )
|
| < |
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 )
|