diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-01-21 10:35:18 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-01-21 10:35:18 +0000 |
| commit | 5dad4396b3a90fa1f39465301b0842378fa8083e (patch) | |
| tree | 3f71d31717704c49c8e652580055d3df47d772f6 /gcc/ada/prj-tree.adb | |
| parent | b41346d45ffbca563d6a8102f4a12556384cf03d (diff) | |
| download | gcc-5dad4396b3a90fa1f39465301b0842378fa8083e.tar.gz | |
2004-01-21 Javier Miranda <miranda@gnat.com>
* exp_aggr.adb (Build_Record_Aggr_Code): Do not build the master
entity if already built in the current scope.
* exp_ch9.adb (Build_Master_Entity): Do not set the has_master_entity
reminder in internal scopes. Required for nested limited aggregates.
2004-01-21 Doug Rupp <rupp@gnat.com>
* Makefile.in (hyphen): New variable, default value '-'. Set to '_' on
VMS. Replace all occurences of libgnat- and libgnarl- with
libgnat$(hyphen) and libgnarl$(hyphen).
Fixed shared library build problem on VMS.
2004-01-21 Robert Dewar <dewar@gnat.com>
* mlib-prj.adb: Minor reformatting
2004-01-21 Thomas Quinot <quinot@act-europe.fr>
* prj-tree.adb, 7staprop.adb, vms_conv.adb, xr_tabls.adb: Add missing
'constant' keywords for declaration of pointers that are not modified.
* exp_pakd.adb: Fix English in comment.
2004-01-21 Ed Schonberg <schonberg@gnat.com>
PR ada/10889
* sem_ch3.adb (Analyze_Subtype_Declaration): For an array subtype,
copy all attributes of the parent, including the foreign language
convention.
2004-01-21 Sergey Rybin <rybin@act-europe.fr>
PR ada/10565
* sem_ch9.adb (Analyze_Delay_Alternative): Add expression type check
for 'delay until' statement.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@76271 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-tree.adb')
| -rw-r--r-- | gcc/ada/prj-tree.adb | 25 |
1 files changed, 10 insertions, 15 deletions
diff --git a/gcc/ada/prj-tree.adb b/gcc/ada/prj-tree.adb index 7e548e8ce2e..735b3fee9e9 100644 --- a/gcc/ada/prj-tree.adb +++ b/gcc/ada/prj-tree.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2004 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1242,8 +1242,7 @@ package body Prj.Tree is function Project_File_Includes_Unkept_Comments (Node : Project_Node_Id) return Boolean is - Declaration : constant Project_Node_Id := - Project_Declaration_Of (Node); + Declaration : constant Project_Node_Id := Project_Declaration_Of (Node); begin return Project_Nodes.Table (Declaration).Flag1; end Project_File_Includes_Unkept_Comments; @@ -1329,7 +1328,8 @@ package body Prj.Tree is ---------- procedure Save (S : out Comment_State) is - Cmts : Comments_Ptr := new Comment_Array (1 .. Comments.Last); + Cmts : constant Comments_Ptr := new Comment_Array (1 .. Comments.Last); + begin for J in 1 .. Comments.Last loop Cmts (J) := Comments.Table (J); @@ -1393,7 +1393,7 @@ package body Prj.Tree is elsif End_Of_Line_Node /= Empty_Node then declare Zones : constant Project_Node_Id := - Comment_Zones_Of (End_Of_Line_Node); + Comment_Zones_Of (End_Of_Line_Node); begin Project_Nodes.Table (Zones).Value := Comment_Id; end; @@ -1722,8 +1722,7 @@ package body Prj.Tree is (Node : Project_Node_Id; To : Project_Node_Id) is - Zone : constant Project_Node_Id := - Comment_Zones_Of (Node); + Zone : constant Project_Node_Id := Comment_Zones_Of (Node); begin Project_Nodes.Table (Zone).Field2 := To; end Set_First_Comment_After; @@ -1736,8 +1735,7 @@ package body Prj.Tree is (Node : Project_Node_Id; To : Project_Node_Id) is - Zone : constant Project_Node_Id := - Comment_Zones_Of (Node); + Zone : constant Project_Node_Id := Comment_Zones_Of (Node); begin Project_Nodes.Table (Zone).Comments := To; end Set_First_Comment_After_End; @@ -1751,8 +1749,7 @@ package body Prj.Tree is To : Project_Node_Id) is - Zone : constant Project_Node_Id := - Comment_Zones_Of (Node); + Zone : constant Project_Node_Id := Comment_Zones_Of (Node); begin Project_Nodes.Table (Zone).Field1 := To; end Set_First_Comment_Before; @@ -1765,8 +1762,7 @@ package body Prj.Tree is (Node : Project_Node_Id; To : Project_Node_Id) is - Zone : constant Project_Node_Id := - Comment_Zones_Of (Node); + Zone : constant Project_Node_Id := Comment_Zones_Of (Node); begin Project_Nodes.Table (Zone).Field2 := To; end Set_First_Comment_Before_End; @@ -2275,8 +2271,7 @@ package body Prj.Tree is (Node : Project_Node_Id; To : Boolean) is - Declaration : constant Project_Node_Id := - Project_Declaration_Of (Node); + Declaration : constant Project_Node_Id := Project_Declaration_Of (Node); begin Project_Nodes.Table (Declaration).Flag1 := To; end Set_Project_File_Includes_Unkept_Comments; |