Name_Table: use Logging instead of Text_IO.

1 files changed, 10 insertions, 10 deletions

diff --git a/src/name_table.adb b/src/name_table.adb
index cb3ddf5b4..bcf8fb343 100644
--- a/src/name_table.adb
+++ b/src/name_table.adb
@@ -15,9 +15,9 @@
 --  along with GHDL; see the file COPYING.  If not, write to the Free
 --  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 --  02111-1307, USA.
-with Ada.Text_IO; use Ada.Text_IO;
 with Ada.Unchecked_Deallocation;
 with Interfaces;
+with Logging; use Logging;
 with Tables;
 
 package body Name_Table is
@@ -366,7 +366,7 @@ package body Name_Table is
       for I in Names_Table.First .. Names_Table.Last loop
          if Get_Name_Info (I) /= 0 then
             Err := True;
-            Put_Line ("still infos in" & Name_Id'Image (I) & ", ie: "
+            Log_Line ("still infos in" & Name_Id'Image (I) & ", ie: "
                       & Image (I) & ", info ="
                       & Int32'Image (Names_Table.Table (I).Info));
          end if;
@@ -392,11 +392,11 @@ package body Name_Table is
    is
       First : Str_Idx;
    begin
-      Put_Line ("strings_table:");
+      Log_Line ("strings_table:");
       First := 0;
       for I in 0 .. Strings_Table.Last loop
          if Strings_Table.Table(I) = NUL then
-            Put_Line (Str_Idx'Image (First) & ": "
+            Log_Line (Str_Idx'Image (First) & ": "
                       & String (Strings_Table.Table (First .. I - 1)));
             First := I + 1;
          end if;
@@ -422,12 +422,12 @@ package body Name_Table is
       Max : Natural;
       N : Natural;
    begin
-      Put_Line ("Name table statistics:");
-      Put_Line (" number of identifiers: " & Name_Id'Image (Last_Name_Id));
-      Put_Line (" size of strings: " & Str_Idx'Image (Strings_Table.Last));
-      Put_Line (" hash array length: "
+      Log_Line ("Name table statistics:");
+      Log_Line (" number of identifiers: " & Name_Id'Image (Last_Name_Id));
+      Log_Line (" size of strings: " & Str_Idx'Image (Strings_Table.Last));
+      Log_Line (" hash array length: "
                   & Hash_Value_Type'Image (Hash_Table_Size));
-      Put_Line (" hash distribution (number of entries per length):");
+      Log_Line (" hash distribution (number of entries per length):");
       Min := Natural'Last;
       Max := Natural'First;
       for I in Hash_Table'Range loop
@@ -445,7 +445,7 @@ package body Name_Table is
          end loop;
          for I in S'Range loop
             if S (I) /= 0 then
-               Put_Line ("  " & Natural'Image (I)
+               Log_Line ("  " & Natural'Image (I)
                          & ":" & Natural'Image (S (I)));
             end if;
          end loop;