From: Ed Schonberg <schonberg@adacore.com>
Date: Tue, 20 May 2008 12:51:29 +0000 (+0200)
Subject: 2008-05-20  Ed Schonberg  <schonberg@adacore.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=fe38726a457105dbf0b9aab49c46b35f99bd6f48;p=gcc.git

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

diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb
index 2ead1c33019..0545f2585cd 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