aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2010-06-16 17:53:09 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2010-06-16 17:53:09 +0200
commitcdcb672daa175e4983ba6c4acae2a7c92963587b (patch)
tree8c57fb91d9c06dbdf4b9bc41aa5d5b437ea68d3c
parent0fb31b5f7b3abdc1643fafa77601a0e425a29db2 (diff)
downloadgcc-cdcb672daa175e4983ba6c4acae2a7c92963587b.zip
gcc-cdcb672daa175e4983ba6c4acae2a7c92963587b.tar.gz
gcc-cdcb672daa175e4983ba6c4acae2a7c92963587b.tar.bz2
exp_disp.adb: Minor reformatting
2010-06-16 Robert Dewar <dewar@adacore.com> * exp_disp.adb: Minor reformatting From-SVN: r160844
-rw-r--r--gcc/ada/exp_disp.adb7
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb
index 42ef7e0..e7f980c 100644
--- a/gcc/ada/exp_disp.adb
+++ b/gcc/ada/exp_disp.adb
@@ -1528,17 +1528,16 @@ package body Exp_Disp is
Formal := First (Formals);
while Present (Formal) loop
- -- Handle concurrent types.
+ -- Handle concurrent types
if Ekind (Target_Formal) = E_In_Parameter
and then Ekind (Etype (Target_Formal)) = E_Anonymous_Access_Type
then
Ftyp := Directly_Designated_Type (Etype (Target_Formal));
else
-
- -- if the parent is a constrained discriminated type. the
+ -- If the parent is a constrained discriminated type, then the
-- primitive operation will have been defined on a first subtype.
- -- for proper matching with controlling type, use base type.
+ -- For proper matching with controlling type, use base type.
Ftyp := Base_Type (Etype (Target_Formal));
end if;