aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.2.1/gcc/ada/symbols.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.2.1/gcc/ada/symbols.ads')
-rw-r--r--gcc-4.2.1/gcc/ada/symbols.ads113
1 files changed, 0 insertions, 113 deletions
diff --git a/gcc-4.2.1/gcc/ada/symbols.ads b/gcc-4.2.1/gcc/ada/symbols.ads
deleted file mode 100644
index b9a5e5f2a..000000000
--- a/gcc-4.2.1/gcc/ada/symbols.ads
+++ /dev/null
@@ -1,113 +0,0 @@
-------------------------------------------------------------------------------
--- --
--- GNAT COMPILER COMPONENTS --
--- --
--- S Y M B O L S --
--- --
--- S p e c --
--- --
--- Copyright (C) 2003-2005, 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 2, 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 COPYING. If not, write --
--- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
--- Boston, MA 02110-1301, USA. --
--- --
--- 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 GNAT.OS_Lib; use GNAT.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.
-
- 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;