diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:22:50 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:22:50 +0000 |
| commit | ca89afcc77ea172e8b8cd5418bea815daa838e26 (patch) | |
| tree | f217fda184f246e27899107b2627714995425d5c /gcc/ada/gprep.adb | |
| parent | b1f184790a970b4ffaff8b34943a8a6a44be750d (diff) | |
| download | gcc-ca89afcc77ea172e8b8cd5418bea815daa838e26.tar.gz | |
2007-04-06 Vincent Celier <celier@adacore.com>
* gprep.adb (Process_Files.Process_One_File): Use full file name when
issuing pragma Source_Reference.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123576 138bc75d-0d04-0410-961f-82ee72b054a4
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 3a3e2825962..e9c37635442 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 |