From 7616900d855c17029e6395dcaf3db3dac95cdbe3 Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Fri, 6 Apr 2007 11:22:50 +0200 Subject: [PATCH] gprep.adb (Process_Files.Process_One_File): Use full file name when issuing pragma Source_Reference. 2007-04-06 Vincent Celier * gprep.adb (Process_Files.Process_One_File): Use full file name when issuing pragma Source_Reference. From-SVN: r123576 --- gcc/ada/gprep.adb | 9 +++++---- 1 file 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 -- 2.30.2