From 88ff21ff95928267017fca5d02b6734a739139e7 Mon Sep 17 00:00:00 2001 From: ebotcazou Date: Tue, 16 Feb 2016 17:51:56 +0000 Subject: [PATCH] * gcc-interface/misc.c (gnat_enum_underlying_base_type): New function. (LANG_HOOKS_ENUM_UNDERLYING_BASE_TYPE): Define to above. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@233467 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/misc.c | 11 +++++++++++ 2 files changed, 16 insertions(+) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ec6a8c4..4ed1903 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2016-02-16 Eric Botcazou + + * gcc-interface/misc.c (gnat_enum_underlying_base_type): New function. + (LANG_HOOKS_ENUM_UNDERLYING_BASE_TYPE): Define to above. + 2016-02-12 Jakub Jelinek * prj-tree.ads: Spelling fixes - behaviour -> behavior and 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 -- 2.7.4