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:
parent
bebbff91ba
commit
ccf255117d
|
@ -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;
|
||||
|
|
|
@ -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,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.
|
||||
|
|
Loading…
Reference in New Issue