File: new-einfo.patch

package info (click to toggle)
asis 2010-5
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 8,964 kB
  • sloc: ada: 103,084; makefile: 313; xml: 19
file content (14 lines) | stat: -rw-r--r-- 489 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
# 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;