From 0b9e8a567265584f8ad5f321a38cf1f183875693 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Fri, 6 Feb 2026 21:32:44 +1300 Subject: Changed the map for DOT in Pretty_Print to a Hashed_Map --- src/kompsos-collector.adb | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) (limited to 'src/kompsos-collector.adb') diff --git a/src/kompsos-collector.adb b/src/kompsos-collector.adb index db499f2..cca9dbd 100644 --- a/src/kompsos-collector.adb +++ b/src/kompsos-collector.adb @@ -9,9 +9,7 @@ with Ada.Containers, - Ada.Unchecked_Deallocation, - System.Address_To_Access_Conversions, - System.Storage_Elements; + Ada.Unchecked_Deallocation; package body Kompsos.Collector is @@ -103,18 +101,6 @@ package body Kompsos.Collector is end "<"; - package Graph_Comp_Conv is new System.Address_To_Access_Conversions (Graph_Component); - - function Graph_Component_Access_Hash - (Key : in Graph_Component_Access) - return Ada.Containers.Hash_Type - is - use Ada.Containers, Graph_Comp_Conv, System.Storage_Elements; - begin - return Hash_Type (To_Integer (To_Address (Object_Pointer (Key))) mod Hash_Type'Modulus); - end Graph_Component_Access_Hash; - - ------------------------ -- cgit