aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/xref_lib.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2013-04-24 16:35:42 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2013-04-24 16:35:42 +0200
commitdd3b3672c49e3cee97fdd35d5c72c849af952862 (patch)
tree1782e3170ebd56b6b27fdee0d0c1e9ddba0ed1dc /gcc/ada/xref_lib.adb
parentb5bdffcc4fc8a8c04662438eee0edc2be7ac15b9 (diff)
downloadgcc-dd3b3672c49e3cee97fdd35d5c72c849af952862.zip
gcc-dd3b3672c49e3cee97fdd35d5c72c849af952862.tar.gz
gcc-dd3b3672c49e3cee97fdd35d5c72c849af952862.tar.bz2
[multiple changes]
2013-04-24 Robert Dewar <dewar@adacore.com> * gnatcmd.adb, xref_lib.adb, gnatls.adb, sem_ch13.adb: Minor reformatting. 2013-04-24 Yannick Moy <moy@adacore.com> * sem_ch6.adb (Analyze_Generic_Subprogram_Body, Analyze_Subprogram_Body_Helper): Reset contract node to Empty before setting entity to E_Subprogram_Body. * sem_ch8.adb (Analyze_Subprogram_Renaming): Reset contract node to Empty before setting entity to E_Subprogram_Body. From-SVN: r198238
Diffstat (limited to 'gcc/ada/xref_lib.adb')
-rw-r--r--gcc/ada/xref_lib.adb1
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/xref_lib.adb b/gcc/ada/xref_lib.adb
index db83c94..2afec82 100644
--- a/gcc/ada/xref_lib.adb
+++ b/gcc/ada/xref_lib.adb
@@ -274,6 +274,7 @@ package body Xref_Lib is
declare
File_Name : String := Entity (File_Start .. Line_Start - 1);
+
begin
Osint.Canonical_Case_File_Name (File_Name);
File_Ref := Add_To_Xref_File (File_Name, Visited => True);