Changeset 2263

Timestamp:

Jun 12, 2011 10:50:54 AM (2 years ago)

Author:

wmb

Message:

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

Location:

forth

Files:

• kernel/kernel.fth (modified) (1 diff)
• lib/util.fth (modified) (1 diff)

forth/kernel/kernel.fth

@@ -703 +703 @@
 ' 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!   ;

forth/lib/util.fth

@@ -67 +67 @@
 : 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  ;