Check-in [85279f2ea6]
Not logged in

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: 85279f2ea63f85f0f61422300016e1b53f6bafc1
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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 )