diff options
author | Marc Poulhiès <poulhies@adacore.com> | 2022-03-18 16:11:41 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-17 08:25:43 +0000 |
commit | 98208e364c10f71a1609b93959cc81e1e2549163 (patch) | |
tree | c343c52e5102d1a3db30b42a0e68145fec9a16f2 | |
parent | 83bfddac6feff4dcacc2b93e2357629a3bfa971b (diff) | |
download | gcc-98208e364c10f71a1609b93959cc81e1e2549163.zip gcc-98208e364c10f71a1609b93959cc81e1e2549163.tar.gz gcc-98208e364c10f71a1609b93959cc81e1e2549163.tar.bz2 |
[Ada] Typo fix in finalization comment
Add missing 's' and reformat the comment block.
gcc/ada/
* exp_ch7.adb: Fix typo.
-rw-r--r-- | gcc/ada/exp_ch7.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index ae3663e..7434364 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -157,14 +157,14 @@ package body Exp_Ch7 is -- Finalization Management -- ----------------------------- - -- This part describe how Initialization/Adjustment/Finalization procedures - -- are generated and called. Two cases must be considered, types that are - -- Controlled (Is_Controlled flag set) and composite types that contain - -- controlled components (Has_Controlled_Component flag set). In the first - -- case the procedures to call are the user-defined primitive operations - -- Initialize/Adjust/Finalize. In the second case, GNAT generates - -- Deep_Initialize, Deep_Adjust and Deep_Finalize that are in charge - -- of calling the former procedures on the controlled components. + -- This part describes how Initialization/Adjustment/Finalization + -- procedures are generated and called. Two cases must be considered: types + -- that are Controlled (Is_Controlled flag set) and composite types that + -- contain controlled components (Has_Controlled_Component flag set). In + -- the first case the procedures to call are the user-defined primitive + -- operations Initialize/Adjust/Finalize. In the second case, GNAT + -- generates Deep_Initialize, Deep_Adjust and Deep_Finalize that are in + -- charge of calling the former procedures on the controlled components. -- For records with Has_Controlled_Component set, a hidden "controller" -- component is inserted. This controller component contains its own |