diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-18 13:01:07 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-18 13:01:07 +0000 |
| commit | 931fa8c000065dc5b66843018276cca3e4cb8480 (patch) | |
| tree | 96454f5efbaef73201d0218ecd6d79b444fffe51 /gcc/ada/prj-nmsc.adb | |
| parent | 4320e73005b2d4a3a0d85e00e2e52e9614b16442 (diff) | |
| download | gcc-931fa8c000065dc5b66843018276cca3e4cb8480.tar.gz | |
2010-06-18 Pascal Obry <obry@adacore.com>
* make.adb, prj-nmsc.adb: Fix source filenames casing in debug output.
2010-06-18 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: For gnatcheck, add -gnatec= switch for a global
configuration pragmas file and, if -U is not used, for a local one.
2010-06-18 Ed Schonberg <schonberg@adacore.com>
* sem_elim.adb (Check_Eliminated): Use full information on entity name
when it is given in the pragma by a selected component.
(Check_For_Eliminated_Subprogram): Do no emit error if within a
instance body that is itself within a generic unit.
* sem_ch12.adb (Analyze_Subprogram_Instance): If the subprogram is
eliminated, mark as well the anonymous subprogram that is its alias
and appears within the wrapper package.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160986 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 0e8c041b9b9..df0cf822615 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -703,7 +703,7 @@ package body Prj.Nmsc is if Current_Verbosity = High then Write_Str ("Adding source File: "); - Write_Str (Get_Name_String (File_Name)); + Write_Str (Get_Name_String (Display_File)); if Index /= 0 then Write_Str (" at" & Index'Img); @@ -813,8 +813,8 @@ package body Prj.Nmsc is ----------- procedure Check - (Project : Project_Id; - Data : in out Tree_Processing_Data) + (Project : Project_Id; + Data : in out Tree_Processing_Data) is Specs : Array_Element_Id; Bodies : Array_Element_Id; @@ -4883,7 +4883,7 @@ package body Prj.Nmsc is if not Removed and then List = Nil_String then if Current_Verbosity = High then Write_Str (" Adding Source Dir="); - Write_Line (Get_Name_String (Path_Id)); + Write_Line (Get_Name_String (Display_Path_Id)); end if; String_Element_Table.Increment_Last (Data.Tree.String_Elements); @@ -6845,7 +6845,9 @@ package body Prj.Nmsc is begin if Current_Verbosity = High then - Write_Attr ("Source_Dir", Source_Directory); + Write_Attr + ("Source_Dir", + Source_Directory (Source_Directory'First .. Dir_Last)); Write_Line (Num_Nod.Number'Img); end if; @@ -7382,7 +7384,7 @@ package body Prj.Nmsc is while Current /= Nil_String loop Element := In_Tree.String_Elements.Table (Current); Write_Str (" "); - Write_Line (Get_Name_String (Element.Value)); + Write_Line (Get_Name_String (Element.Display_Value)); Current := Element.Next; end loop; |