diff options
Diffstat (limited to 'gcc/ada/einfo.adb')
-rw-r--r-- | gcc/ada/einfo.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 8d65e9e7513..499db134ec8 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -8497,10 +8497,12 @@ package body Einfo is when E_Procedure | E_Function => - if Is_Dispatching_Operation (Id) then - Write_Str ("Overridden_Operation"); - else + if Ekind (Id) = E_Procedure + and then not Is_Dispatching_Operation (Id) + then Write_Str ("Static_Initialization"); + else + Write_Str ("Overridden_Operation"); end if; when E_Record_Type | |