[openfirmware] [commit] r2263 - in forth: kernel lib
repository service
svn at openfirmware.info
Sun Jun 12 10:50:55 CEST 2011
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 ;
More information about the openfirmware
mailing list