xref: /original-bsd/usr.bin/pascal/libpc/NEW.c (revision 7717c4d4)
1 /*-
2  * Copyright (c) 1979 The Regents of the University of California.
3  * All rights reserved.
4  *
5  * %sccs.include.redist.c%
6  */
7 
8 #ifndef lint
9 static char sccsid[] = "@(#)NEW.c	1.4 (Berkeley) 04/09/90";
10 #endif /* not lint */
11 
12 #include "h00vars.h"
13 
14 NEW(var, size)
15 	char	**var;	/* pointer to item being deallocated */
16 	long	size;	/* sizeof struct pointed to by var */
17 {
18 	extern	char *malloc();
19 	char 	*memblk;
20 
21 	memblk = malloc((int)size);
22 	if (memblk == 0) {
23 		ERROR("Ran out of memory\n", 0);
24 		return;
25 	}
26 	*var = memblk;
27 	if (memblk < _minptr)
28 		_minptr = memblk;
29 	if (memblk + size > _maxptr)
30 		_maxptr = memblk + size;
31 }
32