libf2c/libF77/sig_die.c

   1 #include <stdio.h>
   2 #include <signal.h>
   3
   4 #ifndef SIGIOT
   5 #ifdef SIGABRT
   6 #define SIGIOT SIGABRT
   7 #endif
   8 #endif
   9
  10 #ifdef KR_headers
  11 void sig_die(s, kill) register char *s; int kill;
  12 #else
  13 #include <stdlib.h>
  14 #ifdef __cplusplus
  15 extern "C" {
  16 #endif
  17  extern void f_exit(void);
  18
  19 void sig_die(register char *s, int kill)
  20 #endif
  21 {
  22         /* print error message, then clear buffers */
  23         fprintf(stderr, "%s\n", s);
  24
  25         if(kill)
  26                 {
  27                 fflush(stderr);
  28                 f_exit();
  29                 fflush(stderr);
  30                 /* now get a core */
  31 #ifdef SIGIOT
  32                 signal(SIGIOT, SIG_DFL);
  33 #endif
  34                 abort();
  35                 }
  36         else {
  37 #ifdef NO_ONEXIT
  38                 f_exit();
  39 #endif
  40                 exit(1);
  41                 }
  42         }
  43 #ifdef __cplusplus
  44 }
  45 #endif