diff mbox

[2/2] Ada: add XVE/XVU parallel types to lexical scopes

Message ID 568BD405.6070206@adacore.com
State New
Headers show

Commit Message

Pierre-Marie de Rodat Jan. 5, 2016, 2:32 p.m. UTC 
Hello,

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 to commit? Thank you in advance!

gcc/ada/ChangeLog:

	* gcc-interface/utils.c (rest_of_record_type_compilation): Add
	XVE/XVU parallel types to the current lexical scope.
---
  gcc/ada/gcc-interface/utils.c | 1 +
  1 file changed, 1 insertion(+)

Comments

Eric Botcazou Jan. 5, 2016, 5:53 p.m. UTC | #1 
> 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.
Pierre-Marie de Rodat Jan. 6, 2016, 9:18 a.m. UTC | #2 
Committed. Thank you!
diff mbox

Patch

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);