xref: /original-bsd/usr.bin/pascal/libpc/NEW.c (revision 6c57d260)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)NEW.c 1.2 03/07/81";
4 
5 #include "h00vars.h"
6 #include "h01errs.h"
7 
8 NEW(var, size)
9 	char	**var;	/* pointer to item being deallocated */
10 	long	size;	/* sizeof struct pointed to by var */
11 {
12 	extern	char *malloc();
13 	char 	*memblk;
14 
15 	memblk = malloc((int)size);
16 	if (memblk == 0) {
17 		ERROR(EOUTOFMEM,0);
18 		return;
19 	}
20 	*var = memblk;
21 	if (memblk < _minptr)
22 		_minptr = memblk;
23 	if (memblk + size > _maxptr)
24 		_maxptr = memblk + size;
25 }
26