Deriving a discriminated record type can create a type mismatch when the type 
is packed.  This is now detected on the mainline.  The fix is to use the 
proper type to build the problematic COMPONENT_REF.

Tested on i586-suse-linux, applied on the mainline.


2009-10-24  Eric Botcazou  <ebotcazou@adacore.com>

	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Type>: When
	processing the parent type, build the COMPONENT_REF for a discriminant
	with the proper type.


2009-10-24  Eric Botcazou  <ebotcazou@adacore.com>

	* gnat.dg/specs/pack4.ads: New test.


-- 
Eric Botcazou