URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [ada/] [symbols.adb] - Blame information for rev 806

Go to most recent revision | Details | Compare with Previous | View Log


------------------------------------------------------------------------------
--                                                                          --
--                         GNAT COMPILER COMPONENTS                         --
--                                                                          --
--                              S Y M B O L S                               --
--                                                                          --
--                                 B o d y                                  --
--                                                                          --
--          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 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 are 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;

Line No.	Rev	Author	Line
1	706	jeremybenn	`------------------------------------------------------------------------------`
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
29			`with Ada.Text_IO; use Ada.Text_IO;`
30
31			`package 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
90			`end Symbols;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [ada/] [symbols.adb] - Blame information for rev 806