xref: /csrg-svn/usr.bin/pascal/libpc/NEW.c (revision 3014)
11667Smckusick /* Copyright (c) 1979 Regents of the University of California */
21667Smckusick 
3*3014Smckusic static char sccsid[] = "@(#)NEW.c 1.2 03/07/81";
41667Smckusick 
51667Smckusick #include "h00vars.h"
61667Smckusick #include "h01errs.h"
71667Smckusick 
81667Smckusick NEW(var, size)
91667Smckusick 	char	**var;	/* pointer to item being deallocated */
10*3014Smckusic 	long	size;	/* sizeof struct pointed to by var */
111667Smckusick {
121667Smckusick 	extern	char *malloc();
131667Smckusick 	char 	*memblk;
141667Smckusick 
15*3014Smckusic 	memblk = malloc((int)size);
161667Smckusick 	if (memblk == 0) {
171667Smckusick 		ERROR(EOUTOFMEM,0);
181667Smckusick 		return;
191667Smckusick 	}
201667Smckusick 	*var = memblk;
211667Smckusick 	if (memblk < _minptr)
221667Smckusick 		_minptr = memblk;
231667Smckusick 	if (memblk + size > _maxptr)
241667Smckusick 		_maxptr = memblk + size;
251667Smckusick }
26