diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2026-02-06 21:32:44 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2026-02-06 21:32:44 +1300 |
| commit | 0b9e8a567265584f8ad5f321a38cf1f183875693 (patch) | |
| tree | 970c4e4e66b6a8e5e668dc1c12f1d68a8a7a67be /src/kompsos-pretty_print.adb | |
| parent | 6bced91bd28f860d830dfda921ee5056ec93f48c (diff) | |
Changed the map for DOT in Pretty_Print to a Hashed_Map
Diffstat (limited to 'src/kompsos-pretty_print.adb')
| -rw-r--r-- | src/kompsos-pretty_print.adb | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/src/kompsos-pretty_print.adb b/src/kompsos-pretty_print.adb index 328f467..a34abe6 100644 --- a/src/kompsos-pretty_print.adb +++ b/src/kompsos-pretty_print.adb @@ -11,9 +11,7 @@ with Ada.Characters.Latin_1, Ada.Strings.Fixed, Ada.Strings.Unbounded, - Kompsos.Collector, - System.Address_To_Access_Conversions, - System.Storage_Elements; + Kompsos.Collector; package body Kompsos.Pretty_Print is @@ -26,22 +24,6 @@ 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 |