diff options
Diffstat (limited to 'gcc/ada/put_alfa.adb')
-rw-r--r-- | gcc/ada/put_alfa.adb | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/gcc/ada/put_alfa.adb b/gcc/ada/put_alfa.adb index 49dfac87df1..a5580a8018c 100644 --- a/gcc/ada/put_alfa.adb +++ b/gcc/ada/put_alfa.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2011-2012, 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- -- @@ -49,6 +49,18 @@ begin Write_Info_Char (F.File_Name (N)); end loop; + -- If file is a subunit, print the file name for the unit + + if F.Unit_File_Name /= null then + Write_Info_Char (' '); + Write_Info_Char ('-'); + Write_Info_Char ('>'); + Write_Info_Char (' '); + for N in F.Unit_File_Name'Range loop + Write_Info_Char (F.Unit_File_Name (N)); + end loop; + end if; + Write_Info_Terminate; -- Loop through scope entries for this file |