* tree-sra.c (build_ref_for_offset_1): Update comment.

From-SVN: r152893

gcc/ChangeLog

+2009-10-16  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* tree-sra.c (build_ref_for_offset_1): Update comment.
+
 2009-10-16  Wolfgang Gellerich  <gellerich@de.ibm.com>
 
 	* config/s390/s390.md (atype): Added missing values.

gcc/tree-sra.c

@@ -1231,7 +1231,8 @@ build_ref_for_offset_1 (tree *res, tree type, HOST_WIDE_INT offset,
 	case UNION_TYPE:
 	case QUAL_UNION_TYPE:
 	case RECORD_TYPE:
-	  /* Some ADA records are half-unions, treat all of them the same.  */
+	  /* ??? Some records used to be half-unions in Ada so the code treats
+	     the 3 container types the same.  This has been fixed in Ada.  */
 	  for (fld = TYPE_FIELDS (type); fld; fld = TREE_CHAIN (fld))
 	    {
 	      HOST_WIDE_INT pos, size;