asis/asis-extensions.adb | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
# Regarding to ChangeLog-2010 2010-10-26 Is_Overriding_Operation is removed from
# einfo.ad[sb], use Present (Overriden_Operation instead
--- a/asis/asis-extensions.adb
+++ b/asis/asis-extensions.adb
@@ -2523,7 +2523,7 @@
Nkind (Entity_N) in
N_Defining_Identifier .. N_Defining_Operator_Symbol
then
- Result := Is_Overriding_Operation (Entity_N);
+ Result := Present (Overridden_Operation (Entity_N));
end if;
return Result;