17 lines
377 B
C
17 lines
377 B
C
/* $Header$ */
|
|
#define ALIGN(sz) ((((sz) + (sizeof(long) - 1)) / sizeof(long)) * sizeof(long))
|
|
char *
|
|
calloc(nelem, elsize)
|
|
unsigned int nelem, elsize;
|
|
{
|
|
register char *p;
|
|
register long *q;
|
|
unsigned int size = ALIGN(nelem * elsize);
|
|
extern char *malloc();
|
|
|
|
p = malloc(size);
|
|
if (p == 0) return 0;
|
|
q = (long *) (p + size);
|
|
while ((char *) q > p) *--q = 0;
|
|
return p;
|
|
}
|