Merge remote-tracking branch 'gnu/gcc-4_7-branch' into rework

[pf3gnuchains/gcc-fork.git] / gcc / ada / ali.ads

diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads
index ab15ca1..b2b9b3d 100644 (file)
--- a/gcc/ada/ali.ads
+++ b/gcc/ada/ali.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2010, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2011, 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- --
@@ -24,8 +24,8 @@
 ------------------------------------------------------------------------------
 
 --  This package defines the internal data structures used for representation
---  of Ada Library Information (ALI) acquired from the ALI files generated
---  by the front end.
+--  of Ada Library Information (ALI) acquired from the ALI files generated by
+--  the front end.
 
 with Casing;  use Casing;
 with Gnatvsn; use Gnatvsn;
@@ -372,6 +372,9 @@ package ALI is
       Optimize_Alignment : Character;
       --  Optimize_Alignment setting. Set to L/S/T/O for OL/OS/OT/OO present
 
+      Has_Finalizer : Boolean;
+      --  Indicates whether a package body or a spec has a library-level
+      --  finalization routine.
    end record;
 
    package Units is new Table.Table (
@@ -972,6 +975,10 @@ package ALI is
       --     ref1 is a reference to an entity that was instantied at ref2.
       --     ref2 itself is also the result of an instantiation, that took
       --     place at ref3
+
+      Imported_Lang : Name_Id := No_Name;
+      Imported_Name : Name_Id := No_Name;
+      --  Language and name of imported entity reference
    end record;
 
    package Xref is new Table.Table (