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

View File

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