stopped using System.Atomic_Counters.Atomic_Counter

This commit is contained in:
2021-08-24 16:07:29 +00:00
parent b4c05da4ec
commit 341cff809d
5 changed files with 26 additions and 37 deletions

View File

@ -7,7 +7,8 @@ package H3.MM is
type Item_Pointer is access all Item_Type;
type Ref_Counted_Record is record
Ref_Count: System.Atomic_Counters.Atomic_Counter;
--Ref_Count: System.Atomic_Counters.Atomic_Counter;
Ref_Count: System_Size;
Item: aliased Item_Type;
end record;
@ -32,4 +33,4 @@ package H3.MM is
overriding procedure Finalize (R: in out Ref_Counted);
end H3.MM;
end H3.MM;