diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 12:30:37 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 12:30:37 +0200 |
| commit | be21e9d8c7fcd3d6ac53d8ef77f02f21e788874a (patch) | |
| tree | 1dde5cc4684e0ed6f26406ea97a76ce0b12969c3 | |
| parent | d103e5d8dfb7c5f69aa82156391aca98872b9844 (diff) | |
| download | gcc-be21e9d8c7fcd3d6ac53d8ef77f02f21e788874a.zip gcc-be21e9d8c7fcd3d6ac53d8ef77f02f21e788874a.tar.gz gcc-be21e9d8c7fcd3d6ac53d8ef77f02f21e788874a.tar.bz2 | |
[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
| -rw-r--r-- | gcc/ada/ChangeLog | 11 | ||||
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 17 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 2 |
3 files changed, 25 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4afdf32..afdf19d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -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 diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 3de151f..3d67371 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/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 => diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 544c609..51d117d 100644 --- a/gcc/ada/sem_prag.adb +++ b/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); |