Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libI77 / lio.h

diff --git a/libf2c/libI77/lio.h b/libf2c/libI77/lio.h
deleted file mode 100644 (file)
index 0123172..0000000
--- a/libf2c/libI77/lio.h
+++ /dev/null
@@ -1,74 +0,0 @@
-/*     copy of ftypes from the compiler */
-/* variable types
- * numeric assumptions:
- *     int < reals < complexes
- *     TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
- */
-
-/* 0-10 retain their old (pre LOGICAL*1, etc.) */
-/* values to allow mixing old and new objects. */
-
-#define TYUNKNOWN 0
-#define TYADDR 1
-#define TYSHORT 2
-#define TYLONG 3
-#define TYREAL 4
-#define TYDREAL 5
-#define TYCOMPLEX 6
-#define TYDCOMPLEX 7
-#define TYLOGICAL 8
-#define TYCHAR 9
-#define TYSUBR 10
-#define TYINT1 11
-#define TYLOGICAL1 12
-#define TYLOGICAL2 13
-#ifdef Allow_TYQUAD
-#undef TYQUAD
-#define TYQUAD 14
-#endif
-
-#define        LINTW   24
-#define        LINE    80
-#define        LLOGW   2
-#ifdef Old_list_output
-#define        LLOW    1.0
-#define        LHIGH   1.e9
-#define        LEFMT   " %# .8E"
-#define        LFFMT   " %# .9g"
-#else
-#define        LGFMT   "%.9G"
-#endif
-/* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */
-#define        LEFBL   24
-
-typedef union
-{
-       char    flchar;
-       short   flshort;
-       ftnint  flint;
-#ifdef Allow_TYQUAD
-       longint fllongint;
-#endif
-       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 ftnint L_len;