From 5875f8d66eca25f9208bf948c2aa80d6bb88d99f Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 14 Jun 2010 15:32:14 +0200 Subject: [multiple changes] 2010-06-14 Sergey Rybin * gnat_ugn.texi: Add description of '-cargs gcc_switches' to gnatstub and gnatppa. 2010-06-14 Thomas Quinot * 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 * 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 * raise.h: Remove unused defintions. 2010-06-14 Bob Duff * 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 --- gcc/ada/ali.adb | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) (limited to 'gcc/ada/ali.adb') 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 -- cgit v1.1