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

renamed Str to Obj

Browse Source
This commit is contained in:
hyung-hwan
2021-10-06 08:05:21 +00:00
parent a1795920c7
commit c48f34d79b
6 changed files with 157 additions and 167 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
h2/lib2/h3-mm.ads
View File

@ -7,8 +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_Size;
--Refs: System.Atomic_Counters.Atomic_Counter;
Refs: System_Size;
Item: aliased Item_Type;
end record;
@ -27,10 +27,8 @@ package H3.MM is
function Is_Shared (R: in Ref_Counted) return Standard.Boolean;
pragma Inline(Is_Shared);
overriding procedure Initialize (R: in out Ref_Counted);
overriding procedure Adjust (R: in out Ref_Counted);
overriding procedure Finalize (R: in out Ref_Counted);
end H3.MM;