States are now custom linked lists

1 files changed, 11 insertions, 6 deletions

diff --git a/src/kompsos-pretty_print.adb b/src/kompsos-pretty_print.adb
index 729b658..216ceec 100644
--- a/src/kompsos-pretty_print.adb
+++ b/src/kompsos-pretty_print.adb
@@ -112,14 +112,19 @@ package body Kompsos.Pretty_Print is
     is
         Result : SU.Unbounded_String;
     begin
-        if Item.Actual.Is_Empty then
+        if Item.Ctrl.Actual = null then
             SU.Append (Result, Latin.HT & "N/A" & Latin.LF);
         else
-            for Bind of Item.Actual loop
-                SU.Append (Result, Latin.HT &
-                    Image (Bind.Key) & " => " &
-                    Image (Bind.Elem) & Latin.LF);
-            end loop;
+            declare
+                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);
+                    Marker := Marker.Next.Ctrl.Actual;
+                end loop;
+            end;
         end if;
         return SU.To_String (Result);
     end Image;