mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
358bee9e5d
If arch is ppc and machine arch id is heathrow, we create: - properties in root node for a powermac beige (Linux says "Powermac G3 (Silk)") - "AAPL,interrupts" and "AAPL,address" properties in PCI device tree. git-svn-id: svn://coreboot.org/openbios/openbios-devel@388 f158a5a8-5612-0410-a976-696ce0be7e32
59 lines
1.3 KiB
Forth
59 lines
1.3 KiB
Forth
\ Qemu specific initialization code
|
|
\
|
|
\ This program is free software; you can redistribute it and/or
|
|
\ modify it under the terms of the GNU General Public License
|
|
\ as published by the Free Software Foundation
|
|
\
|
|
|
|
\ -------------------------------------------------------------
|
|
\ device-tree
|
|
\ -------------------------------------------------------------
|
|
|
|
" /" find-device
|
|
|
|
1 encode-int " #address-cells" property
|
|
1 encode-int " #size-cells" property
|
|
h# 05f5e100 encode-int " clock-frequency" property
|
|
|
|
new-device
|
|
" cpus" device-name
|
|
1 encode-int " #address-cells" property
|
|
0 encode-int " #size-cells" property
|
|
finish-device
|
|
|
|
new-device
|
|
" memory" device-name
|
|
" memory" device-type
|
|
external
|
|
: open true ;
|
|
: close ;
|
|
finish-device
|
|
|
|
\ -------------------------------------------------------------
|
|
\ /packages
|
|
\ -------------------------------------------------------------
|
|
|
|
" /packages" find-device
|
|
|
|
" packages" device-name
|
|
external
|
|
\ allow packages to be opened with open-dev
|
|
: open true ;
|
|
: close ;
|
|
|
|
\ /packages/terminal-emulator
|
|
new-device
|
|
" terminal-emulator" device-name
|
|
external
|
|
: open true ;
|
|
: close ;
|
|
\ : write ( addr len -- actual )
|
|
\ dup -rot type
|
|
\ ;
|
|
finish-device
|
|
|
|
\ -------------------------------------------------------------
|
|
\ The END
|
|
\ -------------------------------------------------------------
|
|
device-end
|