diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-16 08:29:44 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-16 08:29:44 +0000 |
| commit | 470d645922872bcddc0e3372351431857f26c493 (patch) | |
| tree | 1ca1dce2c860624d8d9d125aa9c44483752fcbda /gcc/ada/symbols.adb | |
| parent | 78a7ec5e9703e7b62e27851cae2559dc37a427fd (diff) | |
| download | gcc-470d645922872bcddc0e3372351431857f26c493.tar.gz | |
2005-06-14 Vincent Celier <celier@adacore.com>
* gnatsym.adb: Adapt to modification of package Symbols: procedure
Process is now in package Processing.
* symbols.ads, symbols.adb:
(Processing): New package, containing procedure Process
* symbols-vms-alpha.adb:
Replaced by symbols-vms.adb and symbols-processing-vms-alpha.adb
* symbols-vms.adb, symbols-processing-vms-alpha.adb,
symbols-processing-vms-ia64.adb: New files.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101018 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/symbols.adb')
| -rw-r--r-- | gcc/ada/symbols.adb | 32 |
1 files changed, 20 insertions, 12 deletions
diff --git a/gcc/ada/symbols.adb b/gcc/ada/symbols.adb index 0ccd4cbf666..6f021b904f2 100644 --- a/gcc/ada/symbols.adb +++ b/gcc/ada/symbols.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003 Free Software Foundation, Inc. -- +-- 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- -- @@ -54,18 +54,26 @@ package body Symbols is Success := False; end Initialize; - ------------- - -- Process -- - ------------- + ---------------- + -- Processing -- + ---------------- - procedure Process - (Object_File : String; - Success : out Boolean) - is - pragma Unreferenced (Object_File); - begin - Success := False; - end Process; + 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 -- |