From e0aacc92672d35a702586e4c1c9cf2f01d63bcd3 Mon Sep 17 00:00:00 2001 From: Emmanuel Briot Date: Mon, 15 Oct 2007 15:57:46 +0200 Subject: [PATCH] xref_lib.adb (Get_Full_Type): Add support for the 'h' entity type, ie interfaces. 2007-10-15 Emmanuel Briot * xref_lib.adb (Get_Full_Type): Add support for the 'h' entity type, ie interfaces. * xr_tabls.adb (Add_Reference): Add support for the new 'R' reference type, for dispatching calls. From-SVN: r129340 --- gcc/ada/xr_tabls.adb | 4 ++-- gcc/ada/xref_lib.adb | 4 ++++ 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb index 30993eed07b..3456bac9c2b 100644 --- a/gcc/ada/xr_tabls.adb +++ b/gcc/ada/xr_tabls.adb @@ -395,7 +395,7 @@ package body Xr_Tabls is begin case Ref_Type is - when 'b' | 'c' | 'm' | 'r' | 'i' | ' ' | 'x' => + when 'b' | 'c' | 'm' | 'r' | 'R' | 'i' | ' ' | 'x' => null; when 'l' | 'w' => @@ -458,7 +458,7 @@ package body Xr_Tabls is New_Ref.Next := Declaration.Body_Ref; Declaration.Body_Ref := New_Ref; - when 'r' | 'i' | 'l' | ' ' | 'x' | 'w' => + when 'r' | 'R' | 'i' | 'l' | ' ' | 'x' | 'w' => New_Ref.Next := Declaration.Ref_Ref; Declaration.Ref_Ref := New_Ref; diff --git a/gcc/ada/xref_lib.adb b/gcc/ada/xref_lib.adb index 2c2589b168b..7f22dce6f89 100644 --- a/gcc/ada/xref_lib.adb +++ b/gcc/ada/xref_lib.adb @@ -522,6 +522,7 @@ package body Xref_Lib is when 'd' => return Param_String & "decimal object"; when 'e' => return Param_String & "enumeration object"; when 'f' => return Param_String & "float object"; + when 'h' => return "interface"; when 'i' => return Param_String & "integer object"; when 'm' => return Param_String & "modular object"; when 'o' => return Param_String & "fixed object"; @@ -669,6 +670,7 @@ package body Xref_Lib is Dependencies : Boolean := False) is Ali : String_Access renames File.Buffer; + pragma Warnings (Off, Ali); begin if File.Buffer /= null then @@ -1038,6 +1040,8 @@ package body Xref_Lib is elsif Ali (Ptr) = '=' then declare P_Line, P_Column : Natural; + pragma Warnings (Off, P_Line); + pragma Warnings (Off, P_Column); begin Ptr := Ptr + 1; -- 2.30.2