-- --
-- 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- --
------------------------------------------------------------------------------
-- 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;
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 (
-- Column number of definition
Visibility : Visibility_Kind;
- -- Visiblity of entity
+ -- Visibility of entity
Entity : Name_Id;
-- Name of entity
-- 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 (