diff options
| author | Pierre-Marie de Rodat <derodat@adacore.com> | 2016-01-06 09:18:26 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2016-01-06 09:18:26 +0000 |
| commit | 396a2ee2ecfc2deb2f6672c9149be22ce244d242 (patch) | |
| tree | 155aa36f2a7007e141a4ff889639a6acc384c1c7 /gcc | |
| parent | 2670a3c61572f257ff725d8e8d16a3d75638db37 (diff) | |
| download | gcc-396a2ee2ecfc2deb2f6672c9149be22ce244d242.zip gcc-396a2ee2ecfc2deb2f6672c9149be22ce244d242.tar.gz gcc-396a2ee2ecfc2deb2f6672c9149be22ce244d242.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a11ece3..f2b46b3 100644 --- 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 779c376..18d2106 100644 --- 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); |