usr/src/usr.bin/pascal/libpc/DISPOSE.c

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

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

#include	"h00vars.h"

DISPOSE(var, siz)
	register char	**var;	/* pointer to pointer being deallocated */
	long		siz;	/* sizeof(bletch) */
{
	register int size = siz;

	if (*var == 0 || *var + size > _maxptr || *var < _minptr) {
		ERROR("Pointer value out of legal range\n", 0);
		return;
	}
	free(*var);
	if (*var == _minptr)
		_minptr += size;
	if (*var + size == _maxptr)
		_maxptr -= size;
	*var = (char *)(0);
}
Commit	Line	Data
	1	/* Copyright (c) 1979 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)DISPOSE.c 1.3 %G%";
	4
	5	#include "h00vars.h"
	6
	7	DISPOSE(var, siz)
	8	register char *var; / pointer to pointer being deallocated */
	9	long siz; /* sizeof(bletch) */
	10	{
	11	register int size = siz;
	12
	13	if (var == 0 \|\| var + size > _maxptr \|\| *var < _minptr) {
	14	ERROR("Pointer value out of legal range\n", 0);
	15	return;
	16	}
	17	free(*var);
	18	if (*var == _minptr)
	19	_minptr += size;
	20	if (*var + size == _maxptr)
	21	_maxptr -= size;
	22	var = (char )(0);
	23	}