diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-14 15:32:14 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-14 15:32:14 +0200 |
| commit | 5875f8d66eca25f9208bf948c2aa80d6bb88d99f (patch) | |
| tree | 8cd5f637a3983c187a4335bba34225ba77a08a2c /gcc/ada/ali.adb | |
| parent | 395993ce178c5c7556fc584cdaacf9be77c816a3 (diff) | |
| download | gcc-5875f8d66eca25f9208bf948c2aa80d6bb88d99f.zip gcc-5875f8d66eca25f9208bf948c2aa80d6bb88d99f.tar.gz gcc-5875f8d66eca25f9208bf948c2aa80d6bb88d99f.tar.bz2 | |
[multiple changes]
2010-06-14 Sergey Rybin <rybin@adacore.com>
* gnat_ugn.texi: Add description of '-cargs gcc_switches' to gnatstub
and gnatppa.
2010-06-14 Thomas Quinot <quinot@adacore.com>
* exp_ch4.adb (Expand_Short_Circuit_Operator): New subprogram,
factoring duplicated code between...
(Expand_N_And_Than, Expand_N_Or_Else): Remove duplicated code.
* a-envvar.ads: Minor reformatting
2010-06-14 Arnaud Charlet <charlet@adacore.com>
* ali.adb, ali.ads, lib-xref.ads: Document new '+' letter for C/C++
static entities.
(Scan_ALI): Take into account new Visibility field.
(Visibility_Kind): New type.
(Xref_Entity_Record): Replace Lib field by Visibility.
* gcc-interface/Make-lang.in: Update dependencies.
2010-06-14 Pascal Obry <obry@adacore.com>
* raise.h: Remove unused defintions.
2010-06-14 Bob Duff <duff@adacore.com>
* par-ch10.adb (P_Subunit): If the next token after "separate(X)" is
Tok_Not or Tok_Overriding, call P_Subprogram. We had previously given
the incorrect error "proper body expected".
* par-ch6.adb (P_Subprogram): Suppress "overriding indicator not
allowed here" error in case of subunits, which was triggered by the
above change to P_Subunit.
From-SVN: r160740
Diffstat (limited to 'gcc/ada/ali.adb')
| -rw-r--r-- | gcc/ada/ali.adb | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index 27144b9..9effd22 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -2190,10 +2190,19 @@ package body ALI is -- Start of processing for Read_Refs_For_One_Entity begin - XE.Line := Get_Nat; - XE.Etype := Getc; - XE.Col := Get_Nat; - XE.Lib := (Getc = '*'); + XE.Line := Get_Nat; + XE.Etype := Getc; + XE.Col := Get_Nat; + + case Getc is + when '*' => + XE.Visibility := Global; + when '+' => + XE.Visibility := Static; + when others => + XE.Visibility := Other; + end case; + XE.Entity := Get_Name; -- Handle the information about generic instantiations |