blob: 4424e70ec8d4a186ff16a44c5c467b4ba76e57e1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
package body Opt75_Pkg is
overriding procedure Adjust (Object : in out T) is
begin
if Object.Ref /= Empty_Rec'Access then
System.Atomic_Counters.Increment (Object.Ref.Counter);
end if;
end;
A : constant Arr := (others => (others => Empty));
end Opt75_Pkg;
|
