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

some ada experiments

Browse Source
This commit is contained in:
hyung-hwan
2021-09-30 23:54:50 +00:00
parent bb840abd99
commit 3ec3a9a17e
6 changed files with 60 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
h2/lib2/h3.adb
View File

@ -6,38 +6,4 @@ package body H3 is
return ((X + Y - 1) / Y) * Y;
end Align;
-- procedure Set (R: in out Ref; Data: in Ref_Counted_Pointer) is
-- begin
-- if R.Data /= null then
-- Finalize (R);
-- end if;
--
-- R.Data := Data;
-- Adjust (R);
-- end Set;
-- function Get (R: in Ref) return Ref_Counted_Pointer is
-- begin
-- return R.Data;
-- end Get;
-- procedure Adjust (R: in out Ref) is
-- begin
-- if R.Data /= null then
-- R.Data.Ref_Count := R.Data.Ref_Count + 1;
-- end if;
-- end Adjust;
-- procedure Finalize (R: in out Ref) is
-- begin
-- if R.Data /= null then
-- R.Data.Ref_Count := R.Data.Ref_Count - 1;
-- if R.Data.Ref_Count = 0 then
-- null;
-- end if;
-- R.Data := null;
-- end if;
-- end Finalize;
end H3;
end H3;