steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Inline some words for better optimizations

db4
Slava Pestov 2008-08-29 00:26:56 -05:00
parent 1fcbdf9d52
commit a015de663b
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/math/bitfields/lib/lib.factor
View File

@ -1,14 +1,14 @@
USING: hints kernel math ; USING: hints kernel math ;
IN: math.bitfields.lib IN: math.bitfields.lib
: clear-bit ( x n -- y ) 2^ bitnot bitand ; foldable : clear-bit ( x n -- y ) 2^ bitnot bitand ; inline
: set-bit ( x n -- y ) 2^ bitor ; foldable : set-bit ( x n -- y ) 2^ bitor ; inline
: bit-clear? ( x n -- ? ) 2^ bitand zero? ; foldable : bit-clear? ( x n -- ? ) 2^ bitand zero? ; inline
: unmask ( x n -- ? ) bitnot bitand ; foldable : unmask ( x n -- ? ) bitnot bitand ; inline
: unmask? ( x n -- ? ) unmask 0 > ; foldable : unmask? ( x n -- ? ) unmask 0 > ; inline
: mask ( x n -- ? ) bitand ; foldable : mask ( x n -- ? ) bitand ; inline
: mask? ( x n -- ? ) mask 0 > ; foldable : mask? ( x n -- ? ) mask 0 > ; inline
: wrap ( m n -- m' ) 1- bitand ; foldable : wrap ( m n -- m' ) 1- bitand ; inline
: bits ( m n -- m' ) 2^ wrap ; inline : bits ( m n -- m' ) 2^ wrap ; inline
: mask-bit ( m n -- m' ) 1- 2^ mask ; inline : mask-bit ( m n -- m' ) 1- 2^ mask ; inline