From: Arnaud Charlet Date: Sat, 5 Dec 2020 09:44:48 +0000 (-0500) Subject: [Ada] Remove unused files X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=acf190b208ae6883e94bcaa13adf9e3439bee63d;p=gcc.git [Ada] Remove unused files gcc/ada/ * symbols.ads, symbols.adb: Removed no longer used. --- diff --git a/gcc/ada/symbols.adb b/gcc/ada/symbols.adb deleted file mode 100644 index 133d8006336..00000000000 --- a/gcc/ada/symbols.adb +++ /dev/null @@ -1,90 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- S Y M B O L S -- --- -- --- B o d y -- --- -- --- Copyright (C) 2003-2020, 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 is the default version of this package, used when the creation --- of symbol files is not supported. - -with Ada.Text_IO; use Ada.Text_IO; - -package body Symbols is - - ---------------- - -- Initialize -- - ---------------- - - procedure Initialize - (Symbol_File : String; - Reference : String; - Symbol_Policy : Policy; - Quiet : Boolean; - Version : String; - Success : out Boolean) - is - pragma Unreferenced (Symbol_File); - pragma Unreferenced (Reference); - pragma Unreferenced (Symbol_Policy); - pragma Unreferenced (Quiet); - pragma Unreferenced (Version); - begin - Put_Line - ("creation of symbol files is not supported on this platform"); - Success := False; - end Initialize; - - ---------------- - -- Processing -- - ---------------- - - package body Processing is - - ------------- - -- Process -- - ------------- - - procedure Process - (Object_File : String; - Success : out Boolean) - is - pragma Unreferenced (Object_File); - begin - Success := False; - end Process; - - end Processing; - - -------------- - -- Finalize -- - -------------- - - procedure Finalize - (Quiet : Boolean; - Success : out Boolean) - is - pragma Unreferenced (Quiet); - begin - Success := False; - end Finalize; - -end Symbols; diff --git a/gcc/ada/symbols.ads b/gcc/ada/symbols.ads deleted file mode 100644 index 0193830a462..00000000000 --- a/gcc/ada/symbols.ads +++ /dev/null @@ -1,115 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- S Y M B O L S -- --- -- --- S p e c -- --- -- --- Copyright (C) 2003-2020, 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, 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;