diff options
Diffstat (limited to 'src/kompsos-collector.adb')
| -rw-r--r-- | src/kompsos-collector.adb | 21 |
1 files changed, 1 insertions, 20 deletions
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 |