From: Jeffrey A Law <law@cygnus.com>
Date: Sun, 2 Nov 1997 01:02:05 +0000 (+0000)
Subject: * libF77/signal_.c: Undo last change until we can fix it right.
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e67edc156e9b88eace27951f83420acdeecbc18e;p=platform%2Fupstream%2Fgcc.git

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

From-SVN: r16264
---

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);
 	}