diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-11-19 10:55:59 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-11-19 10:55:59 +0000 |
| commit | cec58e186ae133c667539cc66f0cff7a32f59379 (patch) | |
| tree | 560eb9c85c5259e7d97c996bd361a37cb87b2c25 /gcc/ada/butil.ads | |
| parent | 23e833138efd20119ccf186f5fed1c8ac4578282 (diff) | |
| download | gcc-cec58e186ae133c667539cc66f0cff7a32f59379.tar.gz | |
* butil.ads, butil.adb, bindgen.adb (Get_Unit_Name_String): Remove
incomplete duplicate implementation of this subprogram from butil.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@90902 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/butil.ads')
| -rw-r--r-- | gcc/ada/butil.ads | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/gcc/ada/butil.ads b/gcc/ada/butil.ads index 79d5ebd94aa..facf5076636 100644 --- a/gcc/ada/butil.ads +++ b/gcc/ada/butil.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2004 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- -- @@ -48,10 +48,6 @@ package Butil is function Uname_Less (U1, U2 : Unit_Name_Type) return Boolean; -- Determines if the unit name U1 is alphabetically before U2 - procedure Get_Unit_Name_String (U : Unit_Name_Type); - -- Compute unit name with (body) or (spec) after as required. On return - -- the result is stored in Name_Buffer and Name_Len is the length. - procedure Write_Unit_Name (U : Unit_Name_Type); -- Output unit name with (body) or (spec) after as required. On return -- Name_Len is set to the number of characters which were output. |