stopped using System.Atomic_Counters.Atomic_Counter
This commit is contained in:
@ -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;
|
||||
|
Reference in New Issue
Block a user