1*40865Sbostic /*- 2*40865Sbostic * Copyright (c) 1979 The Regents of the University of California. 3*40865Sbostic * All rights reserved. 4*40865Sbostic * 5*40865Sbostic * %sccs.include.redist.c% 6*40865Sbostic */ 71647Smckusick 8*40865Sbostic #ifndef lint 9*40865Sbostic static char sccsid[] = "@(#)DISPOSE.c 1.4 (Berkeley) 04/09/90"; 10*40865Sbostic #endif /* not lint */ 111647Smckusick 121647Smckusick #include "h00vars.h" 131647Smckusick 143001Smckusic DISPOSE(var, siz) 151647Smckusick register char **var; /* pointer to pointer being deallocated */ 163001Smckusic long siz; /* sizeof(bletch) */ 171647Smckusick { 183001Smckusic register int size = siz; 193001Smckusic 201647Smckusick if (*var == 0 || *var + size > _maxptr || *var < _minptr) { 213867Smckusic ERROR("Pointer value out of legal range\n", 0); 221647Smckusick return; 231647Smckusick } 241647Smckusick free(*var); 251647Smckusick if (*var == _minptr) 261647Smckusick _minptr += size; 271647Smckusick if (*var + size == _maxptr) 281647Smckusick _maxptr -= size; 291647Smckusick *var = (char *)(0); 301647Smckusick } 31