diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2012-10-01 09:41:22 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-01 11:41:22 +0200 |
| commit | 15f0f591b8799b6987321777a82c26a9bbb8af78 (patch) | |
| tree | 294ac05591df8b0f8f0566cc44e4720f184af059 /gcc/ada/a-cofove.adb | |
| parent | cf427f02bb7cc5a0103f5821e7b4f042c9275320 (diff) | |
| download | gcc-15f0f591b8799b6987321777a82c26a9bbb8af78.zip gcc-15f0f591b8799b6987321777a82c26a9bbb8af78.tar.gz gcc-15f0f591b8799b6987321777a82c26a9bbb8af78.tar.bz2 | |
a-catizo.adb, [...]: Minor reformatting.
2012-10-01 Arnaud Charlet <charlet@adacore.com>
* a-catizo.adb, a-stwiun.adb, a-cdlili.adb, a-cihama.adb, a-direct.adb,
a-coinve.adb, a-calend.adb, a-ciorse.adb, a-coorma.adb, a-cfdlli.adb,
a-stzunb-shared.adb, a-cfhase.adb, bindgen.adb, ceinfo.adb, a-tags.adb,
einfo.adb, checks.adb, eval_fat.adb, a-cborma.adb, a-stwifi.adb,
a-tifiio.adb, a-textio.adb, a-cidlli.adb, a-strunb-shared.adb,
a-cimutr.adb, a-calcon.adb, a-exexpr-gcc.adb, a-ciormu.adb,
a-stzunb.adb, a-stzsea.adb, a-ngelfu.adb, a-stzfix.adb,
a-cihase.adb, a-cohama.adb, a-exetim-posix.adb, a-dirval-vms.adb,
a-caldel-vms.adb, a-coorse.adb, errout.adb,
a-except.adb, butil.adb, a-dirval-mingw.adb, a-cforma.adb,
a-except-2005.adb, a-wtedit.adb, cstand.adb, a-stwiun-shared.adb,
a-cbhama.adb, a-direio.adb, clean.adb, a-cborse.adb, back_end.adb,
binde.adb, a-exexda.adb, a-comutr.adb, a-ciorma.adb, a-cobove.adb,
a-coormu.adb, a-teioed.adb, a-convec.adb, a-wtenau.adb, exp_aggr.adb,
a-ztedit.adb, a-cohase.adb, a-exetim-mingw.adb, bcheck.adb,
a-dynpri.adb, a-cfhama.adb, a-calfor.adb, a-cbdlli.adb,
a-crdlli.adb, a-cbmutr.adb, a-sequio.adb, a-ngcoar.adb, a-cforse.adb,
a-strunb.adb, a-calend-vms.adb, a-clrefi.adb, a-cofove.adb,
a-ztenau.adb, a-strfix.adb, a-cbhase.adb, a-stzsup.adb: Minor
reformatting.
From-SVN: r191905
Diffstat (limited to 'gcc/ada/a-cofove.adb')
| -rw-r--r-- | gcc/ada/a-cofove.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/a-cofove.adb b/gcc/ada/a-cofove.adb index 8900e05..548512d 100644 --- a/gcc/ada/a-cofove.adb +++ b/gcc/ada/a-cofove.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2010-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2010-2012, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -53,7 +53,7 @@ package body Ada.Containers.Formal_Vectors is declare E : constant Elements_Array (1 .. Length (Right)) := - Right.Elements (1 .. RN); + Right.Elements (1 .. RN); begin return (Length (Right), E, Last => Right.Last, others => <>); end; @@ -62,7 +62,7 @@ package body Ada.Containers.Formal_Vectors is if RN = 0 then declare E : constant Elements_Array (1 .. Length (Left)) := - Left.Elements (1 .. LN); + Left.Elements (1 .. LN); begin return (Length (Left), E, Last => Left.Last, others => <>); end; @@ -370,7 +370,7 @@ package body Ada.Containers.Formal_Vectors is New_Last_As_Int : constant Int'Base := Old_Last_As_Int - N; New_Last : constant Index_Type := - Index_Type (New_Last_As_Int); + Index_Type (New_Last_As_Int); KK : constant Int := New_Last_As_Int - Int (No_Index); K : constant Count_Type := Count_Type (KK); @@ -867,7 +867,7 @@ package body Ada.Containers.Formal_Vectors is declare Dst_Last_As_Int : constant Int'Base := - Int (Before) + Int (N) - 1 - Int (No_Index); + Int (Before) + Int (N) - 1 - Int (No_Index); Dst_Last : constant Count_Type := Count_Type (Dst_Last_As_Int); @@ -902,7 +902,7 @@ package body Ada.Containers.Formal_Vectors is Container.Elements (Dst_Last + 1 .. Length (Container)); Index_As_Int : constant Int'Base := - Dst_Last_As_Int - Src'Length + 1; + Dst_Last_As_Int - Src'Length + 1; Index : constant Count_Type := Count_Type (Index_As_Int); @@ -1775,7 +1775,7 @@ package body Ada.Containers.Formal_Vectors is declare Last_As_Int : constant Int'Base := - Int (Index_Type'First) + Int (Length) - 1; + Int (Index_Type'First) + Int (Length) - 1; begin Container.Last := Index_Type'Base (Last_As_Int); end; |