2004-10-26 Eric Botcazou <ebotcazou@act-europe.fr>

2004-10-26  Eric Botcazou  <ebotcazou@act-europe.fr>

	* decl.c (gnat_to_gnu_field): Use the type of the inner object for a
	JM type only if its size matches that of the wrapper.  When a size is
	prescribed and the field is not aliased, remove the wrapper of a JM
	type only if the size is not greater than that of the packed array.
	(gnat_to_gnu_entity): Change the extension of packed array wrappers
	from LJM to JM.

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