mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-11 14:11:31 +08:00
Code Issues Packages Projects Releases Wiki Activity

2008-05-20 Ed Schonberg <schonberg@adacore.com>

Browse Source 
* 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
This commit is contained in:
Ed Schonberg 2008-05-20 14:51:29 +02:00 committed by Arnaud Charlet
parent 09bc9ab600
commit fe38726a45
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/sprint.adb
View File

@ -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