merge from gcc
[external/binutils.git] / libiberty / calloc.c
1 /* calloc -- allocate memory which has been initialized to zero.
2    This function is in the public domain. */
3
4 /*
5
6 @deftypefn Supplemental void* calloc (size_t @var{nelem}, size_t @var{elsize})
7
8 Uses @code{malloc} to allocate storage for @var{nelem} objects of
9 @var{elsize} bytes each, then zeros the memory.
10
11 @end deftypefn
12
13 */
14  
15 #include "ansidecl.h"
16 #ifdef ANSI_PROTOTYPES
17 #include <stddef.h>
18 #else
19 #define size_t unsigned long
20 #endif
21
22 /* For systems with larger pointers than ints, this must be declared.  */
23 PTR malloc PARAMS ((size_t));
24 void bzero PARAMS ((PTR, size_t));
25
26 PTR
27 calloc (nelem, elsize)
28   size_t nelem, elsize;
29 {
30   register PTR ptr;  
31
32   if (nelem == 0 || elsize == 0)
33     nelem = elsize = 1;
34   
35   ptr = malloc (nelem * elsize);
36   if (ptr) bzero (ptr, nelem * elsize);
37   
38   return ptr;
39 }