diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2011-05-05 16:22:16 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-05-05 16:22:16 +0000 |
| commit | 805e60a08685ba76925f557137adf836f3b4a751 (patch) | |
| tree | 9e62d25cb4781804834463a8fd123bbf1c17f2bf /gcc/ada/gcc-interface/gigi.h | |
| parent | 4eec64ff1d3b88cce8af5fe81787fd7e2e1cb371 (diff) | |
| download | gcc-805e60a08685ba76925f557137adf836f3b4a751.zip gcc-805e60a08685ba76925f557137adf836f3b4a751.tar.gz gcc-805e60a08685ba76925f557137adf836f3b4a751.tar.bz2 | |
re PR ada/48844 (ICE on assignment of aggregate with discriminated record type)
PR ada/48844
* gcc-interface/gigi.h (get_variant_part): Declare.
* gcc-interface/decl.c (get_variant_part): Make global.
* gcc-interface/utils2.c (find_common_type): Do not return T1 if the
types have the same constant size, are record types and T1 has a
variant part while T2 doesn't.
From-SVN: r173442
Diffstat (limited to 'gcc/ada/gcc-interface/gigi.h')
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index ca0950c..8c69e75 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -150,6 +150,9 @@ extern tree choices_to_gnu (tree operand, Node_Id choices); extern void annotate_object (Entity_Id gnat_entity, tree gnu_type, tree size, bool by_ref, bool by_double_ref); +/* Return the variant part of RECORD_TYPE, if any. Otherwise return NULL. */ +extern tree get_variant_part (tree record_type); + /* Given a type T, a FIELD_DECL F, and a replacement value R, return a new type with all size expressions that contain F updated by replacing F with R. If F is NULL_TREE, always make a new RECORD_TYPE, even if |