diff options
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 |