diff options
| author | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-12 00:01:00 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-12 00:01:00 +0100 |
| commit | 7fb754a1ad3d542eca7724a944fa54e8bebbbff4 (patch) | |
| tree | 11d29e57da04b303a82bfe15ecbabc386ef4ea29 /gcc/ada/lib-xref.adb | |
| parent | 0873bafcaa07ec24cc51e2bced0458252b5d028e (diff) | |
| download | gcc-7fb754a1ad3d542eca7724a944fa54e8bebbbff4.zip gcc-7fb754a1ad3d542eca7724a944fa54e8bebbbff4.tar.gz gcc-7fb754a1ad3d542eca7724a944fa54e8bebbbff4.tar.bz2 | |
freeze.adb: Make Freeze_Fixed_Point_Type visible, for use in sem_attr.
* freeze.adb: Make Freeze_Fixed_Point_Type visible, for use in
sem_attr.
* sem_attr.adb: Simplify previous fix for Address.
(Set_Bounds): If prefix is a non-frozen fixed-point type, freeze now,
to avoid anomalies where the bound of the type appears to raise
constraint error.
* lib-xref.adb (Output_Refs): Make sure pointers are always properly
handled.
* sem_ch12.adb (Analyze_Subprogram_Instantiation): Check for a
renamed unit before checking for recursive instantiations.
* prj.ads: Add comments for some of the fields.
From-SVN: r47902
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index c49866f..c5b5b7d 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -698,8 +698,15 @@ package body Lib.Xref is if Tref /= Etype (Tref) then Tref := First_Subtype (Etype (Tref)); - Left := '<'; - Right := '>'; + + -- Set brackets for derived type, but don't + -- override pointer case since the fact that + -- something is a pointer is more important + + if Left /= '(' then + Left := '<'; + Right := '>'; + end if; -- If non-derived ptr, get designated type |