diff options
| author | Chris Demetriou <cgd@sibyte.com> | 2000-05-18 17:53:04 +0000 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2000-05-18 10:53:04 -0700 |
| commit | 7aba5a5ff92706b3db2ef3bfa8df22ea14bc2118 (patch) | |
| tree | c3ae46a413ca81be9f5e82070f7c0313b25dbf07 /gcc/c-common.h | |
| parent | 91542396a697108f57f553951d6ff7c0c03c38d8 (diff) | |
| download | gcc-7aba5a5ff92706b3db2ef3bfa8df22ea14bc2118.zip gcc-7aba5a5ff92706b3db2ef3bfa8df22ea14bc2118.tar.gz gcc-7aba5a5ff92706b3db2ef3bfa8df22ea14bc2118.tar.bz2 | |
c-common.h (enum c_tree_index): Add g77 type entries.
* c-common.h (enum c_tree_index): Add g77 type entries.
(g77_integer_type_node, g77_uinteger_type_node): New.
(g77_longint_type_node, g77_ulongint_type_node): New.
* c-decl.c (init_decl_processing): Initialize them.
Co-Authored-By: Richard Henderson <rth@cygnus.com>
From-SVN: r33992
Diffstat (limited to 'gcc/c-common.h')
| -rw-r--r-- | gcc/c-common.h | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gcc/c-common.h b/gcc/c-common.h index 17db8fb..0d25b2a 100644 --- a/gcc/c-common.h +++ b/gcc/c-common.h @@ -45,7 +45,12 @@ enum c_tree_index CTI_VOID_FTYPE_PTR, CTI_INT_FTYPE_INT, CTI_PTR_FTYPE_SIZETYPE, - + + CTI_G77_INTEGER_TYPE, + CTI_G77_UINTEGER_TYPE, + CTI_G77_LONGINT_TYPE, + CTI_G77_ULONGINT_TYPE, + CTI_MAX }; @@ -74,6 +79,12 @@ extern tree c_global_trees[CTI_MAX]; #define int_ftype_int c_global_trees[CTI_INT_FTYPE_INT] #define ptr_ftype_sizetype c_global_trees[CTI_PTR_FTYPE_SIZETYPE] +/* g77 integer types, which which must be kept in sync with f/com.h */ +#define g77_integer_type_node c_global_trees[CTI_G77_INTEGER_TYPE] +#define g77_uinteger_type_node c_global_trees[CTI_G77_UINTEGER_TYPE] +#define g77_longint_type_node c_global_trees[CTI_G77_LONGINT_TYPE] +#define g77_ulongint_type_node c_global_trees[CTI_G77_ULONGINT_TYPE] + /* Pointer to function to generate the VAR_DECL for __FUNCTION__ etc. ID is the identifier to use, NAME is the string. TYPE_DEP indicates whether it depends on type of the function or not |