14 lines
511 B
C
14 lines
511 B
C
/*****************************************************************************
|
|
TAbort()
|
|
This function cleans up and terminates TECO-C.
|
|
*****************************************************************************/
|
|
#include "zport.h" /* define portability identifiers */
|
|
#include "tecoc.h" /* define general identifiers */
|
|
VVOID TAbort(tstat) /* terminate TECO-C */
|
|
DEFAULT tstat;
|
|
{
|
|
DBGFEN(2,"TAbort",NULL);
|
|
ClenUp(); /* close files, memory, etc. */
|
|
ZExit(tstat); /* terminate with given status */
|
|
}
|