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:
Thomas Huth 2015-03-11 15:43:44 +01:00 committed by Alexey Kardashevskiy
parent e6c14049ae
commit 18b1f60976
4 changed files with 4 additions and 4 deletions

View File

@ -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

View File

@ -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 )

View File

@ -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
;

View File

@ -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