From fe38726a457105dbf0b9aab49c46b35f99bd6f48 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Tue, 20 May 2008 14:51:29 +0200 Subject: [PATCH] 2008-05-20 Ed Schonberg * 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 --- gcc/ada/sprint.adb | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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 -- 2.30.2