diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2016-02-16 17:51:56 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2016-02-16 17:51:56 +0000 |
| commit | 8c7eac6260ac801715a45c8c8ffad2dd96d77bac (patch) | |
| tree | bedaeb6f6828ea78020ea7f52b264f1f9ea440bd /gcc/ada/gcc-interface/misc.c | |
| parent | 7c175186bc2ed953eb6b72336fde6607fee5fbaf (diff) | |
| download | gcc-8c7eac6260ac801715a45c8c8ffad2dd96d77bac.zip gcc-8c7eac6260ac801715a45c8c8ffad2dd96d77bac.tar.gz gcc-8c7eac6260ac801715a45c8c8ffad2dd96d77bac.tar.bz2 | |
misc.c (gnat_enum_underlying_base_type): New function.
* gcc-interface/misc.c (gnat_enum_underlying_base_type): New function.
(LANG_HOOKS_ENUM_UNDERLYING_BASE_TYPE): Define to above.
From-SVN: r233467
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 75e467b..f54e390 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -575,6 +575,15 @@ gnat_descriptive_type (const_tree type) return NULL_TREE; } +/* Return the underlying base type of an enumeration type. */ + +static tree +gnat_enum_underlying_base_type (const_tree) +{ + /* Enumeration types are base types in Ada. */ + return void_type_node; +} + /* Return the type to be used for debugging information instead of TYPE or NULL_TREE if TYPE is fine. */ @@ -1390,6 +1399,8 @@ get_lang_specific (tree node) #define LANG_HOOKS_GET_TYPE_BIAS gnat_get_type_bias #undef LANG_HOOKS_DESCRIPTIVE_TYPE #define LANG_HOOKS_DESCRIPTIVE_TYPE gnat_descriptive_type +#undef LANG_HOOKS_ENUM_UNDERLYING_BASE_TYPE +#define LANG_HOOKS_ENUM_UNDERLYING_BASE_TYPE gnat_enum_underlying_base_type #undef LANG_HOOKS_GET_DEBUG_TYPE #define LANG_HOOKS_GET_DEBUG_TYPE gnat_get_debug_type #undef LANG_HOOKS_GET_FIXED_POINT_TYPE_INFO |