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
 | 
					    [ heap-size calloc ] [ <c-type-direct-array> ] 2bi ; inline
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: malloc-object ( type -- alien )
 | 
					: malloc-object ( type -- alien )
 | 
				
			||||||
   heap-size malloc ; inline
 | 
					    1 swap heap-size calloc ; inline
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: malloc-byte-array ( byte-array -- alien )
 | 
					: malloc-byte-array ( byte-array -- alien )
 | 
				
			||||||
    dup byte-length [ nip malloc dup ] 2keep memcpy ;
 | 
					    dup byte-length [ nip malloc dup ] 2keep memcpy ;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue