r495 - in trunk/openbios-devel: forth/device kernel

Author: blueswirl
Date: 2009-05-23 17:31:31 +0200 (Sat, 23 May 2009)
New Revision: 495

Modified:
   trunk/openbios-devel/forth/device/table.fs
   trunk/openbios-devel/kernel/bootstrap.c
Log:
Implement /x FCode (Mark Cave-Ayland)

Modified: trunk/openbios-devel/forth/device/table.fs
===================================================================
--- trunk/openbios-devel/forth/device/table.fs	2009-05-22 17:15:48 UTC (rev 494)
+++ trunk/openbios-devel/forth/device/table.fs	2009-05-23 15:31:31 UTC (rev 495)
@@ -397,6 +397,8 @@
   ['], byte-load
   ['], set-args
   ['], left-parse-string        \ 240
+  7 n['], reserved-fcode	\ 241-247 (Part of IEEE1275 64-bit draft standard)
+  ['], /x
 
 here fcode-master-table - constant fcode-master-table-size
 

Modified: trunk/openbios-devel/kernel/bootstrap.c
===================================================================
--- trunk/openbios-devel/kernel/bootstrap.c	2009-05-22 17:15:48 UTC (rev 494)
+++ trunk/openbios-devel/kernel/bootstrap.c	2009-05-23 15:31:31 UTC (rev 495)
@@ -723,6 +723,7 @@
 	buildconstant("/w", sizeof(u16));
 	buildconstant("/l", sizeof(u32));
 	buildconstant("/n", sizeof(ucell));
+	buildconstant("/x", sizeof(u64));
 
 	reveal();
 	printk("Dictionary initialization finished.\n");