mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-03 05:10:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

prj-proc.adb (Recursive_Process): Make sure that the project display name is never No_Name.

Browse Source 
2014-10-31  Vincent Celier  <celier@adacore.com>

	* prj-proc.adb (Recursive_Process): Make sure that the project
	display name is never No_Name.

From-SVN: r216970
This commit is contained in:
Vincent Celier 2014-10-31 11:47:11 +00:00 committed by Arnaud Charlet
parent 715e529d70
commit aed24d9d74
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2014-10-31 Vincent Celier <celier@adacore.com>
* prj-proc.adb (Recursive_Process): Make sure that the project
display name is never No_Name.
2014-10-31 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb (Analyze_Access_Attribute): Do not emit error

10
gcc/ada/prj-proc.adb
View File

@ -2994,7 +2994,15 @@ package body Prj.Proc is
Processed_Projects.Set (Name, Project);
Project.Name := Name;
Project.Display_Name := Name_Node.Display_Name;
-- Make sure that the project display name is never No_Name
if Name_Node.Display_Name = No_Name then
Project.Display_Name := Name;
else
Project.Display_Name := Name_Node.Display_Name;
end if;
Get_Name_String (Name);
-- If name starts with the virtual prefix, flag the project as