change malloc-object back to using calloc
parent
0e8fe01d11
commit
a71f242578
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue