diff options
Diffstat (limited to 'lib/libF77/main.c')
| -rw-r--r-- | lib/libF77/main.c | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/lib/libF77/main.c b/lib/libF77/main.c index 7c1127c..d6ff84a 100644 --- a/lib/libF77/main.c +++ b/lib/libF77/main.c @@ -1,7 +1,7 @@ /* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */ #include "stdio.h" -#include "signal.h" +#include "signal1.h" #ifndef SIGIOT #ifdef SIGABRT @@ -90,7 +90,10 @@ sig_die("Trace trap", 1); int xargc; char **xargv; -int +#ifdef __cplusplus + } +#endif + #ifdef KR_headers main(argc, argv) int argc; char **argv; #else @@ -99,20 +102,20 @@ main(int argc, char **argv) { xargc = argc; xargv = argv; -signal(SIGFPE, sigfdie); /* ignore underflow, enable overflow */ +signal1(SIGFPE, sigfdie); /* ignore underflow, enable overflow */ #ifdef SIGIOT -signal(SIGIOT, sigidie); +signal1(SIGIOT, sigidie); #endif #ifdef SIGTRAP -signal(SIGTRAP, sigtrdie); +signal1(SIGTRAP, sigtrdie); #endif #ifdef SIGQUIT -if(signal(SIGQUIT,sigqdie) == SIG_IGN) - signal(SIGQUIT, SIG_IGN); +if(signal1(SIGQUIT,sigqdie) == SIG_IGN) + signal1(SIGQUIT, SIG_IGN); #endif -if(signal(SIGINT, sigindie) == SIG_IGN) - signal(SIGINT, SIG_IGN); -signal(SIGTERM,sigtdie); +if(signal1(SIGINT, sigindie) == SIG_IGN) + signal1(SIGINT, SIG_IGN); +signal1(SIGTERM,sigtdie); #ifdef pdp11 ldfps(01200); /* detect overflow as an exception */ @@ -130,6 +133,3 @@ exit(0); /* exit(0) rather than return(0) to bypass Cray bug */ return 0; /* For compilers that complain of missing return values; */ /* others will complain that this is unreachable code. */ } -#ifdef __cplusplus - } -#endif |
