xref: /csrg-svn/usr.bin/pascal/libpc/NEW.c (revision 3867)
11667Smckusick /* Copyright (c) 1979 Regents of the University of California */
21667Smckusick 
3*3867Smckusic static char sccsid[] = "@(#)NEW.c 1.3 06/10/81";
41667Smckusick 
51667Smckusick #include "h00vars.h"
61667Smckusick 
71667Smckusick NEW(var, size)
81667Smckusick 	char	**var;	/* pointer to item being deallocated */
93014Smckusic 	long	size;	/* sizeof struct pointed to by var */
101667Smckusick {
111667Smckusick 	extern	char *malloc();
121667Smckusick 	char 	*memblk;
131667Smckusick 
143014Smckusic 	memblk = malloc((int)size);
151667Smckusick 	if (memblk == 0) {
16*3867Smckusic 		ERROR("Ran out of memory\n", 0);
171667Smckusick 		return;
181667Smckusick 	}
191667Smckusick 	*var = memblk;
201667Smckusick 	if (memblk < _minptr)
211667Smckusick 		_minptr = memblk;
221667Smckusick 	if (memblk + size > _maxptr)
231667Smckusick 		_maxptr = memblk + size;
241667Smckusick }
25