Use device-type Forth word to set up the corresponding property
It's easier to use "device-type" instead of creating the corresponding properties manually. Signed-off-by: Thomas Huth <thuth@linux.vnet.ibm.com> Signed-off-by: Alexey Kardashevskiy <aik@ozlabs.ru>
This commit is contained in:
parent
e6c14049ae
commit
18b1f60976
|
@ -460,7 +460,7 @@ init2_array init2_length encode-array " ibm,init2" property
|
|||
pllinit_array pllinit_length encode-array " ibm,pllinit" property
|
||||
meminit_array meminit_length encode-array " ibm,meminit" property
|
||||
0 0 encode-bytes " iso6429-1983-colors" property
|
||||
" display" encode-string " device_type" property
|
||||
s" display" device-type
|
||||
/scanline encode-int " width" property
|
||||
#scanlines encode-int " height" property
|
||||
8 encode-int " depth" property
|
||||
|
|
|
@ -20,7 +20,7 @@ value display_num ( str len )
|
|||
s" ,Display-" $cat 41 display_num + char-cat \ add ", Display-A" or "-B" to name ( str len )
|
||||
encode-string s" name" property \ store as name property
|
||||
|
||||
s" display" encode-string s" device_type" property \ add "device_type" propert
|
||||
s" display" device-type
|
||||
|
||||
\ screen-info is set by pci-class_03.fs contains output of get_vbe_info bios-snk call
|
||||
CASE screen-info c@ \ ( display-type )
|
||||
|
|
|
@ -283,7 +283,7 @@ false VALUE is-installed?
|
|||
disp-depth encode-int s" depth" property
|
||||
s" ISO8859-1" encode-string s" character-set" property \ i hope this is ok...
|
||||
\ add "device_type" property
|
||||
s" display" encode-string s" device_type" property
|
||||
s" display" device-type
|
||||
\ XXX We don't create an "address" property because Linux doesn't know what
|
||||
\ to do with it for >32-bit
|
||||
;
|
||||
|
|
|
@ -245,7 +245,7 @@ a CONSTANT VBE_DISPI_INDEX_NB
|
|||
disp-depth encode-int s" depth" property
|
||||
s" ISO8859-1" encode-string s" character-set" property \ i hope this is ok...
|
||||
\ add "device_type" property
|
||||
s" display" encode-string s" device_type" property
|
||||
s" display" device-type
|
||||
s" qemu,std-vga" encode-string s" compatible" property
|
||||
\ XXX We don't create an "address" property because Linux doesn't know what
|
||||
\ to do with it for >32-bit
|
||||
|
|
Loading…
Reference in New Issue