diff options
| author | Vincent Celier <celier@adacore.com> | 2007-04-06 11:22:50 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-04-06 11:22:50 +0200 |
| commit | 7616900d855c17029e6395dcaf3db3dac95cdbe3 (patch) | |
| tree | f217fda184f246e27899107b2627714995425d5c /gcc/ada/gprep.adb | |
| parent | df777314f1fcc8cce837e8c86c56d60425fe875c (diff) | |
| download | gcc-7616900d855c17029e6395dcaf3db3dac95cdbe3.zip gcc-7616900d855c17029e6395dcaf3db3dac95cdbe3.tar.gz gcc-7616900d855c17029e6395dcaf3db3dac95cdbe3.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/gprep.adb')
| -rw-r--r-- | gcc/ada/gprep.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/gprep.adb b/gcc/ada/gprep.adb index 3a3e282..e9c3763 100644 --- a/gcc/ada/gprep.adb +++ b/gcc/ada/gprep.adb @@ -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 |