* gcc-interface/trans.c (gnat_to_gnu): In type_annotate_only mode, do

	not build a NULL_EXPR for an N_Expanded_Name.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@230791 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 65cc3da8e4b0a9c69552b38ceab5d88a4838b902..e95343be782b136602290313d08368636c0b5297 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2015-11-24  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/trans.c (gnat_to_gnu): In type_annotate_only mode, do
+       not build a NULL_EXPR for an N_Expanded_Name.
+
 2015-11-24  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/decl.c (is_cplusplus_method): Check that the type of

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 8cfa1a26dcc10323872bc710739725e4540f69dc..ebb5b5ca2a0d2cbc9edf5b8e36255922a4b47996 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -5734,6 +5734,7 @@ gnat_to_gnu (Node_Id gnat_node)
      types, make this into a NULL_EXPR.  */
   if (type_annotate_only
       && IN (kind, N_Subexpr)
+      && kind != N_Expanded_Name
       && kind != N_Identifier
       && !Compile_Time_Known_Value (gnat_node))
     return build1 (NULL_EXPR, get_unpadded_type (Etype (gnat_node)),