diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2026-01-22 10:43:33 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2026-01-22 10:43:33 +1300 |
| commit | 42e3c2fa30552a227e38f03b859f03ae51f9000d (patch) | |
| tree | 40833de7cfbe03168516c1df23e25ff7502844dd /src/kompsos-pretty_print.adb | |
| parent | 2f622510f4feecee552c43a31bd592d1c7f6617f (diff) | |
Moved < operator for Graph_Component_Access over to Pretty_Print package
Diffstat (limited to 'src/kompsos-pretty_print.adb')
| -rw-r--r-- | src/kompsos-pretty_print.adb | 20 |
1 files changed, 19 insertions, 1 deletions
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 |