OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

gprep.adb (Process_Files.Process_One_File): Use full file name when issuing pragma Source_Reference. 

2007-04-06  Vincent Celier  <celier@adacore.com>

	* gprep.adb (Process_Files.Process_One_File): Use full file name when
	issuing pragma Source_Reference.

From-SVN: r123576
This commit is contained in:
Vincent Celier 2007-04-06 11:22:50 +02:00 committed by Arnaud Charlet
parent df777314f1
commit 7616900d85
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/gprep.adb
View File

@ -506,12 +506,13 @@ package body GPrep is
Scanner.Initialize_Scanner (Infile);
-- Output the SFN pragma if asked to
-- Output the pragma Source_Reference if asked to
if Source_Ref_Pragma then
Put_Line (Outfile.all, "pragma Source_Reference (1, """ &
Get_Name_String (Sinput.File_Name (Infile)) &
""");");
Put_Line
(Outfile.all,
"pragma Source_Reference (1, """ &
Get_Name_String (Sinput.Full_File_Name (Infile)) & """);");
end if;
-- Preprocess the input file