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 @@
#include "signal1.h"
#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
ftnint G77_signal_0 (integer *sigp, sig_pf proc)
sig_pf G77_signal_0 (integer *sigp, sig_pf proc)
#endif
{
int sig;
sig = (int)*sigp;
return (ftnint)signal(sig, proc);
return signal(sig, proc);
}
......@@ -4,6 +4,9 @@
/* ANSI C */
#include <stddef.h>
#endif
#ifdef STDC_HEADERS
#include <string.h>
#endif
#ifndef SEEK_SET
#define SEEK_SET 0
......
......@@ -31,6 +31,9 @@ Boston, MA 02111-1307, USA. */
#else
# include <stdio.h>
#endif
#if STDC_HEADERS
# include <string.h>
#endif
#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