diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-12-05 04:44:48 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-17 05:49:25 -0500 |
| commit | acf190b208ae6883e94bcaa13adf9e3439bee63d (patch) | |
| tree | 230a22f70226dfc1d3b018ec5c06970185b4f4b8 /gcc/ada/symbols.adb | |
| parent | 98032cd46ffc18adfdbf6fb7b585998283ada9f5 (diff) | |
| download | gcc-acf190b208ae6883e94bcaa13adf9e3439bee63d.zip gcc-acf190b208ae6883e94bcaa13adf9e3439bee63d.tar.gz gcc-acf190b208ae6883e94bcaa13adf9e3439bee63d.tar.bz2 | |
[Ada] Remove unused files
gcc/ada/
* symbols.ads, symbols.adb: Removed no longer used.
Diffstat (limited to 'gcc/ada/symbols.adb')
| -rw-r--r-- | gcc/ada/symbols.adb | 90 |
1 files changed, 0 insertions, 90 deletions
diff --git a/gcc/ada/symbols.adb b/gcc/ada/symbols.adb deleted file mode 100644 index 133d800..0000000 --- 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; |