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 */
|
||
|
}
|