[commit] r1137 - trunk/openbios-devel/forth/device

[repository service]

Author: mcayland
Date: Sun Jun  9 14:24:50 2013
New Revision: 1137
URL: http://tracker.coreboot.org/trac/openbios/changeset/1137

Log:
display.fs: Fix up default-font word.

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

Signed-off-by: Mark Cave-Ayland <[e-mail]>

Modified:
   trunk/openbios-devel/forth/device/display.fs
   trunk/openbios-devel/forth/device/font.fs

Modified: trunk/openbios-devel/forth/device/display.fs
==============================================================================
--- trunk/openbios-devel/forth/device/display.fs	Sat May  4 13:01:04 2013	(r1136)
+++ trunk/openbios-devel/forth/device/display.fs	Sun Jun  9 14:24:50 2013	(r1137)
@@ -68,7 +68,7 @@
 \ 
 
 : 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 -- )

Modified: trunk/openbios-devel/forth/device/font.fs
==============================================================================
--- trunk/openbios-devel/forth/device/font.fs	Sat May  4 13:01:04 2013	(r1136)
+++ trunk/openbios-devel/forth/device/font.fs	Sun Jun  9 14:24:50 2013	(r1137)
@@ -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)