diff options
author | Benjamin Herrenschmidt <benh@kernel.crashing.org> | 2012-02-22 10:34:27 +1100 |
---|---|---|
committer | Benjamin Herrenschmidt <benh@kernel.crashing.org> | 2012-02-22 10:34:27 +1100 |
commit | 440e662879c4fc3c6d4e0c542c1796d877effd76 (patch) | |
tree | 0cc707cd7bc79eac24d786b794a030cea2840d7f | |
parent | e6aac8b56d4c87136c45517ca6cae9903defe6cd (diff) | |
download | SLOF-440e662879c4fc3c6d4e0c542c1796d877effd76.zip SLOF-440e662879c4fc3c6d4e0c542c1796d877effd76.tar.gz SLOF-440e662879c4fc3c6d4e0c542c1796d877effd76.tar.bz2 |
Use hv-logical-memop for blinking the screen on qemu vgaqemu-slof-20120222
Signed-off-by: Benjamin Herrenschmidt <benh@kernel.crashing.org>
-rw-r--r-- | board-qemu/slof/pci-device_1234_1111.fs | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/board-qemu/slof/pci-device_1234_1111.fs b/board-qemu/slof/pci-device_1234_1111.fs index 9987d8a..231deae 100644 --- a/board-qemu/slof/pci-device_1234_1111.fs +++ b/board-qemu/slof/pci-device_1234_1111.fs @@ -255,6 +255,16 @@ a CONSTANT VBE_DISPI_INDEX_NB : 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 ( -- ) is-installed? NOT IF ." Installing QEMU fb" cr @@ -266,7 +276,9 @@ a CONSTANT VBE_DISPI_INDEX_NB disp-width char-width / disp-height char-height / disp-depth 7 + 8 / ( width height #lines #cols depth ) fb-install - true to is-installed? + ['] hcall-invert-screen to invert-screen + ['] hcall-blink-screen to blink-screen + true to is-installed? THEN ; |