13. Example of use of add-ranges check

\ Flag is true if the parent's map-in method doesn't work with \ relocatable addresses.

: map-in-broken? ( -- flag )
\ Look for the method that is present when the bug is present

;

;

" add-range" my-parent ihandle>phandle find-method dup if nip then

( adr len phandle )
( flag ) \ Discard xt if present

\ Return phys.lo and phys.mid of the address assigned to the PCI base address \ register indicated by phys.hi .

: get-base-address ( phys.hi -- phys.lo phys.mid phys.hi )

" assigned-addresses" get-my-property if ." No address property found!" cr
0 0 rot exit

then

rot>r
\ Found assigned-addresses, get address
begin dup while ( adr len' ) \ Loop over entries

decode-phys ( adr len' phys.lo phys.mid phys.hi )
h# ff and r@ h# ff and = if ( adr len' phys.lo phys.mid ) \ This one?

2swap 2drop

r> exit else

repeat
2drop ()

." Base address not assigned!" cr
0 0 r> ( 0 0 phys.hi )

2drop then

( phys.lo phys.mid ) \ This is the one ( phys.lo phys.mid phys.hi )
( adr len' phys.lo phys.mid ) \ Not this one (adrlen')

(adrlen') decode-int drop decode-int drop

\ Discard boring fields

\ Error exit ( phys.hi adr len )

(adrlen) (r:phys.hi)

\ Example code to compute the phys.lo..hi arguments for "map-in", using the \ above functions so that the code works both on systems that implement
\ map-in according to the PCI binding document, and also on systems whose \ PCI map-in method requires phys.lo,phys.mid to contain the assigned base \ address.

\ Compute entire phys.lo..hi address for base address register 10 map-in-broken? if

my-space h# 8200.0010 + get-base-address else

0 0 my-space h# 200.0010 + then

( phys.lo,mid,hi )

( phys.lo,mid,hi ) ( phys.lo,mid,hi )

\ An FCode driver that need not work on systems with the map-in bug could \ use the following code, omitting the definitions of "map-in-broken?"
\ and "get-base-address".
\

\ 0 0 my-space h# 200.0010 +

( phys.lo,mid,hi )