Ada: add XVE/XVU parallel types to lexical scopes

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.

gcc/ada/ChangeLog:

	* gcc-interface/utils.c: Bump copyright year.
	(rest_of_record_type_compilation): Add XVE/XVU parallel types to
	the current lexical scope.

From-SVN: r232098

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a11ece3c5c8ee7c601e76da2b39a31c4d339eba1..f2b46b35db7bcd3e597c97c01924f507248c78e0 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2016-01-06  Pierre-Marie de Rodat  <derodat@adacore.com>
+
+       * gcc-interface/utils.c: Bump copyright year.
+       (rest_of_record_type_compilation): Add XVE/XVU parallel types to
+       the current lexical scope.
+
 2016-01-04  Jakub Jelinek  <jakub@redhat.com>
 
        * gnat_ugn.texi: Bump @copying's copyright year.

diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c
index 779c376c2f18e5adc0869e8321b635b7ef3ebb96..18d2106771f7691d6b77f130bc5cde8c402941bf 100644 (file)
--- a/gcc/ada/gcc-interface/utils.c
+++ b/gcc/ada/gcc-interface/utils.c
@@ -6,7 +6,7 @@
  *                                                                          *
  *                          C Implementation File                           *
  *                                                                          *
- *          Copyright (C) 1992-2015, Free Software Foundation, Inc.         *
+ *          Copyright (C) 1992-2016, Free Software Foundation, Inc.         *
  *                                                                          *
  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  * terms of the  GNU General Public License as published  by the Free Soft- *
@@ -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);