diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2004-07-15 18:52:49 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2004-07-15 16:52:49 +0000 |
| commit | 3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9 (patch) | |
| tree | 5f8cfd6717d2fc2edd87b592618718293587582c /libf2c/libI77/lio.h | |
| parent | 48b456474c69a132da15996c61009e35efa59492 (diff) | |
| download | gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.zip gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.tar.gz gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.tar.bz2 | |
libf2c: Removed.
2004-07-15 Toon Moene <toon@moene.indiv.nluug.nl>
* libf2c: Removed.
* gcc/gccbug.in: Updated because of libf2c removal.
* maintainer-scripts/gcc_release: Ditto.
From-SVN: r84759
Diffstat (limited to 'libf2c/libI77/lio.h')
| -rw-r--r-- | libf2c/libI77/lio.h | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/libf2c/libI77/lio.h b/libf2c/libI77/lio.h deleted file mode 100644 index 4e17115..0000000 --- a/libf2c/libI77/lio.h +++ /dev/null @@ -1,64 +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 -{ - signed char flchar; - short flshort; - ftnint flint; -#ifdef Allow_TYQUAD - longint fllongint; -#endif - real flreal; - doublereal fldouble; -} -flex; -extern int f__scale; -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; |