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

specialized-arrays: byte-array>A-array calls >c-ptr

db4
Slava Pestov 2009-10-01 23:12:53 -05:00
parent c3d81cefe9
commit 59e234b251
1 changed files with 8 additions and 4 deletions
basis/specialized-arrays

12
basis/specialized-arrays/specialized-arrays.factor
View File

@ -54,14 +54,18 @@ TUPLE: A
: <direct-A> ( alien len -- specialized-array ) A boa ; inline
: <A> ( n -- specialized-array ) [ \ T <underlying> ] keep <direct-A> ; inline
: <A> ( n -- specialized-array )
[ \ T <underlying> ] keep <direct-A> ; inline
: (A) ( n -- specialized-array ) [ \ T (underlying) ] keep <direct-A> ; inline
: (A) ( n -- specialized-array )
[ \ T (underlying) ] keep <direct-A> ; inline
: malloc-A ( len -- specialized-array ) [ \ T heap-size calloc ] keep <direct-A> ; inline
: malloc-A ( len -- specialized-array )
[ \ T heap-size calloc ] keep <direct-A> ; inline
: byte-array>A ( byte-array -- specialized-array )
dup length \ T heap-size /mod 0 = [ drop \ T bad-byte-array-length ] unless
>c-ptr dup length \ T heap-size /mod 0 =
[ drop \ T bad-byte-array-length ] unless
<direct-A> ; inline
M: A clone [ underlying>> clone ] [ length>> ] bi <direct-A> ; inline