mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 19:01:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

exp_ch4.adb, [...]: Minor comment fixes and code clean up.

Browse Source 
2010-01-25  Bob Duff  <duff@adacore.com>

	* exp_ch4.adb, exp_aggr.adb: Minor comment fixes and code clean up.

From-SVN: r156211
This commit is contained in:
Bob Duff 2010-01-25 14:37:39 +00:00 committed by Arnaud Charlet
parent d268eb9a5f
commit 64425dffa1
3 changed files with 11 additions and 6 deletions

4
gcc/ada/ChangeLog

@ -1,3 +1,7 @@
2010-01-25 Bob Duff <duff@adacore.com>
* exp_ch4.adb, exp_aggr.adb: Minor comment fixes and code clean up.
2010-01-25 Arnaud Charlet <charlet@adacore.com>
* gnatvsn.ads (Current_Year): Update.

6
gcc/ada/exp_aggr.adb

@ -2578,7 +2578,7 @@ package body Exp_Aggr is
Ref := Convert_To (Init_Typ, New_Copy_Tree (Target));
Set_Assignment_OK (Ref);
if not Is_Abstract_Type (Init_Typ) then
if not Is_Interface (Init_Typ) then
Append_List_To (L,
Build_Initialization_Call (Loc,
Id_Ref => Ref,
@ -3681,7 +3681,7 @@ package body Exp_Aggr is
-- total number of components is safe enough to expand.
function Is_Flat (N : Node_Id; Dims : Int) return Boolean;
-- Return True iff the array N is flat (which is not rivial in the case
-- Return True iff the array N is flat (which is not trivial in the case
-- of multidimensionsl aggregates).
-----------------------------
@ -3919,7 +3919,7 @@ package body Exp_Aggr is
end if;
end if;
-- Range cases merge with Lo,Hi said
-- Range cases merge with Lo,Hi set
if not Compile_Time_Known_Value (Lo)
or else

7
gcc/ada/exp_ch4.adb

@ -5101,9 +5101,10 @@ package body Exp_Ch4 is
Cnode := Left_Opnd (Cnode);
end loop;
-- Now Opnd is the deepest Opnd, and its parents are the concatenation
-- nodes above, so now we process bottom up, doing the operations. We
-- gather a string that is as long as possible up to five operands
-- Now Cnode is the deepest concatenation, and its parents are the
-- concatenation nodes above, so now we process bottom up, doing the
-- operations. We gather a string that is as long as possible up to five
-- operands.
-- The outer loop runs more than once if more than one concatenation
-- type is involved.