Commit cdcb672d by Robert Dewar Committed by Arnaud Charlet

exp_disp.adb: Minor reformatting

2010-06-16  Robert Dewar  <dewar@adacore.com>

	* exp_disp.adb: Minor reformatting

From-SVN: r160844
parent 0fb31b5f
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment