Virtualization
/
SLOF
mirror of https://gitlab.com/qemu-project/SLOF.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Use hv-logical-memop for blinking the screen on qemu vga 

Signed-off-by: Benjamin Herrenschmidt <benh@kernel.crashing.org>
This commit is contained in:
Benjamin Herrenschmidt 2012-02-22 10:34:27 +11:00
parent e6aac8b56d
commit 440e662879
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
board-qemu/slof/pci-device_1234_1111.fs
View File

@ -255,6 +255,16 @@ a CONSTANT VBE_DISPI_INDEX_NB
: display-remove ( -- ) : display-remove ( -- )
; ;
: hcall-invert-screen ( -- )
frame-buffer-adr frame-buffer-adr 3
screen-height screen-width * screen-depth * /x /
1 hv-logical-memop
;
: hcall-blink-screen ( -- )
hcall-invert-screen hcall-invert-screen
;
: display-install ( -- ) : display-install ( -- )
is-installed? NOT IF is-installed? NOT IF
." Installing QEMU fb" cr ." Installing QEMU fb" cr
@ -266,6 +276,8 @@ a CONSTANT VBE_DISPI_INDEX_NB
disp-width char-width / disp-height char-height / disp-width char-width / disp-height char-height /
disp-depth 7 + 8 / ( width height #lines #cols depth ) disp-depth 7 + 8 / ( width height #lines #cols depth )
fb-install fb-install
['] hcall-invert-screen to invert-screen
['] hcall-blink-screen to blink-screen
true to is-installed? true to is-installed?
THEN THEN
; ;