From 93200f92e5e0c4450e7a350887112f9c974d8e3f Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 24 Nov 2015 08:52:54 +0000 Subject: [PATCH] trans.c (gnat_to_gnu): In type_annotate_only mode, do not build a NULL_EXPR for an N_Expanded_Name. * gcc-interface/trans.c (gnat_to_gnu): In type_annotate_only mode, do not build a NULL_EXPR for an N_Expanded_Name. From-SVN: r230791 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/trans.c | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 65cc3da8e4b..e95343be782 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 8cfa1a26dcc..ebb5b5ca2a0 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)), -- 2.30.2