diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-04-25 17:12:34 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-04-25 17:12:34 +0200 |
| commit | d024b1268cedd1e5720d9f6968bef11d8a159c15 (patch) | |
| tree | f6ae78dc92a93c3dcc28c325109924304a992559 /gcc/ada/lib-xref.adb | |
| parent | 838ff415aed1282e62247bac07e80955d8c85aeb (diff) | |
| download | gcc-d024b1268cedd1e5720d9f6968bef11d8a159c15.zip gcc-d024b1268cedd1e5720d9f6968bef11d8a159c15.tar.gz gcc-d024b1268cedd1e5720d9f6968bef11d8a159c15.tar.bz2 | |
[multiple changes]
2012-04-25 Vincent Celier <celier@adacore.com>
* sem_ch12.adb (Inherit_Context): Compare library units, not
names of units, when checking if a unit is already in the context.
2012-04-25 Thomas Quinot <quinot@adacore.com>
* sem_ch3.adb: Reverse_Storage_Order must be propagated to
untagged derived record types.
2012-04-25 Ed Schonberg <schonberg@adacore.com>
* lib-xref.adb: Adjust position of end label.
From-SVN: r186827
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index b6595b3..fb46a36 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -1031,10 +1031,14 @@ package body Lib.Xref is Ref := Original_Location (Sloc (Nod)); Def := Original_Location (Sloc (Ent)); - -- If this is an operator symbol, skip the initial - -- quote, for navigation purposes. + -- If this is an operator symbol, skip the initial quote for + -- navigation purposes. This is not done for the end label, + -- where we want the actual position after the closing quote. - if Nkind (N) = N_Defining_Operator_Symbol + if Typ = 't' then + null; + + elsif Nkind (N) = N_Defining_Operator_Symbol or else Nkind (Nod) = N_Operator_Symbol then Ref := Ref + 1; |