MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* libF77/signal_.c: Undo last change until we can fix it right.

Browse Source 
From-SVN: r16264
This commit is contained in:
Jeffrey A Law 1997-11-02 01:02:05 +00:00 committed by Jeff Law
parent a886ae747e
commit e67edc156e
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/f/runtime/ChangeLog.egcs
View File

@ -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> 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. * libF77/signal_.c (G77_signal_0): Make return type sig_pf as well.

6
gcc/f/runtime/libF77/signal_.c
View File

@ -2,13 +2,13 @@
#include "signal1.h" #include "signal1.h"
#ifdef KR_headers #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 #else
sig_pf G77_signal_0 (integer *sigp, sig_pf proc) ftnint G77_signal_0 (integer *sigp, sig_pf proc)
#endif #endif
{ {
int sig; int sig;
sig = (int)*sigp; sig = (int)*sigp;
return signal(sig, proc); return (ftnint)signal(sig, proc);
} }