[OpenBIOS] [PATCHv2 01/20] display.fs: Fix up default-font word.

Mark Cave-Ayland mark.cave-ayland at ilande.co.uk
Sun May 26 15:02:21 CEST 2013


This enables us to execute "default-font set-font" as per the the IEEE1275
specification.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland at ilande.co.uk>
---
 openbios-devel/forth/device/display.fs |    2 +-
 openbios-devel/forth/device/font.fs    |    4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/openbios-devel/forth/device/display.fs b/openbios-devel/forth/device/display.fs
index 1ab69ec..d85ac85 100644
--- a/openbios-devel/forth/device/display.fs
+++ b/openbios-devel/forth/device/display.fs
@@ -68,7 +68,7 @@ defer fb-emit ( x -- )
 \ 
 
 : default-font ( -- addr width height advance min-char #glyphs )
-  \ (romfont-8x16) 8 10 10 0 100
+  (romfont) (romfont-width) (romfont-height) (romfont-height) 0 100
   ;
 
 : set-font ( addr width height advance min-char #glyphs -- )
diff --git a/openbios-devel/forth/device/font.fs b/openbios-devel/forth/device/font.fs
index c8100a8..7b742fa 100644
--- a/openbios-devel/forth/device/font.fs
+++ b/openbios-devel/forth/device/font.fs
@@ -9,5 +9,9 @@
 \ the copyright and warranty status of this work.
 \ 
 
+0 value (romfont)
+0 value (romfont-width)
+0 value (romfont-height)
+
 \ encode-file romfont.bin
 \ drop value (romfont-8x16)
-- 
1.7.10.4




More information about the OpenBIOS mailing list