OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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
This commit is contained in:
Arnaud Charlet 2009-04-10 12:30:37 +02:00
parent d103e5d8df
commit be21e9d8c7
3 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/ChangeLog
View File

@ -1,3 +1,14 @@
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

17
gcc/ada/prj-nmsc.adb
View File

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

2
gcc/ada/sem_prag.adb
View File

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