mirror of
https://forge.sourceware.org/marek/gcc.git
synced 2026-02-22 12:00:11 -05:00
8766887815
* gcc-interface/decl.c (gnat_to_gnu_entity): Add GNAT_DECL local variable and use it throughout. <E_Variable>: If the nominal subtype of the object is unconstrained, compute the Ada size separately and put in on the padding type if the size is not fixed. <E_Record_Type>: Minor tweak. * gcc-interface/misc.c (gnat_type_max_size): Rename max_size_unit into max_size_unit throughout. From-SVN: r262498
20 lines
369 B
Ada
20 lines
369 B
Ada
package Stack_Usage6_Pkg is
|
|
|
|
type Rec (D : Boolean := False) is record
|
|
case D is
|
|
when False =>
|
|
Foo : Integer;
|
|
Bar : Integer;
|
|
when True =>
|
|
null;
|
|
end case;
|
|
end record;
|
|
|
|
type Index_Type is new Integer range 0 .. 5;
|
|
|
|
type Arr is array (Index_Type) of Rec;
|
|
|
|
A : Arr;
|
|
|
|
end Stack_Usage6_Pkg;
|