alien.data: Add malloc-like for copying c-arrays into malloc'd c-arrays.

db4
Doug Coleman 2012-09-26 16:44:57 -07:00
parent 13f101bd2b
commit d8c7a7b153
1 changed files with 3 additions and 0 deletions

View File

@ -84,6 +84,9 @@ M: bad-byte-array-length summary
: malloc-array ( n c-type -- array )
[ heap-size calloc ] [ <c-direct-array> ] 2bi ; inline
: malloc-like ( seq c-type -- malloc )
[ dup length ] dip malloc-array [ 0 swap copy ] keep ;
: malloc-byte-array ( byte-array -- alien )
binary-object [ nip malloc dup ] 2keep memcpy ;