aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/ada/symbols.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.9/gcc/ada/symbols.ads')
-rw-r--r--gcc-4.9/gcc/ada/symbols.ads116
1 files changed, 116 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/ada/symbols.ads b/gcc-4.9/gcc/ada/symbols.ads
new file mode 100644
index 000000000..65954dc8b
--- /dev/null
+++ b/gcc-4.9/gcc/ada/symbols.ads
@@ -0,0 +1,116 @@
+------------------------------------------------------------------------------
+-- --
+-- GNAT COMPILER COMPONENTS --
+-- --
+-- S Y M B O L S --
+-- --
+-- S p e c --
+-- --
+-- Copyright (C) 2003-2007, 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- --
+-- ware Foundation; either version 3, or (at your option) any later ver- --
+-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
+-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
+-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
+-- for more details. You should have received a copy of the GNU General --
+-- Public License distributed with GNAT; see file COPYING3. If not, go to --
+-- http://www.gnu.org/licenses for a complete copy of the license. --
+-- --
+-- GNAT was originally developed by the GNAT team at New York University. --
+-- Extensive contributions were provided by Ada Core Technologies Inc. --
+-- --
+------------------------------------------------------------------------------
+
+-- This package allows the creation of symbol files to be used for linking
+-- libraries. The format of symbol files depends on the platform, so there is
+-- several implementations of the body.
+
+with GNAT.Dynamic_Tables;
+
+with System.OS_Lib; use System.OS_Lib;
+
+package Symbols is
+
+ type Policy is
+ -- Symbol policy
+
+ (Autonomous,
+ -- Create a symbol file without considering any reference
+
+ Compliant,
+ -- Either create a symbol file with the same major and minor IDs if
+ -- all symbols are already found in the reference file or with an
+ -- incremented minor ID, if not.
+
+ Controlled,
+ -- Fail if symbols are not the same as those in the reference file
+
+ Restricted,
+ -- Restrict the symbols to those in the symbol file. Fail if some
+ -- symbols in the symbol file are not exported from the object files.
+
+ Direct);
+ -- The reference symbol file is copied to the symbol file
+
+ type Symbol_Kind is (Data, Proc);
+ -- To distinguish between the different kinds of symbols
+
+ type Symbol_Data is record
+ Name : String_Access;
+ Kind : Symbol_Kind := Data;
+ Present : Boolean := True;
+ end record;
+ -- Data (name and kind) for each of the symbols
+
+ package Symbol_Table is new GNAT.Dynamic_Tables
+ (Table_Component_Type => Symbol_Data,
+ Table_Index_Type => Natural,
+ Table_Low_Bound => 0,
+ Table_Initial => 100,
+ Table_Increment => 100);
+ -- The symbol tables
+
+ Original_Symbols : Symbol_Table.Instance;
+ -- The symbols, if any, found in the reference symbol table
+
+ Complete_Symbols : Symbol_Table.Instance;
+ -- The symbols, if any, found in the objects files
+
+ procedure Initialize
+ (Symbol_File : String;
+ Reference : String;
+ Symbol_Policy : Policy;
+ Quiet : Boolean;
+ Version : String;
+ Success : out Boolean);
+ -- Initialize a symbol file. This procedure must be called before
+ -- Processing any object file. Depending on the platforms and the
+ -- circumstances, additional messages may be issued if Quiet is False.
+
+ package Processing is
+
+ -- This package, containing a single visible procedure Process, exists so
+ -- that it can be a subunits, for some platforms (such as VMS Alpha and
+ -- IA64), the body of package Symbols is common, while the subunit
+ -- Processing is not.
+
+ procedure Process
+ (Object_File : String;
+ Success : out Boolean);
+ -- Get the symbols from an object file. Success is set to True if the
+ -- object file exists and has the expected format.
+
+ end Processing;
+
+ procedure Finalize
+ (Quiet : Boolean;
+ Success : out Boolean);
+ -- Finalize the symbol file. This procedure should be called after
+ -- Initialize (once) and Process (one or more times). If Success is
+ -- True, the symbol file is written and closed, ready to be used for
+ -- linking the library. Depending on the platforms and the circumstances,
+ -- additional messages may be issued if Quiet is False.
+
+end Symbols;