[unix-history] / usr / src / usr.bin / pascal / libpc / NEW.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)NEW.c 1.3 %G%";

#include "h00vars.h"

NEW(var, size)
	char	**var;	/* pointer to item being deallocated */
	long	size;	/* sizeof struct pointed to by var */
{
	extern	char *malloc();
	char 	*memblk;

	memblk = malloc((int)size);
	if (memblk == 0) {
		ERROR("Ran out of memory\n", 0);
		return;
	}
	*var = memblk;
	if (memblk < _minptr)
		_minptr = memblk;
	if (memblk + size > _maxptr)
		_maxptr = memblk + size;
}
Commit	Line	Data
1f6134ca KM	1	/* Copyright (c) 1979 Regents of the University of California */
1f6134ca KM	2
86997b19	3	static char sccsid[] = "@(#)NEW.c 1.3 %G%";
1f6134ca KM	4
1f6134ca KM	5	#include "h00vars.h"
1f6134ca KM	6
	7	NEW(var, size)
	8	char *var; / pointer to item being deallocated */
492cc5d3	9	long size; /* sizeof struct pointed to by var */
1f6134ca KM	10	{
	11	extern char *malloc();
	12	char *memblk;
	13
492cc5d3	14	memblk = malloc((int)size);
1f6134ca	15	if (memblk == 0) {
86997b19	16	ERROR("Ran out of memory\n", 0);
1f6134ca KM	17	return;
	18	}
	19	*var = memblk;
	20	if (memblk < _minptr)
	21	_minptr = memblk;
	22	if (memblk + size > _maxptr)
	23	_maxptr = memblk + size;
	24	}