gnu/lib/libf2c/libF77/sig_die.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

#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);
    }
}