Update libg2c to netlib f2c-19990317

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@25818 138bc75d-0d04-0410-961f-82ee72b054a4

5 files changed, 16 insertions, 9 deletions

diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c
index 8c4662d78ee..360b966a96f 100644
--- a/libf2c/libI77/Version.c
+++ b/libf2c/libI77/Version.c
@@ -1,4 +1,4 @@
-static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980617\n";
+static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980907\n";
 
 /*
 */
@@ -293,6 +293,8 @@ wrtfmt.c:
 		 floating-point numbers (containing either a decimal point
 		 or an exponent field) as errors when they appear as list
 		 input for integer data. */
+/* 7 Sept. 1998: move e_wdfe from sfe.c to dfe.c, where it was originally.
+		 Why did it ever move to sfe.c? */
 
 
 
diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c
index bcf2c8016a6..f639ab51ce7 100644
--- a/libf2c/libI77/dfe.c
+++ b/libf2c/libI77/dfe.c
@@ -138,3 +138,9 @@ integer e_rdfe(Void)
 	en_fio();
 	return(0);
 }
+
+integer e_wdfe(Void)
+{
+	f__init = 1;
+	return en_fio();
+}
diff --git a/libf2c/libI77/endfile.c b/libf2c/libI77/endfile.c
index 0b785a95165..0e4ac0318e9 100644
--- a/libf2c/libI77/endfile.c
+++ b/libf2c/libI77/endfile.c
@@ -87,7 +87,9 @@ t_runc(alist *a)
 		}
 	if (!(bf = fopen(b->ufnm, f__r_mode[0]))
 	 || !(tf = tmpfile())) {
+#ifdef NON_UNIX_STDIO
  bad:
+#endif
 		rc = 1;
 		goto done;
 		}
diff --git a/libf2c/libI77/lread.c b/libf2c/libI77/lread.c
index 24b621db15b..3d400596224 100644
--- a/libf2c/libI77/lread.c
+++ b/libf2c/libI77/lread.c
@@ -24,14 +24,17 @@ int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
 #undef min
 #undef max
 #include <stdlib.h>
-int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint), (*l_getc)(void),
-	(*l_ungetc)(int,FILE*);
 #endif
 
 #include "fmt.h"
 #include "lio.h"
 #include "fp.h"
 
+#ifndef KR_headers
+int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint), (*l_getc)(void),
+	(*l_ungetc)(int,FILE*);
+#endif
+
 int l_eof;
 
 #define isblnk(x) (f__ltab[x+1]&B)
diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c
index eb6260fec08..f7c3b83b734 100644
--- a/libf2c/libI77/sfe.c
+++ b/libf2c/libI77/sfe.c
@@ -32,9 +32,3 @@ integer e_wsfe(Void)
 	f__fmtbuf=NULL;
 	return n;
 }
-
-integer e_wdfe(Void)
-{
-	f__init = 1;
-	return en_fio();
-}