diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-10 10:30:37 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-10 10:30:37 +0000 |
commit | 14de9547e6e3387ebde7a7bae28e42881c7b9810 (patch) | |
tree | 1dde5cc4684e0ed6f26406ea97a76ce0b12969c3 /gcc | |
parent | 2c011e7efe9f36fe8ce6fcbd8839c770351644fc (diff) | |
download | ppe42-gcc-14de9547e6e3387ebde7a7bae28e42881c7b9810.tar.gz ppe42-gcc-14de9547e6e3387ebde7a7bae28e42881c7b9810.zip |
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).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145885 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
-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 4afdf325c50..afdf19d336f 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 3de151f9583..3d6737109e6 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 544c6090922..51d117d6056 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); |