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