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

add non-initializing (malloc-array) and (malloc-object) for kicks

db4
Joe Groff 2009-08-29 22:42:48 -05:00
parent 3e51bde484
commit 4d8ed23db5
1 changed files with 6 additions and 0 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

@ -265,9 +265,15 @@ M: f byte-length drop 0 ; inline
: malloc-array ( n type -- alien ) : malloc-array ( n type -- alien )
[ heap-size calloc ] [ <c-type-direct-array> ] 2bi ; inline [ heap-size calloc ] [ <c-type-direct-array> ] 2bi ; inline
: (malloc-array) ( n type -- alien )
[ heap-size * malloc ] [ <c-type-direct-array> ] 2bi ; inline
: malloc-object ( type -- alien ) : malloc-object ( type -- alien )
1 swap heap-size calloc ; inline 1 swap heap-size calloc ; inline
: (malloc-object) ( type -- alien )
heap-size malloc ; inline
: malloc-byte-array ( byte-array -- alien ) : malloc-byte-array ( byte-array -- alien )
dup byte-length [ nip malloc dup ] 2keep memcpy ; dup byte-length [ nip malloc dup ] 2keep memcpy ;