OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

butil.ads, [...] (Get_Unit_Name_String): Remove incomplete duplicate implementation of this subprogram from butil. 

* butil.ads, butil.adb, bindgen.adb (Get_Unit_Name_String): Remove
	incomplete duplicate implementation of this subprogram from butil.

From-SVN: r90902
This commit is contained in:
Arnaud Charlet 2004-11-19 11:55:59 +01:00
parent bebbff91ba
commit ccf255117d
3 changed files with 4 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/bindgen.adb
View File

@ -26,7 +26,6 @@
with ALI; use ALI;
with Binde; use Binde;
with Butil; use Butil;
with Casing; use Casing;
with Fname; use Fname;
with GNAT.OS_Lib; use GNAT.OS_Lib;
@ -1203,7 +1202,7 @@ package body Bindgen is
for J in Elab_Order.First .. Elab_Order.Last loop
Set_String (" -- ");
Get_Unit_Name_String (Units.Table (Elab_Order.Table (J)).Uname);
Get_Name_String (Units.Table (Elab_Order.Table (J)).Uname);
Set_Name_Buffer;
Write_Statement_Buffer;
end loop;
@ -1221,7 +1220,7 @@ package body Bindgen is
WBI ("/* BEGIN ELABORATION ORDER");
for J in Elab_Order.First .. Elab_Order.Last loop
Get_Unit_Name_String (Units.Table (Elab_Order.Table (J)).Uname);
Get_Name_String (Units.Table (Elab_Order.Table (J)).Uname);
Set_Name_Buffer;
Write_Statement_Buffer;
end loop;

19
gcc/ada/butil.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- 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- --
@ -30,23 +30,6 @@ with Output; use Output;
package body Butil is
--------------------------
-- Get_Unit_Name_String --
--------------------------
procedure Get_Unit_Name_String (U : Unit_Name_Type) is
begin
Get_Name_String (U);
if Name_Buffer (Name_Len) = 's' then
Name_Buffer (Name_Len - 1 .. Name_Len + 5) := " (spec)";
else
Name_Buffer (Name_Len - 1 .. Name_Len + 5) := " (body)";
end if;
Name_Len := Name_Len + 5;
end Get_Unit_Name_String;
----------------------
-- Is_Internal_Unit --
----------------------

6
gcc/ada/butil.ads
View File

@ -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.