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 ;