mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
05ec5dd149
My New World PowerMac G3 does not have a /hypervisor node. Move all Forth code to kvm_of_init() to make it match the comment: Don't expose /hypervisor when not in KVM. Cc: Alexander Graf <agraf@suse.de> Signed-off-by: Andreas Färber <andreas.faerber@web.de> Signed-off-by: Alexander Graf <agraf@suse.de> git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@895 f158a5a8-5612-0410-a976-696ce0be7e32
69 lines
1.4 KiB
Forth
69 lines
1.4 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
|
|
external
|
|
|
|
: encode-unit ( unit -- str len )
|
|
pocket tohexstr
|
|
;
|
|
|
|
: decode-unit ( str len -- unit )
|
|
parse-hex
|
|
;
|
|
|
|
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
|