From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 29 Feb 2016 09:21:12 +0000 (+0000)
Subject: decl.c (gnat_to_gnu_entity): In ASIS mode, fully lay out the minimal record type.
X-Git-Tag: basepoints/gcc-7~699
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=68ec5613422d80f61d93d493de42397b05f886f6;p=thirdparty%2Fgcc.git

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 9fcf75ccf6e4..ebb7b0e45d83 100644
--- 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 b4ba8e51bce9..af85e8080afd 100644
--- 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;