2000-02-22 16:59:20 +01:00
|
|
|
/* calloc -- allocate memory which has been initialized to zero.
|
|
|
|
This function is in the public domain. */
|
2001-09-26 20:45:50 +02:00
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
|
|
@deftypefn Supplemental void* calloc (size_t @var{nelem}, size_t @var{elsize})
|
|
|
|
|
|
|
|
Uses @code{malloc} to allocate storage for @var{nelem} objects of
|
|
|
|
@var{elsize} bytes each, then zeros the memory.
|
|
|
|
|
|
|
|
@end deftypefn
|
|
|
|
|
|
|
|
*/
|
2000-02-22 16:59:20 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
#include "ansidecl.h"
|
|
|
|
#ifdef ANSI_PROTOTYPES
|
|
|
|
#include <stddef.h>
|
|
|
|
#else
|
|
|
|
#define size_t unsigned long
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* For systems with larger pointers than ints, this must be declared. */
|
|
|
|
PTR malloc PARAMS ((size_t));
|
2003-04-15 23:29:34 +02:00
|
|
|
void bzero PARAMS ((PTR, size_t));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
PTR
|
|
|
|
calloc (nelem, elsize)
|
|
|
|
size_t nelem, elsize;
|
|
|
|
{
|
|
|
|
register PTR ptr;
|
|
|
|
|
|
|
|
if (nelem == 0 || elsize == 0)
|
|
|
|
nelem = elsize = 1;
|
|
|
|
|
|
|
|
ptr = malloc (nelem * elsize);
|
|
|
|
if (ptr) bzero (ptr, nelem * elsize);
|
|
|
|
|
|
|
|
return ptr;
|
|
|
|
}
|