Commit 0e52c177 by Richard Henderson Committed by Jeff Law

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.
        * libI77/fio.h: Include <string.h> if STDC_HEADERS.
        * libU77/chmod_.c: Likewise.

From-SVN: r15911
parent 38bf38c1
...@@ -2,13 +2,13 @@ ...@@ -2,13 +2,13 @@
#include "signal1.h" #include "signal1.h"
#ifdef KR_headers #ifdef KR_headers
ftnint G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc; sig_pf G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc;
#else #else
ftnint G77_signal_0 (integer *sigp, sig_pf proc) sig_pf G77_signal_0 (integer *sigp, sig_pf proc)
#endif #endif
{ {
int sig; int sig;
sig = (int)*sigp; sig = (int)*sigp;
return (ftnint)signal(sig, proc); return signal(sig, proc);
} }
...@@ -4,6 +4,9 @@ ...@@ -4,6 +4,9 @@
/* ANSI C */ /* ANSI C */
#include <stddef.h> #include <stddef.h>
#endif #endif
#ifdef STDC_HEADERS
#include <string.h>
#endif
#ifndef SEEK_SET #ifndef SEEK_SET
#define SEEK_SET 0 #define SEEK_SET 0
......
...@@ -31,6 +31,9 @@ Boston, MA 02111-1307, USA. */ ...@@ -31,6 +31,9 @@ Boston, MA 02111-1307, USA. */
#else #else
# include <stdio.h> # include <stdio.h>
#endif #endif
#if STDC_HEADERS
# include <string.h>
#endif
#include "f2c.h" #include "f2c.h"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment