diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2008-05-20 14:51:29 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-20 14:51:29 +0200 |
| commit | fe38726a457105dbf0b9aab49c46b35f99bd6f48 (patch) | |
| tree | 0f436d71b33cc80dcf8e8ef15133276382483b2f | |
| parent | 09bc9ab600e7492588d6cbd9d565cf541d1480a8 (diff) | |
| download | gcc-fe38726a457105dbf0b9aab49c46b35f99bd6f48.zip gcc-fe38726a457105dbf0b9aab49c46b35f99bd6f48.tar.gz gcc-fe38726a457105dbf0b9aab49c46b35f99bd6f48.tar.bz2 | |
2008-05-20 Ed Schonberg <schonberg@adacore.com>
* sprint.adb
(Print_Itype): Do not modify the sloc of the component type of a
(packed) array itype, because it is an unrelated type whose source
location is independent of the point of creation of the itype itself.
From-SVN: r135645
| -rw-r--r-- | gcc/ada/sprint.adb | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 2ead1c3..0545f25 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -3732,7 +3732,14 @@ package body Sprint is end loop; Write_Str (") of "); - Sprint_Node (Component_Type (Typ)); + X := Component_Type (Typ); + + -- Preserve sloc of component type, which is defined + -- elsewhere than the itype (see comment above). + + Old_Sloc := Sloc (X); + Sprint_Node (X); + Set_Sloc (X, Old_Sloc); -- Array subtypes and string subtypes |