Changeset 2263


Ignore:
Timestamp:
Jun 12, 2011, 10:50:54 AM (4 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:
2 edited

Legend:

Unmodified
Added
Removed
  • forth/kernel/kernel.fth

    r2137 r2263  
    703703' allot-abort is allot-error 
    704704 
     705/n-t 8 * constant bits/cell 
     706 
    705707: ,      (s n -- )       here   /n allot   unaligned-!   ; 
    706708: c,     (s char -- )    here  dup set-swap-bit  /c allot   c!   ; 
  • forth/lib/util.fth

    r655 r2263  
    6767: confirmedn?  ( adr len -- yes? )  (confirmed?) [char] Y  =  ; 
    6868 
    69 /n 8 * constant bits/cell 
    7069: lowmask  ( #bits -- mask )  1 swap lshift 1-  ; 
    7170: lowbits  ( n #bits -- bits )  lowmask and  ; 
Note: See TracChangeset for help on using the changeset viewer.