Message ID | 568BD405.6070206@adacore.com |
---|---|
State | New |
Headers | show |
> This change adds TYPE_DECL nodes for XVE/XVU parallel types to lexical > scopes so that these types are properly scoped in the debug information. OK, thanks.
Committed. Thank you!
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 779c376..0226c28 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -1937,6 +1937,7 @@ rest_of_record_type_compilation (tree record_type) = create_type_stub_decl (new_name, new_record_type); DECL_IGNORED_P (TYPE_STUB_DECL (new_record_type)) = DECL_IGNORED_P (TYPE_STUB_DECL (record_type)); + gnat_pushdecl (TYPE_STUB_DECL (new_record_type), Empty); TYPE_SIZE (new_record_type) = size_int (TYPE_ALIGN (record_type)); TYPE_SIZE_UNIT (new_record_type) = size_int (TYPE_ALIGN (record_type) / BITS_PER_UNIT);