diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 17:24:58 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 17:24:58 +0000 |
| commit | 04ff47e17b63cab816d42dd2c37e5de9fba93bdc (patch) | |
| tree | 5151af234833b5e5bc90d190461057198f80cdcb /gcc/ada/prj-dect.adb | |
| parent | 6666a55d3cf07dc5206c2f1752f0ccfa2e77f244 (diff) | |
| download | gcc-04ff47e17b63cab816d42dd2c37e5de9fba93bdc.tar.gz | |
* prj-dect.adb (Parse): Rename parameter Modifying to Extends.
* prj-dect.ads (Parse): Rename parameter Modifying to Extends.
* prj-env.adb: Minor comment changes (modifying -> extends).
* prj-nmsc.adb: Minor comment changes (modifying -> extends).
* prj-part.adb (Parse_Single_Project): Change Tok_Modifying to
Tok_Extends.
* prj.adb (Initialize): Change Modifying to Extends.
* scans.ads (Token_Type): Change Tok_Modifying to Tok_Extends.
* prj.ads: Minor comment change (Modifying -> extending).
* snames.ads: Change modifying to extends.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47678 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-dect.adb')
| -rw-r--r-- | gcc/ada/prj-dect.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/prj-dect.adb b/gcc/ada/prj-dect.adb index df5528d0945..55bfb44bdb1 100644 --- a/gcc/ada/prj-dect.adb +++ b/gcc/ada/prj-dect.adb @@ -88,14 +88,14 @@ package body Prj.Dect is procedure Parse (Declarations : out Project_Node_Id; Current_Project : Project_Node_Id; - Modifying : Project_Node_Id) + Extends : Project_Node_Id) is First_Declarative_Item : Project_Node_Id := Empty_Node; begin Declarations := Default_Project_Node (Of_Kind => N_Project_Declaration); Set_Location_Of (Declarations, To => Token_Ptr); - Set_Modified_Project_Of (Declarations, To => Modifying); + Set_Modified_Project_Of (Declarations, To => Extends); Parse_Declarative_Items (Declarations => First_Declarative_Item, In_Zone => In_Project, @@ -177,7 +177,7 @@ package body Prj.Dect is else if Current_Attribute /= Empty_Attribute and then - Attributes.Table (Current_Attribute).Kind_2 = Associative_Array + Attributes.Table (Current_Attribute).Kind_2 /= Single then Error_Msg ("this attribute need to be an associative array", Location_Of (Attribute)); |