diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2010-06-23 08:53:09 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-23 10:53:09 +0200 |
| commit | d92eccc3593dc167d5b5f59f7493d0867dafbd80 (patch) | |
| tree | 5c8053fc1d8e4b7124ba781806c74492cf8a0ed3 /gcc/ada/xr_tabls.adb | |
| parent | 7c4b480fb3736fd2a9f4fbad273dbafe04649c11 (diff) | |
| download | gcc-d92eccc3593dc167d5b5f59f7493d0867dafbd80.zip gcc-d92eccc3593dc167d5b5f59f7493d0867dafbd80.tar.gz gcc-d92eccc3593dc167d5b5f59f7493d0867dafbd80.tar.bz2 | |
xr_tabls.adb, [...]: Update to latest lib-xref.ads Fix handling of parameters.
2010-06-23 Arnaud Charlet <charlet@adacore.com>
* xr_tabls.adb, xref_lib.adb: Update to latest lib-xref.ads
Fix handling of parameters.
Add protection against unexpected cases.
* sem_ch6.adb (Create_Extra_Formals): Use suffix "L" instead of "A" for
access level, since "A" suffix is already used elsewhere. Similarly,
use suffix "O" instead of "C" for 'Constrained since "C" suffix is used
for xxx'Class.
From-SVN: r161260
Diffstat (limited to 'gcc/ada/xr_tabls.adb')
| -rw-r--r-- | gcc/ada/xr_tabls.adb | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb index 95bdfa9..b75da1f 100644 --- a/gcc/ada/xr_tabls.adb +++ b/gcc/ada/xr_tabls.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2010, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -395,7 +395,7 @@ package body Xr_Tabls is begin case Ref_Type is - when 'b' | 'c' | 'm' | 'r' | 'R' | 'i' | ' ' | 'x' => + when 'b' | 'c' | 'H' | 'm' | 'o' | 'r' | 'R' | 'i' | ' ' | 'x' => null; when 'l' | 'w' => @@ -419,7 +419,12 @@ package body Xr_Tabls is (Symbol_Length => 0, Symbol => "", Key => new String'(Key), - Decl => null, + Decl => new Reference_Record' + (File => File_Ref, + Line => Line, + Column => Column, + Source_Line => null, + Next => null), Is_Parameter => True, Decl_Type => ' ', Body_Ref => null, @@ -458,7 +463,7 @@ package body Xr_Tabls is New_Ref.Next := Declaration.Body_Ref; Declaration.Body_Ref := New_Ref; - when 'r' | 'R' | 'i' | 'l' | ' ' | 'x' | 'w' => + when 'r' | 'R' | 'H' | 'i' | 'l' | 'o' | ' ' | 'x' | 'w' => New_Ref.Next := Declaration.Ref_Ref; Declaration.Ref_Ref := New_Ref; |