diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-02 09:03:06 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-02 09:03:06 +0000 |
| commit | 2cbb24f43e0e0a22ef4c598b8b20f7362541ca19 (patch) | |
| tree | 3cc39fa5b2007e048947833a8015781bb4009c7c /gcc/ada/prj-tree.adb | |
| parent | 79219086d239501a1ad0849c774c639b11fb0ac0 (diff) | |
| download | gcc-2cbb24f43e0e0a22ef4c598b8b20f7362541ca19.tar.gz | |
2011-09-02 Ed Schonberg <schonberg@adacore.com>
* sem_ch5.adb (Analyze_Iterator_Specification): If the domain
of iteration is an expression, its value must be captured in a
renaming declaration, so that modification of the elements is
propagated to the original container.
2011-09-02 Pascal Obry <obry@adacore.com>
* prj-proc.adb, prj.adb, makeutl.adb, makeutl.ads, prj-dect.adb,
prj-nmsc.adb, prj-util.adb, prj-conf.adb, prj-env.adb,
prj-tree.adb: Minor reformatting and style fixes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178443 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-tree.adb')
| -rw-r--r-- | gcc/ada/prj-tree.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/prj-tree.adb b/gcc/ada/prj-tree.adb index aee8da5c48c..2b420e1fd63 100644 --- a/gcc/ada/prj-tree.adb +++ b/gcc/ada/prj-tree.adb @@ -104,7 +104,6 @@ package body Prj.Tree is Zone := In_Tree.Project_Nodes.Table (To).Comments; if No (Zone) then - -- Create new N_Comment_Zones node Project_Node_Table.Increment_Last (In_Tree.Project_Nodes); @@ -144,9 +143,9 @@ package body Prj.Tree is -- Create new N_Comment node - if (Where = After or else Where = After_End) and then - Token /= Tok_EOF and then - Comments.Table (J).Follows_Empty_Line + if (Where = After or else Where = After_End) + and then Token /= Tok_EOF + and then Comments.Table (J).Follows_Empty_Line then Comments.Table (1 .. Comments.Last - J + 1) := Comments.Table (J .. Comments.Last); |