use calloc in malloc-struct for consistency with malloc-object and malloc-array
parent
0e8fe01d11
commit
4e7bada863
|
@ -45,7 +45,7 @@ M: struct equal?
|
|||
] 1 define-partial-eval
|
||||
|
||||
: malloc-struct ( class -- struct )
|
||||
[ heap-size malloc ] keep memory>struct ; inline
|
||||
[ 1 swap heap-size calloc ] keep memory>struct ; inline
|
||||
|
||||
: (struct) ( class -- struct )
|
||||
[ heap-size <byte-array> ] keep memory>struct ; inline
|
||||
|
|
Loading…
Reference in New Issue