43 lines
827 B
Ada
43 lines
827 B
Ada
|
|
||
|
|
package body H3 is
|
||
|
|
|
||
|
|
function Align (X: in System_Size; Y: in System_Size) return System_Size is
|
||
|
|
begin
|
||
|
|
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;
|