change malloc-object back to using calloc

db4
Joe Groff 2009-08-29 15:28:31 -05:00
parent 0e8fe01d11
commit a71f242578
1 changed files with 1 additions and 1 deletions

View File

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