1 files changed, 0 insertions, 4 deletions
diff --git a/src/name_table.adb b/src/name_table.adb
index e5d880a75..ba2bd4b98 100644
--- a/src/name_table.adb
+++ b/src/name_table.adb
@@ -103,8 +103,6 @@ package body Name_Table is
                            Info => 0));
    end Append_Terminator;
 
-   --  Initialize this package
-   --  This must be called once and only once before any use.
    procedure Initialize is
    begin
       Strings_Table.Init;
@@ -454,6 +452,4 @@ package body Name_Table is
          end loop;
       end;
    end Disp_Stats;
-begin
-   Initialize;
 end Name_Table;