From 49ce64ee1e086df3b84ebd60507f3b3547a5bf0e Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 16 Dec 2025 18:48:36 +1300 Subject: Can now output the basic structural DAG of a World in DOT format --- src/kompsos-collector.adb | 21 +-------------------- 1 file changed, 1 insertion(+), 20 deletions(-) (limited to 'src/kompsos-collector.adb') diff --git a/src/kompsos-collector.adb b/src/kompsos-collector.adb index 16e2b1f..c95453e 100644 --- a/src/kompsos-collector.adb +++ b/src/kompsos-collector.adb @@ -7,9 +7,7 @@ with - Ada.Unchecked_Deallocation, - System.Address_To_Access_Conversions, - System.Storage_Elements; + Ada.Unchecked_Deallocation; package body Kompsos.Collector is @@ -56,23 +54,6 @@ package body Kompsos.Collector is -- Internal Helpers -- ------------------------ - -- Map Keys -- - - package World_Convert is new System.Address_To_Access_Conversions (World_Component); - - function "<" - (Left, Right : in World_Component_Access) - return Boolean - is - use System.Storage_Elements; - begin - return - To_Integer (World_Convert.To_Address (World_Convert.Object_Pointer (Left))) < - To_Integer (World_Convert.To_Address (World_Convert.Object_Pointer (Right))); - end "<"; - - - -- Unification -- function Fully_Contains -- cgit