aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/gcc-interface/utils2.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/gcc-interface/utils2.c')
-rw-r--r--gcc/ada/gcc-interface/utils2.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c
index 3e4a094..8297c06 100644
--- a/gcc/ada/gcc-interface/utils2.c
+++ b/gcc/ada/gcc-interface/utils2.c
@@ -2002,7 +2002,8 @@ build_simple_component_ref (tree record_variable, tree component, tree field,
/* Look through a conversion between original and packable version, but
the field needs to be adjusted in this case. */
- else if (TYPE_NAME (inner_type) == TYPE_NAME (record_type))
+ else if (RECORD_OR_UNION_TYPE_P (inner_type)
+ && TYPE_NAME (inner_type) == TYPE_NAME (record_type))
{
tree new_field;