/*
* Debug wrapper for the exit(status) system routine.  We have had some trouble
* with versions of exit() that return to us, so we try several ways of getting
* the current process to exit.
*/
#include "V.h"
char m_cantexit[] = "%s	### %s(%d) returned!!!";

d_exit(s)
{	float x,y,z;
	V3 "exit(%d)",s D;
	exit(s);	/* Preferred, as a graceful close-all-files and exit */
	P2 m_cantexit,pname,"exit",s D;
	_exit(s);	/* Less friendly, as it doesn't close files */
	P2 m_cantexit,pname,"_exit",s D;
	x = 0.0;
	y = 1.0;
	z = y / x;	/* Maybe this will do the job */
	return -1;	/* Shouldn't happen!!! */
}