name_table: get rid of Nam_Buffer/Nam_Length.

1 files changed, 0 insertions, 18 deletions

diff --git a/src/name_table.ads b/src/name_table.ads
index eb604c8f1..2dc6137c6 100644
--- a/src/name_table.ads
+++ b/src/name_table.ads
@@ -47,10 +47,6 @@ package Name_Table is
    --  If the name is a character, then single quote are added.
    function Image (Id: Name_Id) return String;
 
-   --  Set NAME_BUFFER/NAME_LENGTH with the image of ID.  Characters aren't
-   --  quoted.
-   procedure Image (Id : Name_Id);
-
    --  Get the address of the first character of ID.  The address is valid
    --  until the next call to Get_Identifier (which may reallocate the string
    --  table).
@@ -71,9 +67,6 @@ package Name_Table is
    function Is_Character (Id: Name_Id) return Boolean;
    pragma Inline (Is_Character);
 
-   --  Get or create an entry in the name table, use NAME_BUFFER/NAME_LENGTH.
-   function Get_Identifier return Name_Id;
-
    --  Like GET_IDENTIFIER, but return NULL_IDENTIFIER if the identifier
    --  is not found (and do not create an entry for it).
    function Get_Identifier_No_Create (Str : String) return Name_Id;
@@ -93,17 +86,6 @@ package Name_Table is
    --  Be sure all info fields have their default value.
    procedure Assert_No_Infos;
 
-   --  This buffer is used by get_token to set the name.
-   --  This can be seen as a copy buffer but this is necessary because names
-   --  case is 'normalized' as VHDL is case insensitive.
-   --  To avoid name clash with std_names, Nam_Buffer and Nam_Length are used
-   --  instead of Name_Buffer and Name_Length.
-   Max_Nam_Length : constant Natural := 1024;
-   Nam_Buffer : String (1 .. Max_Nam_Length);
-
-   --  The length of the name string.
-   Nam_Length: Natural range 0 .. Max_Nam_Length;
-
    --  Free all resources.  The package cannot be used anymore after calling
    --  this procedure.
    procedure Finalize;