diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-11-29 23:30:07 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-12-13 09:36:02 +0100 |
| commit | 42edc83709d1a03ba266d73e8933e3c041f135cc (patch) | |
| tree | d3e8b135847f2d4ba27f06978a5967e936315567 /gcc/ada/exp_ch3.adb | |
| parent | 00e854417d841d015a491eb8e8c58e471a643e0e (diff) | |
| download | gcc-42edc83709d1a03ba266d73e8933e3c041f135cc.zip gcc-42edc83709d1a03ba266d73e8933e3c041f135cc.tar.gz gcc-42edc83709d1a03ba266d73e8933e3c041f135cc.tar.bz2 | |
ada: Fix code indentation
Fix uncontroversial coding style violations detected by an experiment with
a tree-sitter indentation support in Emacs.
gcc/ada/ChangeLog:
* atree.adb, diagnostics-pretty_emitter.adb,
diagnostics-utils.adb, einfo-utils.adb, errout.adb, exp_aggr.adb,
exp_ch3.adb, exp_ch5.adb, exp_ch6.adb, exp_ch7.adb, exp_imgv.adb,
exp_pakd.adb, exp_prag.adb, exp_unst.adb, exp_util.adb, gnatchop.adb,
gnatlink.adb, inline.adb, itypes.adb, osint.adb, rtsfind.adb,
sem_aggr.adb, sem_ch10.adb, sem_ch12.adb, sem_ch13.adb, sem_ch3.adb,
sem_ch4.adb, sem_dim.adb, sem_elab.adb, sem_prag.adb, sem_util.adb,
sprint.adb, switch-m.adb, table.adb: Fix code indentation.
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 45ea858..0c13ab5 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -6439,10 +6439,10 @@ package body Exp_Ch3 is Build_Record_Init_Proc (Typ_Decl, Typ); end if; - -- Create the body of TSS primitive Finalize_Address. This must be done - -- before the bodies of all predefined primitives are created. If Typ - -- is limited, Stream_Input and Stream_Read may produce build-in-place - -- allocations and for those the expander needs Finalize_Address. + -- Create the body of TSS primitive Finalize_Address. This must be done + -- before the bodies of all predefined primitives are created. If Typ + -- is limited, Stream_Input and Stream_Read may produce build-in-place + -- allocations and for those the expander needs Finalize_Address. if Is_Controlled (Typ) then Make_Finalize_Address_Body (Typ); @@ -8809,23 +8809,23 @@ package body Exp_Ch3 is Else_Statements => New_List (Guard_Except)); - -- If a separate initialization assignment was created - -- earlier, append that following the assignment of the - -- implicit access formal to the access object, to ensure - -- that the return object is initialized in that case. In - -- this situation, the target of the assignment must be - -- rewritten to denote a dereference of the access to the - -- return object passed in by the caller. - - if Present (Init_Stmt) then - Set_Name (Init_Stmt, - Make_Explicit_Dereference (Loc, - Prefix => New_Occurrence_Of (Alloc_Obj_Id, Loc))); - Set_Assignment_OK (Name (Init_Stmt)); - - Append_To (Then_Statements (Alloc_Stmt), Init_Stmt); - Init_Stmt := Empty; - end if; + -- If a separate initialization assignment was created + -- earlier, append that following the assignment of the + -- implicit access formal to the access object, to ensure + -- that the return object is initialized in that case. In + -- this situation, the target of the assignment must be + -- rewritten to denote a dereference of the access to the + -- return object passed in by the caller. + + if Present (Init_Stmt) then + Set_Name (Init_Stmt, + Make_Explicit_Dereference (Loc, + Prefix => New_Occurrence_Of (Alloc_Obj_Id, Loc))); + Set_Assignment_OK (Name (Init_Stmt)); + + Append_To (Then_Statements (Alloc_Stmt), Init_Stmt); + Init_Stmt := Empty; + end if; Insert_Action (N, Alloc_Stmt, Suppress => All_Checks); |