From 28d132c2823d7dfa21190bf746f9f39dd59a40d8 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 22 Jan 2026 16:41:39 +1300
Subject: States are now custom linked lists

---
 src/kompsos-pretty_print.adb | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

(limited to 'src/kompsos-pretty_print.adb')

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;
-- 
cgit