diff options
author | Robert Dewar <dewar@adacore.com> | 2010-06-16 17:53:09 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-16 17:53:09 +0200 |
commit | cdcb672daa175e4983ba6c4acae2a7c92963587b (patch) | |
tree | 8c57fb91d9c06dbdf4b9bc41aa5d5b437ea68d3c | |
parent | 0fb31b5f7b3abdc1643fafa77601a0e425a29db2 (diff) | |
download | gcc-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.adb | 7 |
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; |