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
13 lines
242 B
Ada
13 lines
242 B
Ada
-- { dg-do compile }
|
|
-- { dg-options "-Wstack-usage=512" }
|
|
|
|
with Stack_Usage6_Pkg; use Stack_Usage6_Pkg;
|
|
|
|
procedure Stack_Usage6 (I : Index_Type) is
|
|
R : constant Rec := A (I);
|
|
begin
|
|
if R.D then
|
|
raise Program_Error;
|
|
end if;
|
|
end;
|