[OpenBIOS] [commit] r878 - trunk/openbios-devel/forth/bootstrap

[repository service]

Author: mcayland
Date: Sun Oct  3 12:34:50 2010
New Revision: 878
URL: http://tracker.coreboot.org/trac/openbios/changeset/878

Log:
Implement the "to" Forth word for setting defers. This enables OpenSolaris to execute "' kmem64-tte is va>tte-data" for setting 
the va>tte-data defer.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland at siriusit.co.uk>

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

Modified: trunk/openbios-devel/forth/bootstrap/bootstrap.fs
==============================================================================
--- trunk/openbios-devel/forth/bootstrap/bootstrap.fs	Sun Oct  3 11:37:13 2010	(r877)
+++ trunk/openbios-devel/forth/bootstrap/bootstrap.fs	Sun Oct  3 12:34:50 2010	(r878)
@@ -1043,6 +1043,13 @@
   then
   ; immediate
 
+: is ( xt "wordname<>" -- )
+  parse-word $find if
+    (to)
+  else
+    s" could not find " type type
+  then
+  ;
 
 \ 
 \ 7.3.4.2 Console Input