ack/lang/a68s/liba68s/exit.c

15 lines
208 B
C
Raw Permalink Normal View History

1988-10-04 13:41:01 +00:00
#include <stdio.h>
cleenup()
{
register FILE *iop ;
extern FILE *_lastbuf ;
for ( iop = _iob ; iop < _lastbuf ; iop ++ )
fclose( iop ) ;
}
exit(n)
int n;
{ cleenup() ; _exit(n) ; }