* decl.c (components_to_record): Improve comment.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131858 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 9db0f84..1183d0f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-26  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * decl.c (components_to_record): Improve comment.
+
 2008-01-22  Eric Botcazou  <ebotcazou@adacore.com>
 
        * decl.c (components_to_record): Do not reuse the empty union type

diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c
index c57e145..9945e4e 100644 (file)
--- a/gcc/ada/decl.c
+++ b/gcc/ada/decl.c
@@ -6066,8 +6066,9 @@ components_to_record (tree gnu_record_type, Node_Id component_list,
          Set_Present_Expr (variant, annotate_value (gnu_qual));
 
          /* If this is an Unchecked_Union and we have exactly one field,
-            use that field here.  */
-         if (unchecked_union && TYPE_FIELDS (gnu_variant_type)
+            use this field directly to match the layout of C unions.  */
+         if (unchecked_union
+             && TYPE_FIELDS (gnu_variant_type)
              && !TREE_CHAIN (TYPE_FIELDS (gnu_variant_type)))
            gnu_field = TYPE_FIELDS (gnu_variant_type);
          else