diff options
Diffstat (limited to 'gcc/ada/sem_type.adb')
| -rw-r--r-- | gcc/ada/sem_type.adb | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/gcc/ada/sem_type.adb b/gcc/ada/sem_type.adb index c391163ea4b..0d10262fc28 100644 --- a/gcc/ada/sem_type.adb +++ b/gcc/ada/sem_type.adb @@ -46,6 +46,7 @@ with Stand; use Stand; with Sinfo; use Sinfo; with Snames; use Snames; with Table; +with Treepr; use Treepr; with Uintp; use Uintp; package body Sem_Type is @@ -81,7 +82,7 @@ package body Sem_Type is package All_Interp is new Table.Table ( Table_Component_Type => Interp, - Table_Index_Type => Int, + Table_Index_Type => Interp_Index, Table_Low_Bound => 0, Table_Initial => Alloc.All_Interp_Initial, Table_Increment => Alloc.All_Interp_Increment, @@ -3435,6 +3436,20 @@ package body Sem_Type is end if; end Valid_Comparison_Arg; + ------------------ + -- Write_Interp -- + ------------------ + + procedure Write_Interp (It : Interp) is + begin + Write_Str ("Nam: "); + Print_Tree_Node (It.Nam); + Write_Str ("Typ: "); + Print_Tree_Node (It.Typ); + Write_Str ("Abstract_Op: "); + Print_Tree_Node (It.Abstract_Op); + end Write_Interp; + ---------------------- -- Write_Interp_Ref -- ---------------------- @@ -3460,6 +3475,13 @@ package body Sem_Type is Nam : Entity_Id; begin + Write_Str ("Overloads: "); + Print_Node_Briefly (N); + + if Nkind (N) not in N_Has_Entity then + return; + end if; + if not Is_Overloaded (N) then Write_Str ("Non-overloaded entity "); Write_Eol; |