mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
a757800a01
git-svn-id: svn://coreboot.org/openbios/openbios-devel@285 f158a5a8-5612-0410-a976-696ce0be7e32
37 lines
660 B
Forth
37 lines
660 B
Forth
[IFDEF] CONFIG_DRIVER_PCI
|
|
|
|
dev /
|
|
|
|
\ simple pci bus node
|
|
new-device
|
|
" pci" device-name
|
|
3 encode-int " #address-cells" property
|
|
2 encode-int " #size-cells" property
|
|
0 encode-int 0 encode-int encode+ " bus-range" property
|
|
" pci" encode-string " device_type" property
|
|
|
|
external
|
|
: open ( cr ." opening PCI" cr ) true ;
|
|
: close ;
|
|
: decode-unit 0 decode-unit-pci-bus ;
|
|
: encode-unit encode-unit-pci ;
|
|
finish-device
|
|
|
|
device-end
|
|
|
|
: pci-addr-encode ( addr.lo addr.mi addr.hi )
|
|
rot >r swap >r
|
|
encode-int
|
|
r> encode-int encode+
|
|
r> encode-int encode+
|
|
;
|
|
|
|
: pci-len-encode ( len.lo len.hi )
|
|
encode-int
|
|
rot encode-int encode+
|
|
;
|
|
|
|
|
|
|
|
[THEN]
|