[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:
parent
d103e5d8df
commit
be21e9d8c7
|
@ -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
|
||||
|
|
|
@ -3871,12 +3871,21 @@ package body Prj.Nmsc is
|
|||
|
||||
when Library =>
|
||||
if not Data.Library then
|
||||
if Data.Library_Dir = No_Path_Information then
|
||||
Error_Msg
|
||||
(Project, In_Tree,
|
||||
"not a library project",
|
||||
"\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 =>
|
||||
null;
|
||||
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue