Skip to content

Commit 6de4b51

Browse files
committed
fix controlled type refcount idiom
1 parent 74c7bce commit 6de4b51

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

courses/fundamentals_of_ada/260_controlled_types/10-idiom_refcounting.rst

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -57,6 +57,7 @@ Implementation Details
5757
- Clears up any previously used :ada:`Ref`
5858

5959
.. code:: Ada
60+
6061
is
6162
D : constant Refcounted_Access := new Refcounted'Class'(Data);
6263
begin
@@ -84,7 +85,6 @@ Implementation Details
8485
8586
is
8687
begin
87-
8888
if P.Data /= null then
8989
P.Data.Refcount := P.Data.Refcount + 1;
9090
end if;

0 commit comments

Comments
 (0)