From c1e163cd3ac2b23455ac44af39917fd5d5e0edd4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 17 Dec 2018 04:45:40 +0100
Subject: name_table(dump): correctly handle first entry.

---
 src/name_table.adb | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/name_table.adb b/src/name_table.adb
index bcf8fb343..e5d880a75 100644
--- a/src/name_table.adb
+++ b/src/name_table.adb
@@ -393,11 +393,14 @@ package body Name_Table is
       First : Str_Idx;
    begin
       Log_Line ("strings_table:");
-      First := 0;
-      for I in 0 .. Strings_Table.Last loop
+      First := Strings_Table.First;
+      for I in Strings_Table.First .. Strings_Table.Last loop
          if Strings_Table.Table(I) = NUL then
-            Log_Line (Str_Idx'Image (First) & ": "
-                      & String (Strings_Table.Table (First .. I - 1)));
+            if I > Strings_Table.First then
+               Log (Str_Idx'Image (First) & ": ");
+               Log (String (Strings_Table.Table (First .. I - 1)));
+               Log_Line;
+            end if;
             First := I + 1;
          end if;
       end loop;
-- 
cgit v1.2.3