diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-20 13:57:30 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-20 13:57:30 +0000 |
| commit | ac9184ed8b637c3ca4449d21c2772938b207786f (patch) | |
| tree | eb52567ceca7bf15890ad0b3a2ca1bf0fd487b88 /gcc/ada/exp_dist.adb | |
| parent | 4fd226481b910cd18e1c831c275d58db8255f04f (diff) | |
| download | gcc-ac9184ed8b637c3ca4449d21c2772938b207786f.tar.gz | |
2014-01-20 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb, exp_prag.adb, sem_aux.adb, sinfo.ads, sem_ch10.adb,
checks.adb, sem_prag.adb, sem_ch12.adb, freeze.adb, g-arrspl.adb,
expander.adb, gnat1drv.adb, exp_ch4.adb, sem_ch6.adb,
sem_ch8.adb, exp_dist.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@206813 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dist.adb')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index 068a950ba11..22d6873f1dd 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -9839,7 +9839,7 @@ package body Exp_Dist is declare Constrained : constant Boolean := - not Transmit_As_Unconstrained (Typ); + not Transmit_As_Unconstrained (Typ); procedure TA_Ary_Add_Process_Element (Stmts : List_Id; @@ -9889,7 +9889,7 @@ package body Exp_Dist is begin Set_Expression (Any_Decl, Make_Function_Call (Loc, - Name => + Name => New_Occurrence_Of (RTE (RE_Create_Any), Loc), Parameter_Associations => New_List (Result_TC))); Result_TC := Empty; @@ -9899,9 +9899,9 @@ package body Exp_Dist is for J in 1 .. Number_Dimensions (Typ) loop Append_To (Stms, Make_Procedure_Call_Statement (Loc, - Name => - New_Occurrence_Of ( - RTE (RE_Add_Aggregate_Element), Loc), + Name => + New_Occurrence_Of + (RTE (RE_Add_Aggregate_Element), Loc), Parameter_Associations => New_List ( New_Occurrence_Of (Any, Loc), Build_To_Any_Call (Loc, @@ -9949,10 +9949,8 @@ package body Exp_Dist is Append_To (Decls, Make_Object_Declaration (Loc, - Defining_Identifier => - Strm, - Aliased_Present => - True, + Defining_Identifier => Strm, + Aliased_Present => True, Object_Definition => New_Occurrence_Of (RTE (RE_Buffer_Stream_Type), Loc))); @@ -9964,6 +9962,7 @@ package body Exp_Dist is declare Attr_Name : Name_Id; + begin if Transmit_As_Unconstrained (Typ) then Attr_Name := Name_Output; |