[multiple changes]

2009-04-10  Thomas Quinot  <quinot@adacore.com>

	* sem_prag.adb: Minor reformatting

2009-04-10  Vincent Celier  <celier@adacore.com>

	* prj-nmsc.adb:
	(Check_Library_Attributes): For a project qualified as a library project
	that is not a library project, indicate in the error message which
	attributes are missing (Library_Dir and/or Library_Name).

From-SVN: r145885

gcc/ada/ChangeLog

+2009-04-10  Thomas Quinot  <quinot@adacore.com>
+
+	* sem_prag.adb: Minor reformatting
+
+2009-04-10  Vincent Celier  <celier@adacore.com>
+
+	* prj-nmsc.adb:
+	(Check_Library_Attributes): For a project qualified as a library project
+	that is not a library project, indicate in the error message which
+	attributes are missing (Library_Dir and/or Library_Name).
+
 2009-04-10  Bob Duff  <duff@adacore.com>
 
 	* exp_ch5.adb, exp_ch9.adb: Avoid use of No_Position in Sloc of

gcc/ada/prj-nmsc.adb

@@ -3871,10 +3871,19 @@ package body Prj.Nmsc is
 
             when Library =>
                if not Data.Library then
-                  Error_Msg
-                    (Project, In_Tree,
-                     "not a library project",
-                     Data.Location);
+                  if Data.Library_Dir = No_Path_Information then
+                     Error_Msg
+                       (Project, In_Tree,
+                        "\attribute Library_Dir not declared",
+                        Data.Location);
+                  end if;
+
+                  if Data.Library_Name = No_Name then
+                     Error_Msg
+                       (Project, In_Tree,
+                        "\attribute Library_Name not declared",
+                        Data.Location);
+                  end if;
                end if;
 
             when others =>

gcc/ada/sem_prag.adb

@@ -11169,7 +11169,7 @@ package body Sem_Prag is
 
             Arg := Expression (Arg1);
 
-            --  The expression is used in the call to create_task, and must
+            --  The expression is used in the call to Create_Task, and must
             --  be expanded there, not in the context of the current spec.
 
             Preanalyze_And_Resolve (New_Copy_Tree (Arg), Standard_String);