Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/6/CALLOC.C

@@ -0,0 +1,62 @@
+/********************************************************************
+*
+*	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);
+}