From: Emmanuel Briot <briot@adacore.com>
Date: Mon, 15 Oct 2007 13:57:46 +0000 (+0200)
Subject: xref_lib.adb (Get_Full_Type): Add support for the 'h' entity type, ie interfaces.
X-Git-Tag: releases/gcc-4.3.0~2025
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=e0aacc92672d35a702586e4c1c9cf2f01d63bcd3;p=thirdparty%2Fgcc.git

xref_lib.adb (Get_Full_Type): Add support for the 'h' entity type, ie interfaces.

2007-10-15  Emmanuel Briot  <briot@adacore.com>

	* 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
---

diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb
index 30993eed07b6..3456bac9c2b1 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 2c2589b168b1..7f22dce6f896 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;