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 |
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 517 518 519 520 521 522 523 524 525 |
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 )
mapstart @ 1 mapstart +! reverse
[ cell 4 = ] [IF] 0 swap [ELSE] $FFFFFFFF00000000 and [THEN] ;
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 )
|
> | | > > |
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 )
|