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");