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

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

gcc/ada/ChangeLog

+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

gcc/ada/prj-proc.adb

@@ -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