diff options
| -rw-r--r-- | src/name_table.adb | 20 |
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; |