summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libU77/alarm_.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libU77/alarm_.c')
-rw-r--r--contrib/libf2c/libU77/alarm_.c23
1 files changed, 5 insertions, 18 deletions
diff --git a/contrib/libf2c/libU77/alarm_.c b/contrib/libf2c/libU77/alarm_.c
index e7f9c2d..d2c9382 100644
--- a/contrib/libf2c/libU77/alarm_.c
+++ b/contrib/libf2c/libU77/alarm_.c
@@ -29,36 +29,23 @@ Boston, MA 02111-1307, USA. */
#ifndef RETSIGTYPE
/* we shouldn't rely on this... */
-#ifdef KR_headers
-#define RETSIGTYPE int
-#else
#define RETSIGTYPE void
#endif
-#endif
-typedef RETSIGTYPE (*sig_type)();
+typedef RETSIGTYPE (*sig_type) ();
-#ifdef KR_headers
-extern sig_type signal();
-#else
#include <signal.h>
-typedef int (*sig_proc)(int);
-#endif
+typedef int (*sig_proc) (int);
#ifndef SIG_ERR
#define SIG_ERR ((sig_type) -1)
#endif
-#ifdef KR_headers
-integer G77_alarm_0 (seconds, proc)
- integer *seconds;
- sig_type proc;
-#else
-integer G77_alarm_0 (integer *seconds, sig_proc proc)
-#endif
+integer
+G77_alarm_0 (integer * seconds, sig_proc proc)
{
int status;
#if defined (HAVE_ALARM) && defined (SIGALRM)
- if (signal(SIGALRM, (sig_type)proc) == SIG_ERR)
+ if (signal (SIGALRM, (sig_type) proc) == SIG_ERR)
status = -1;
else
status = alarm (*seconds);
OpenPOWER on IntegriCloud