1 files changed, 15 insertions, 25 deletions
diff --git a/contrib/libf2c/libI77/lio.h b/contrib/libf2c/libI77/lio.h
index 0123172..4e17115 100644
--- a/contrib/libf2c/libI77/lio.h
+++ b/contrib/libf2c/libI77/lio.h
@@ -43,32 +43,22 @@
 
 typedef union
 {
-	char	flchar;
-	short	flshort;
-	ftnint	flint;
+  signed char flchar;
+  short flshort;
+  ftnint flint;
 #ifdef Allow_TYQUAD
-	longint fllongint;
+  longint fllongint;
 #endif
-	real	flreal;
-	doublereal	fldouble;
-} flex;
+  real flreal;
+  doublereal fldouble;
+}
+flex;
 extern int f__scale;
-#ifdef KR_headers
-extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
-extern int l_read(), l_write();
-#else
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
-extern int l_write(ftnint*, char*, ftnlen, ftnint);
-extern void x_wsne(cilist*);
-extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*);
-extern int l_read(ftnint*,char*,ftnlen,ftnint);
-extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*);
-extern int z_rnew(void);
-#ifdef __cplusplus
-	}
-#endif
-#endif
+extern int (*f__lioproc) (ftnint *, char *, ftnlen, ftnint);
+extern int l_write (ftnint *, char *, ftnlen, ftnint);
+extern void x_wsne (cilist *);
+extern int c_le (cilist *), (*l_getc) (void), (*l_ungetc) (int, FILE *);
+extern int l_read (ftnint *, char *, ftnlen, ftnint);
+extern integer e_rsle (void), e_wsle (void), s_wsne (cilist *);
+extern int z_rnew (void);
 extern ftnint L_len;