hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

some code clean-up

Browse Source
This commit is contained in:
hyung-hwan
2021-10-27 16:16:36 +00:00
parent 21c94d5ead
commit b7de031e72
8 changed files with 22 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
h2/lib2/h3-mm.adb
View File

@ -8,7 +8,7 @@ package body H3.MM is
R.Data.Refs := 1;
--System.Atomic_Counters.Initialize (R.Data.Ref_Count); -- initialize to 1
end Create;
procedure Create (R: in out Ref_Counted; V: in Item_Type) is
begin
Create (R);
@ -46,14 +46,14 @@ package body H3.MM is
procedure Finalize (R: in out Ref_Counted) is
procedure Dealloc is new Ada.Unchecked_Deallocation(Ref_Counted_Record, Ref_Counted_Pointer);
begin
if R.Data /= null then
if R.Data /= null then
--if System.Atomic_Counters.Decrement(R.Data.Ref_Count) then
-- -- The reference count reached 0
-- Dealloc (R.Data);
-- Dealloc (R.Data);
-- -- R.DAta must be null here
--end if;
if R.Data.Refs = 1 then
Dealloc (R.Data);
Dealloc (R.Data);
else
R.Data.Refs := R.Data.Refs - 1;
end if;