From 42e3c2fa30552a227e38f03b859f03ae51f9000d Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Thu, 22 Jan 2026 10:43:33 +1300 Subject: Moved < operator for Graph_Component_Access over to Pretty_Print package --- src/kompsos-pretty_print.adb | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) (limited to 'src/kompsos-pretty_print.adb') diff --git a/src/kompsos-pretty_print.adb b/src/kompsos-pretty_print.adb index a9ba9e2..729b658 100644 --- a/src/kompsos-pretty_print.adb +++ b/src/kompsos-pretty_print.adb @@ -11,7 +11,9 @@ with Ada.Characters.Latin_1, Ada.Strings.Fixed, Ada.Strings.Unbounded, - Kompsos.Collector; + Kompsos.Collector, + System.Address_To_Access_Conversions, + System.Storage_Elements; package body Kompsos.Pretty_Print is @@ -24,6 +26,22 @@ package body Kompsos.Pretty_Print is + package Graph_Convert is new System.Address_To_Access_Conversions (Graph_Component); + + function "<" + (Left, Right : in Graph_Component_Access) + return Boolean + is + use System.Storage_Elements; + begin + return + To_Integer (Graph_Convert.To_Address (Graph_Convert.Object_Pointer (Left))) < + To_Integer (Graph_Convert.To_Address (Graph_Convert.Object_Pointer (Right))); + end "<"; + + + + function Image (Item : in Long_Natural) return String is -- cgit