mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
63 lines
1.4 KiB
C
63 lines
1.4 KiB
C
/********************************************************************
|
||
*
|
||
* calloc.c - memory allocator for sets of elements
|
||
* zalloc - memory allocator like malloc only zeros storage.
|
||
*
|
||
* BYTE *calloc(nelem,sizelem)
|
||
* UWORD nelem, sizelem;
|
||
*
|
||
* Returns a pointer to a region of (zero filled) memory large
|
||
* enough to hold 'nelem' items each of size 'sizelem'.
|
||
* Returns NULL if not enough memory, or allocation too large
|
||
* (on 8086).
|
||
*
|
||
* BYTE *zalloc(nbytes)
|
||
* UWORD nbytes;
|
||
*
|
||
* Returns a pointer to a region of zero filled memory nbytes long.
|
||
* Returns NULL if not enough memory.
|
||
*
|
||
*********************************************************************/
|
||
|
||
#include "portab.h"
|
||
#include "osif.h"
|
||
|
||
BYTE * zalloc(nbytes) /* CLEAR FUNCTION ***********/
|
||
UWORD nbytes; /* number of bytes */
|
||
{
|
||
REG BYTE *rp; /* pointer to region */
|
||
BYTE *malloc();
|
||
|
||
if( (rp = malloc(nbytes)) == NULLPTR) return(NULLPTR);
|
||
blkfill( rp, NULL, nbytes );
|
||
return(rp);
|
||
}
|
||
|
||
BYTE * calloc(nelem,sizelem) /* CLEAR FUNCTION ***********/
|
||
UWORD nelem, /* number of elements */
|
||
sizelem; /* size of element */
|
||
{
|
||
REG LONG size;
|
||
|
||
size = sizelem*nelem;
|
||
#if I8086
|
||
if( size > 65535L )
|
||
return NULLPTR;
|
||
#endif
|
||
return zalloc((UWORD)size);
|
||
}
|
||
e = sizelem*nelem;
|
||
#if I8086
|
||
if( size > 65535L )
|
||
return NULLPTR;
|
||
#endif
|
||
return zalloc((UWORD)size);
|
||
}
|
||
e = sizelem*nelem;
|
||
#if I8086
|
||
if( size > 65535L )
|
||
return NULLPTR;
|
||
#endif
|
||
return zalloc((UWORD)size);
|
||
}
|