commit 196aa9dd488e11c4b6076fed9e7820f88990eef6
author pmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4> Tue Dec 11 11:11:37 2018 +0000
committer pmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4> Tue Dec 11 11:11:37 2018 +0000
tree 6713d9d5083a4a32e5cd5b92ac41ba9f35f4019c
parent 12202386a4e107817b3006fe29583087d6f9010a

[Ada] Plug small loophole with pathological packed array type

This fixes a crash in gigi on a pathological packed array type, whose
component type is a record type without representation clause or packing
but with a clause that bumps its size to a non-multiple value of the
storage unit.  In this case, the front-end fails to detect that calls
to the packing manpulation routines of the run time are necessary.

The fix doesn't change anything for non-pathological cases, i.e. when
the component type has a representation clause or is packed.

2018-12-11  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* exp_aggr.adb (Packed_Array_Aggregate_Handled): Bail out for
	any non-scalar type as component type of the array.

gcc/testsuite/

	* gnat.dg/packed_array.adb, gnat.dg/packed_array.ads,
	gnat.dg/packed_array_pkg.ads: New testcase.

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