diff options
| author | Michael Sokolov <msokolov@ivan.Harhan.ORG> | 2001-01-25 05:11:38 +0000 |
|---|---|---|
| committer | Michael Sokolov <msokolov@gcc.gnu.org> | 2001-01-25 05:11:38 +0000 |
| commit | cf480ba7da5dda6ca27d61f3b8d499fcd1ab1ebe (patch) | |
| tree | 1957da560db51a4d46f5bf77445f7818371002bd /libf2c/libU77/alarm_.c | |
| parent | db353c2c695386e32bd065ff1a99a7e761d64612 (diff) | |
| download | gcc-cf480ba7da5dda6ca27d61f3b8d499fcd1ab1ebe.tar.gz | |
alarm_.c: Separate the #ifdef KR_headers logic from the G77_alarm_0 function definition.
* libU77/alarm_.c: Separate the #ifdef KR_headers logic from the
G77_alarm_0 function definition. Check for SIG_ERR and provide our own
if missing.
From-SVN: r39256
Diffstat (limited to 'libf2c/libU77/alarm_.c')
| -rw-r--r-- | libf2c/libU77/alarm_.c | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/libf2c/libU77/alarm_.c b/libf2c/libU77/alarm_.c index 3e2f293d9b1..e7f9c2ddcc4 100644 --- a/libf2c/libU77/alarm_.c +++ b/libf2c/libU77/alarm_.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1997 Free Software Foundation, Inc. +/* Copyright (C) 1997, 2001 Free Software Foundation, Inc. This file is part of GNU Fortran libU77 library. This library is free software; you can redistribute it and/or modify it @@ -39,14 +39,20 @@ typedef RETSIGTYPE (*sig_type)(); #ifdef KR_headers extern sig_type signal(); +#else +#include <signal.h> +typedef int (*sig_proc)(int); +#endif + +#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 -#include <signal.h> -typedef int (*sig_proc)(int); - integer G77_alarm_0 (integer *seconds, sig_proc proc) #endif { |