407c72cb29
* libF77/*: Fix formatting. * libI77/*: Likewise. * libU77/*: Likewise. From-SVN: r54145
38 lines
541 B
C
38 lines
541 B
C
#include <stdio.h>
|
|
#include <signal.h>
|
|
|
|
#ifndef SIGIOT
|
|
#ifdef SIGABRT
|
|
#define SIGIOT SIGABRT
|
|
#endif
|
|
#endif
|
|
|
|
#include <stdlib.h>
|
|
extern void f_exit (void);
|
|
|
|
void
|
|
sig_die (register char *s, int kill)
|
|
{
|
|
/* print error message, then clear buffers */
|
|
fprintf (stderr, "%s\n", s);
|
|
|
|
if (kill)
|
|
{
|
|
fflush (stderr);
|
|
f_exit ();
|
|
fflush (stderr);
|
|
/* now get a core */
|
|
#ifdef SIGIOT
|
|
signal (SIGIOT, SIG_DFL);
|
|
#endif
|
|
abort ();
|
|
}
|
|
else
|
|
{
|
|
#ifdef NO_ONEXIT
|
|
f_exit ();
|
|
#endif
|
|
exit (1);
|
|
}
|
|
}
|