diff options
| -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 |