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

A few inline declarations

Slava Pestov 2009-08-27 04:09:12 -05:00
parent 881677752f
commit a9de542550
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/alien/c-types/c-types.factor
View File

@ -236,9 +236,9 @@ M: c-type stack-size size>> cell align ;
GENERIC: byte-length ( seq -- n ) flushable GENERIC: byte-length ( seq -- n ) flushable
M: byte-array byte-length length ; M: byte-array byte-length length ; inline
M: f byte-length drop 0 ; M: f byte-length drop 0 ; inline
: c-getter ( name -- quot ) : c-getter ( name -- quot )
c-type-getter [ c-type-getter [
@ -281,7 +281,7 @@ M: memory-stream stream-read
] [ [ + ] change-index drop ] 2bi ; ] [ [ + ] change-index drop ] 2bi ;
: byte-array>memory ( byte-array base -- ) : byte-array>memory ( byte-array base -- )
swap dup byte-length memcpy ; swap dup byte-length memcpy ; inline
: array-accessor ( type quot -- def ) : array-accessor ( type quot -- def )
[ [

2
basis/bit-arrays/bit-arrays.factor
View File

@ -83,7 +83,7 @@ M: bit-array resize
bit-array boa bit-array boa
dup clean-up ; inline dup clean-up ; inline
M: bit-array byte-length length 7 + -3 shift ; M: bit-array byte-length length 7 + -3 shift ; inline
SYNTAX: ?{ \ } [ >bit-array ] parse-literal ; SYNTAX: ?{ \ } [ >bit-array ] parse-literal ;

2
basis/io/buffers/buffers.factor
View File

@ -42,7 +42,7 @@ M: buffer dispose* ptr>> free ;
[ fill>> ] [ pos>> ] bi - ; inline [ fill>> ] [ pos>> ] bi - ; inline
: buffer@ ( buffer -- alien ) : buffer@ ( buffer -- alien )
[ pos>> ] [ ptr>> ] bi <displaced-alien> ; [ pos>> ] [ ptr>> ] bi <displaced-alien> ; inline
: buffer-read ( n buffer -- byte-array ) : buffer-read ( n buffer -- byte-array )
[ buffer-length min ] keep [ buffer-length min ] keep