diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-11-24 08:52:54 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-11-24 08:52:54 +0000 |
| commit | 93200f92e5e0c4450e7a350887112f9c974d8e3f (patch) | |
| tree | 65318ddc22726b7f8824168b8938dba5353912a4 /gcc/ada/gcc-interface | |
| parent | 664dd3cfbd562086f377e0ab469ca21e332dd933 (diff) | |
| download | gcc-93200f92e5e0c4450e7a350887112f9c974d8e3f.zip gcc-93200f92e5e0c4450e7a350887112f9c974d8e3f.tar.gz gcc-93200f92e5e0c4450e7a350887112f9c974d8e3f.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/gcc-interface')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 8cfa1a2..ebb5b5c 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)), |