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/sem_dim.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/sem_dim.adb')
| -rw-r--r-- | gcc/ada/sem_dim.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb index 39c3633..ab65d59 100644 --- a/gcc/ada/sem_dim.adb +++ b/gcc/ada/sem_dim.adb @@ -315,8 +315,8 @@ package body Sem_Dim is -- Return the dimension vector of node N function Dimensions_Msg_Of - (N : Node_Id; - Description_Needed : Boolean := False) return String; + (N : Node_Id; + Description_Needed : Boolean := False) return String; -- Given a node N, return the dimension symbols of N, preceded by "has -- dimension" if Description_Needed. If N is dimensionless, return "'[']", -- or "is dimensionless" if Description_Needed. @@ -2672,8 +2672,8 @@ package body Sem_Dim is ----------------------- function Dimensions_Msg_Of - (N : Node_Id; - Description_Needed : Boolean := False) return String + (N : Node_Id; + Description_Needed : Boolean := False) return String is Dims_Of_N : constant Dimension_Type := Dimensions_Of (N); Dimensions_Msg : Name_Id; |