1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT COMPILER COMPONENTS                         --
4--                                                                          --
5--                              S Y M B O L S                               --
6--                                                                          --
7--                                 B o d y                                  --
8--                                                                          --
9--          Copyright (C) 2003-2007, Free Software Foundation, Inc.         --
10--                                                                          --
11-- GNAT is free software;  you can  redistribute it  and/or modify it under --
12-- terms of the  GNU General Public License as published  by the Free Soft- --
13-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
14-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
15-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
16-- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
17-- for  more details.  You should have  received  a copy of the GNU General --
18-- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
19-- http://www.gnu.org/licenses for a complete copy of the license.          --
20--                                                                          --
21-- GNAT was originally developed  by the GNAT team at  New York University. --
22-- Extensive contributions were provided by Ada Core Technologies Inc.      --
23--                                                                          --
24------------------------------------------------------------------------------
25
26--  This is the default version of this package, used when the creation
27--  of symbol files is not supported.
28
29with Ada.Text_IO; use Ada.Text_IO;
30
31package body Symbols is
32
33   ----------------
34   -- Initialize --
35   ----------------
36
37   procedure Initialize
38     (Symbol_File   : String;
39      Reference     : String;
40      Symbol_Policy : Policy;
41      Quiet         : Boolean;
42      Version       : String;
43      Success       : out Boolean)
44   is
45      pragma Unreferenced (Symbol_File);
46      pragma Unreferenced (Reference);
47      pragma Unreferenced (Symbol_Policy);
48      pragma Unreferenced (Quiet);
49      pragma Unreferenced (Version);
50   begin
51      Put_Line
52        ("creation of symbol files are not supported on this platform");
53      Success := False;
54   end Initialize;
55
56   ----------------
57   -- Processing --
58   ----------------
59
60   package body Processing is
61
62      -------------
63      -- Process --
64      -------------
65
66      procedure Process
67        (Object_File : String;
68         Success     : out Boolean)
69      is
70         pragma Unreferenced (Object_File);
71      begin
72         Success := False;
73      end Process;
74
75   end Processing;
76
77   --------------
78   -- Finalize --
79   --------------
80
81   procedure Finalize
82     (Quiet   : Boolean;
83      Success : out Boolean)
84   is
85      pragma Unreferenced (Quiet);
86   begin
87      Success := False;
88   end Finalize;
89
90end Symbols;
91