OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

decl.c (gnat_to_gnu_entity): When processing the parent type...

Browse Source 
* 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.

From-SVN: r153528
This commit is contained in:
Eric Botcazou 2009-10-24 11:12:21 +00:00 committed by Eric Botcazou
parent 2f18d9afae
commit e99c3ccc40
4 changed files with 32 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
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>
* init.c (__gnat_adjust_context_for_raise): Mention _Unwind_GetIPInfo.

19
gcc/ada/gcc-interface/decl.c
View File

@ -2729,15 +2729,16 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
Present (gnat_field);
gnat_field = Next_Stored_Discriminant (gnat_field))
if (Present (Corresponding_Discriminant (gnat_field)))
save_gnu_tree
(gnat_field,
build3 (COMPONENT_REF,
get_unpadded_type (Etype (gnat_field)),
gnu_get_parent,
gnat_to_gnu_field_decl (Corresponding_Discriminant
(gnat_field)),
NULL_TREE),
true);
{
tree gnu_field
= gnat_to_gnu_field_decl (Corresponding_Discriminant
(gnat_field));
save_gnu_tree
(gnat_field,
build3 (COMPONENT_REF, TREE_TYPE (gnu_field),
gnu_get_parent, gnu_field, NULL_TREE),
true);
}
/* Then we build the parent subtype. If it has discriminants but
the type itself has unknown discriminants, this means that it

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2009-10-24 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/specs/pack4.ads: New test.
2009-10-24 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/null_pointer_deref1.adb: New test.

12
gcc/testsuite/gnat.dg/specs/pack4.ads Normal file
View File

@ -0,0 +1,12 @@
package Pack4 is
type Buffer is array (Natural range <>) of Boolean;
type Root (Size : Natural) is tagged record
Data : Buffer (1..Size);
end record;
pragma Pack (Root);
type Derived is new Root with null record;
end Pack4;