[commit] r1189 - trunk/openbios-devel/forth/bootstrap

[repository service]

Author: mcayland
Date: Sat Jul 27 12:15:08 2013
New Revision: 1189
URL: http://tracker.coreboot.org/trac/openbios/changeset/1189

Log:
bootstrap.fs: add debug-type and debug-cr words

These words always output to the debug (serial) port even if video mode is
enabled. This makes debugging the video routines much easier when starting
QEMU with the -serial stdio option.

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

Modified:
   trunk/openbios-devel/forth/bootstrap/bootstrap.fs

Modified: trunk/openbios-devel/forth/bootstrap/bootstrap.fs
==============================================================================
--- trunk/openbios-devel/forth/bootstrap/bootstrap.fs	Sat Jul 27 12:15:05 2013	(r1188)
+++ trunk/openbios-devel/forth/bootstrap/bootstrap.fs	Sat Jul 27 12:15:08 2013	(r1189)
@@ -660,6 +660,7 @@
 
 \ : type 0 do count emit loop drop ;
 
+: debug-type bounds ?do i c@ (emit) loop ;
 
 \ 
 \ 7.3.4.1 Text Input
@@ -863,6 +864,7 @@
 \ 
 
 : cr linefeed emit ;
+: debug-cr linefeed (emit) ;
 : (cr carret emit ;
 : space bl emit ;
 : spaces 0 ?do space loop ;