diff options
author | Zack Weinberg <zack@gcc.gnu.org> | 2004-05-18 01:26:21 +0000 |
---|---|---|
committer | Zack Weinberg <zack@gcc.gnu.org> | 2004-05-18 01:26:21 +0000 |
commit | b4117c306105c7e3279bbbabab1dd361a3b35b62 (patch) | |
tree | 50453d3a085029670f5bc4d0cbb0ea22590d6769 /gcc/c-common.c | |
parent | 54b4ba60f20d3870a79467caa3b604971225d388 (diff) | |
download | gcc-b4117c306105c7e3279bbbabab1dd361a3b35b62.zip gcc-b4117c306105c7e3279bbbabab1dd361a3b35b62.tar.gz gcc-b4117c306105c7e3279bbbabab1dd361a3b35b62.tar.bz2 |
Makefile.def, [...]: Remove all mention of libf2c.
top:
* Makefile.def, Makefile.tpl, configure.in: Remove all mention
of libf2c.
* configure, Makefile.in: Regenerate.
contrib:
* gcc_update: Remove gcc/f/intdoc.texi and all libf2c files
from list of files to be touched.
* convert_to_f2c, convert_to_g2c, download_f2c: Delete.
gcc:
* f: Entire directory removed
* c-common.h (CTI_G77_INTEGER_TYPE, CTI_G77_UINTEGER_TYPE)
(CTI_G77_LONGINT_TYPE, CTI_G77_ULONGINT_TYPE)
(g77_integer_type_node, g77_uinteger_type_node)
(g77_longint_type_node, or g77_ulongint_type_node): Delete.
* c-common.c (c_common_nodes_and_builtins): Do not initialize
the above set of variables.
* config/i386/uwin.h: No need to define WIN32_UWIN_TARGET.
* doc/invoke.texi, doc/standards.texi: Remove cross-references
to g77 manual.
gcc/po:
* exgettext (spec_error_string): Do not scan beyond the end of
the string for a close brace. Do not bail out at the first
incidence of %%e.
* gcc.pot: Regenerate.
From-SVN: r81967
Diffstat (limited to 'gcc/c-common.c')
-rw-r--r-- | gcc/c-common.c | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/gcc/c-common.c b/gcc/c-common.c index 11b4b87..2716707 100644 --- a/gcc/c-common.c +++ b/gcc/c-common.c @@ -3253,59 +3253,6 @@ c_common_nodes_and_builtins (void) (build_decl (TYPE_DECL, get_identifier ("complex long double"), complex_long_double_type_node)); - /* Types which are common to the fortran compiler and libf2c. When - changing these, you also need to be concerned with f/com.h. */ - - if (TYPE_PRECISION (float_type_node) - == TYPE_PRECISION (long_integer_type_node)) - { - g77_integer_type_node = long_integer_type_node; - g77_uinteger_type_node = long_unsigned_type_node; - } - else if (TYPE_PRECISION (float_type_node) - == TYPE_PRECISION (integer_type_node)) - { - g77_integer_type_node = integer_type_node; - g77_uinteger_type_node = unsigned_type_node; - } - else - g77_integer_type_node = g77_uinteger_type_node = NULL_TREE; - - if (g77_integer_type_node != NULL_TREE) - { - lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, - get_identifier ("__g77_integer"), - g77_integer_type_node)); - lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, - get_identifier ("__g77_uinteger"), - g77_uinteger_type_node)); - } - - if (TYPE_PRECISION (float_type_node) * 2 - == TYPE_PRECISION (long_integer_type_node)) - { - g77_longint_type_node = long_integer_type_node; - g77_ulongint_type_node = long_unsigned_type_node; - } - else if (TYPE_PRECISION (float_type_node) * 2 - == TYPE_PRECISION (long_long_integer_type_node)) - { - g77_longint_type_node = long_long_integer_type_node; - g77_ulongint_type_node = long_long_unsigned_type_node; - } - else - g77_longint_type_node = g77_ulongint_type_node = NULL_TREE; - - if (g77_longint_type_node != NULL_TREE) - { - lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, - get_identifier ("__g77_longint"), - g77_longint_type_node)); - lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, - get_identifier ("__g77_ulongint"), - g77_ulongint_type_node)); - } - record_builtin_type (RID_VOID, NULL, void_type_node); void_zero_node = build_int_2 (0, 0); |