/******************************************************************************

	ZFree()

	This function frees memory previously allocated by the ZAlloc
function.

*****************************************************************************/

#include "ZPort.h"		/* define portability identifiers */



#ifdef UNKNOWN
VOID ZFree(pointer)		/* free memory */
char *pointer;
{
	puts("Terminating in function ZFree.\n");
	exit(1);
}
#endif



#ifdef vax11c
#include ssdef		/* define identifiers for system return codes */

extern	int	free();		/* standard C library function */
extern	VOID	lib$stop();	/* terminate image with stack dump */
extern	VOID	ZDspBf();	/* display a buffer on the terminal */


VOID ZFree(pointer)		/* free memory allocated by ZAlloc */
char *pointer;
{
	if (free(pointer))
		{
		ZDspBf("Unable to free memory\015\012", 23);
		lib$stop(SS$_NORMAL);
		}
}
#endif



#ifdef XENIX
extern	VOID	free();		/* standard C library function */

VOID ZFree(pointer)		/* free memory */
char *pointer;
{
	free(pointer);
}
#endif