From: Richard Henderson <rth@cygnus.com>
Date: Wed, 15 Oct 1997 16:02:53 +0000 (-0600)
Subject: signal_.c (G77_signal_0): Make return type sig_pf as well.
X-Git-Tag: releases/egcs-1.0.0~331
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0e52c1777d3095e5fb9016de8508b249aa0e3a5b;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/f/runtime/libF77/signal_.c b/gcc/f/runtime/libF77/signal_.c
index 1ac81391aeff..2e1af9d4ae01 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
-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);
 	}
diff --git a/gcc/f/runtime/libI77/fio.h b/gcc/f/runtime/libI77/fio.h
index 769d360a6263..e9e3b3914077 100644
--- a/gcc/f/runtime/libI77/fio.h
+++ b/gcc/f/runtime/libI77/fio.h
@@ -4,6 +4,9 @@
 /* ANSI C */
 #include <stddef.h>
 #endif
+#ifdef STDC_HEADERS
+#include <string.h>
+#endif
 
 #ifndef SEEK_SET
 #define SEEK_SET 0
diff --git a/gcc/f/runtime/libU77/chmod_.c b/gcc/f/runtime/libU77/chmod_.c
index 7ca05b7604d0..d482d9ed8284 100644
--- a/gcc/f/runtime/libU77/chmod_.c
+++ b/gcc/f/runtime/libU77/chmod_.c
@@ -31,6 +31,9 @@ Boston, MA 02111-1307, USA.  */
 #else
 #  include <stdio.h>
 #endif
+#if STDC_HEADERS
+#  include <string.h>
+#endif
 
 #include "f2c.h"