decl.c (gnat_to_gnu_entity): In ASIS mode, fully lay out the minimal record type.

	* gcc-interface/decl.c (gnat_to_gnu_entity) <Concurrent types>: In
	ASIS mode, fully lay out the minimal record type.

From-SVN: r233806

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 9fcf75ccf6e476c4263584e641ef7e2ea72d6599..ebb7b0e45d83a8485a209705581cd83f62cbcf78 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2016-02-29  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/decl.c (gnat_to_gnu_entity) <Concurrent types>: In
+       ASIS mode, fully lay out the minimal record type.
+
 2016-02-29  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/trans.c (finalize_nrv_r): Remove obsolete code.

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index b4ba8e51bce94a7f8447103e5cc094285d094da4..af85e8080afd804d33faec581ae233695c48fa1a 100644 (file)
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -4926,7 +4926,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
                  gnu_field_list = gnu_field;
                }
 
-             TYPE_FIELDS (gnu_type) = nreverse (gnu_field_list);
+             finish_record_type (gnu_type, nreverse (gnu_field_list), 0,
+                                 false);
            }
          else
            gnu_type = void_type_node;