diff options
| author | Jeffrey A Law <law@cygnus.com> | 1997-11-02 01:02:05 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1997-11-01 18:02:05 -0700 |
| commit | e67edc156e9b88eace27951f83420acdeecbc18e (patch) | |
| tree | e99ee1475bf5f5834f153702a8cc1fd017953c22 | |
| parent | a886ae747e1f40cb538b6cb9babf2e5904a7f2be (diff) | |
| download | gcc-e67edc156e9b88eace27951f83420acdeecbc18e.zip gcc-e67edc156e9b88eace27951f83420acdeecbc18e.tar.gz gcc-e67edc156e9b88eace27951f83420acdeecbc18e.tar.bz2 | |
* libF77/signal_.c: Undo last change until we can fix it right.
From-SVN: r16264
| -rw-r--r-- | gcc/f/runtime/ChangeLog.egcs | 4 | ||||
| -rw-r--r-- | gcc/f/runtime/libF77/signal_.c | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/f/runtime/ChangeLog.egcs b/gcc/f/runtime/ChangeLog.egcs index 889228f..8c88104 100644 --- a/gcc/f/runtime/ChangeLog.egcs +++ b/gcc/f/runtime/ChangeLog.egcs @@ -1,3 +1,7 @@ +Sat Nov 1 18:03:42 1997 Jeffrey A Law (law@cygnus.com) + + * libF77/signal_.c: Undo last change until we can fix it right. + Wed Oct 15 10:06:29 1997 Richard Henderson <rth@cygnus.com> * libF77/signal_.c (G77_signal_0): Make return type sig_pf as well. diff --git a/gcc/f/runtime/libF77/signal_.c b/gcc/f/runtime/libF77/signal_.c index 2e1af9d..1ac8139 100644 --- a/gcc/f/runtime/libF77/signal_.c +++ b/gcc/f/runtime/libF77/signal_.c @@ -2,13 +2,13 @@ #include "signal1.h" #ifdef KR_headers -sig_pf G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc; +ftnint G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc; #else -sig_pf G77_signal_0 (integer *sigp, sig_pf proc) +ftnint G77_signal_0 (integer *sigp, sig_pf proc) #endif { int sig; sig = (int)*sigp; - return signal(sig, proc); + return (ftnint)signal(sig, proc); } |