Unrolled linked lists for StateHEADmaster

1 files changed, 5 insertions, 3 deletions

diff --git a/src/kompsos-pretty_print.adb b/src/kompsos-pretty_print.adb
index 216ceec..2befe6d 100644
--- a/src/kompsos-pretty_print.adb
+++ b/src/kompsos-pretty_print.adb
@@ -119,9 +119,11 @@ package body Kompsos.Pretty_Print is
                 Marker : State_Component_Access := Item.Ctrl.Actual;
             begin
                 while Marker /= null loop
-                    SU.Append (Result, Latin.HT &
-                        Image (Marker.Key) & " => " &
-                        Image (Marker.Value) & Latin.LF);
+                    for Index in Valid_Count range Valid_Count'First .. Marker.Valid loop
+                        SU.Append (Result, Latin.HT &
+                            Image (Marker.Data (Index).Key) & " => " &
+                            Image (Marker.Data (Index).Value) & Latin.LF);
+                    end loop;
                     Marker := Marker.Next.Ctrl.Actual;
                 end loop;
             end;