From 3946f0003c6707fbd4a19533d4e12713f229f349 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 15 May 2017 08:38:37 +0000 Subject: [PATCH] trans.c (Identifier_to_gnu): Also accept incomplete types not coming from a limited context. * gcc-interface/trans.c (Identifier_to_gnu): Also accept incomplete types not coming from a limited context. From-SVN: r248052 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/trans.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 8fa7ab7821f..6d9a86d17fe 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2017-05-15 Eric Botcazou + + * gcc-interface/trans.c (Identifier_to_gnu): Also accept incomplete + types not coming from a limited context. + 2017-05-15 Eric Botcazou * gcc-interface/trans.c (Compilation_Unit_to_gnu): Skip subprograms on diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 117ce261b62..4c80053fabf 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -1044,7 +1044,7 @@ Identifier_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p) && (Etype (gnat_node) == Packed_Array_Impl_Type (gnat_temp_type))) || (Is_Class_Wide_Type (Etype (gnat_node))) - || (IN (Ekind (gnat_temp_type), Private_Kind) + || (IN (Ekind (gnat_temp_type), Incomplete_Or_Private_Kind) && Present (Full_View (gnat_temp_type)) && ((Etype (gnat_node) == Full_View (gnat_temp_type)) || (Is_Packed (Full_View (gnat_temp_type)) -- 2.30.2