diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-05-28 07:36:02 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2019-05-28 07:36:02 +0000 |
| commit | f65f371bcff00263f9e870d546b580caebd953b3 (patch) | |
| tree | c9d1a1e2186cd885fe778b09942d0358616a012e /gcc/ada/gcc-interface/decl.c | |
| parent | e6ca6782acfa8b126c6abb6bcd9026572217525d (diff) | |
| download | gcc-f65f371bcff00263f9e870d546b580caebd953b3.zip gcc-f65f371bcff00263f9e870d546b580caebd953b3.tar.gz gcc-f65f371bcff00263f9e870d546b580caebd953b3.tar.bz2 | |
decl.c (components_to_record): Set a name on the type created for the REP part, if any.
* gcc-interface/decl.c (components_to_record): Set a name on the type
created for the REP part, if any.
* gcc-interface/utils.c (finish_record_type): Only take the maximum
when merging sizes for a variant part at offset 0.
(merge_sizes): Rename has_rep parameter into max.
From-SVN: r271681
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 9082d44..dc23743 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -8162,6 +8162,8 @@ components_to_record (Node_Id gnat_component_list, Entity_Id gnat_record_type, gnu_field_list = gnu_rep_list; else { + TYPE_NAME (gnu_rep_type) + = create_concat_name (gnat_record_type, "REP"); TYPE_REVERSE_STORAGE_ORDER (gnu_rep_type) = TYPE_REVERSE_STORAGE_ORDER (gnu_record_type); finish_record_type (gnu_rep_type, gnu_rep_list, 1, debug_info); |