mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-26 07:40:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Emmanuel Briot 2007-10-15 15:57:46 +02:00 committed by Arnaud Charlet
parent 03bc9897e3
commit e0aacc9267
2 changed files with 6 additions and 2 deletions

4
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;

4
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;