Commit 245fee17 by Arnaud Charlet

Minor reformatting.

From-SVN: r247210
parent 3e3bc136
......@@ -561,7 +561,7 @@ package body Sem_Disp is
and then not Is_Abstract_Subprogram (Alias (Subp))
and then No (DTC_Entity (Subp))
and then Find_Dispatching_Type (Subp) =
Find_Dispatching_Type (Alias (Subp))
Find_Dispatching_Type (Alias (Subp))
then
-- Private overriding of inherited abstract operation, call is
-- legal.
......
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