[commit] r2263 - in forth: kernel lib

[repository service]

Author: wmb
Date: Sun Jun 12 10:50:54 2011
New Revision: 2263
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2263

Log:
Moved bits/cell from util.fth to kernel.fth so it's present in time for dlshift and friends.

Modified:
   forth/kernel/kernel.fth
   forth/lib/util.fth

Modified: forth/kernel/kernel.fth
==============================================================================
--- forth/kernel/kernel.fth	Sat Jun 11 03:14:06 2011	(r2262)
+++ forth/kernel/kernel.fth	Sun Jun 12 10:50:54 2011	(r2263)
@@ -702,6 +702,8 @@

' allot-abort is allot-error

+/n-t 8 * constant bits/cell
+
 : ,      (s n -- )       here   /n allot   unaligned-!   ;
 : c,     (s char -- )    here  dup set-swap-bit  /c allot   c!   ;
 : w,     (s w -- )       here   /w allot   w!   ;

Modified: forth/lib/util.fth
==============================================================================
--- forth/lib/util.fth	Sat Jun 11 03:14:06 2011	(r2262)
+++ forth/lib/util.fth	Sun Jun 12 10:50:54 2011	(r2263)
@@ -66,7 +66,6 @@
 \ Default value is no
 : confirmedn?  ( adr len -- yes? )  (confirmed?) [char] Y  =  ;

-/n 8 * constant bits/cell
 : lowmask  ( #bits -- mask )  1 swap lshift 1-  ;
 : lowbits  ( n #bits -- bits )  lowmask and  ;
 : bits  ( n bit# #bits -- bits )  -rot rshift  swap lowbits  ;