From: ebotcazou Date: Tue, 24 Nov 2015 08:52:54 +0000 (+0000) Subject: * gcc-interface/trans.c (gnat_to_gnu): In type_annotate_only mode, do X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f94c12377e1e44408c4c3bba06828a8ea42c3693;p=thirdparty%2Fgcc.git * 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 65cc3da8e4b0..e95343be782b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2015-11-24 Eric Botcazou + + * 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 * 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 8cfa1a26dcc1..ebb5b5ca2a0d 100644 --- 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)),