[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.1 %G%";

#include "h00vars.h"
#include "h01errs.h"

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

	memblk = malloc(size);
	if (memblk == 0) {
		ERROR(EOUTOFMEM,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 */
	2
	3	static char sccsid[] = "@(#)NEW.c 1.1 %G%";
	4
	5	#include "h00vars.h"
	6	#include "h01errs.h"
	7
	8	NEW(var, size)
	9	char *var; / pointer to item being deallocated */
	10	int size; /* sizeof struct pointed to by var */
	11	{
	12	extern char *malloc();
	13	char *memblk;
	14
	15	memblk = malloc(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	}