diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 14:24:23 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 14:24:23 +0200 |
| commit | 7b00e31d1e201bdc2fb6518b8866bb0851261c7b (patch) | |
| tree | 19c848f498fd1aeb18d050c15ec9536a48e2a910 /gcc/ada/symbols-processing-vms-ia64.adb | |
| parent | 0e41a941ee11651b5805c730d2675902d64577aa (diff) | |
| download | gcc-7b00e31d1e201bdc2fb6518b8866bb0851261c7b.zip gcc-7b00e31d1e201bdc2fb6518b8866bb0851261c7b.tar.gz gcc-7b00e31d1e201bdc2fb6518b8866bb0851261c7b.tar.bz2 | |
[multiple changes]
2009-07-13 Robert Dewar <dewar@adacore.com>
* prj.ads, prj-dect.adb, prj-err.ads, prj-err.adb, prj-nmsc.adb,
prj-strt.ads: Minor reformatting
2009-07-13 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb (Build_From_Any_Call): For the case of a generic type,
set the type of the From_Any call to the base type.
2009-07-13 Doug Rupp <rupp@adacore.com>
* symbols-processing-vms-ia64.adb (Process): Add variables and
constants to retrieve and check for symbol visibility.
2009-07-13 Javier Miranda <miranda@adacore.com>
* exp_ch4.adb (Expand_N_Unchecked_Type_Conversion): If conversion is to
the identical type we remove the conversion completely because
it is useless.
From-SVN: r149575
Diffstat (limited to 'gcc/ada/symbols-processing-vms-ia64.adb')
| -rw-r--r-- | gcc/ada/symbols-processing-vms-ia64.adb | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/gcc/ada/symbols-processing-vms-ia64.adb b/gcc/ada/symbols-processing-vms-ia64.adb index 0eb1af7..beb099e 100644 --- a/gcc/ada/symbols-processing-vms-ia64.adb +++ b/gcc/ada/symbols-processing-vms-ia64.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2009, 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- -- @@ -85,9 +85,14 @@ package body Processing is Stname : Integer; Stinfo : Character; + Stother : Character; Sttype : Integer; Stbind : Integer; Stshndx : Integer; + Stvis : Integer; + + STV_Internal : constant := 1; + STV_Hidden : constant := 2; Section_Headers : Section_Header_Ptr; @@ -340,7 +345,7 @@ package body Processing is while Offset < End_Symtab loop Get_Word (Stname); Get_Byte (Stinfo); - Get_Byte (B); + Get_Byte (Stother); Get_Half (Stshndx); for J in 1 .. 4 loop Get_Word (W); @@ -348,10 +353,13 @@ package body Processing is Sttype := Integer'(Character'Pos (Stinfo)) mod 16; Stbind := Integer'(Character'Pos (Stinfo)) / 16; + Stvis := Integer'(Character'Pos (Stother)) mod 4; if (Sttype = 1 or else Sttype = 2) and then Stbind /= 0 and then Stshndx /= 0 + and then Stvis /= STV_Internal + and then Stvis /= STV_Hidden then -- Check if this is a symbol from a generic body |