Merge pull request #1172 from AdaCore/adv-ada_resources-mgmt_access-a…

…bstraction_fix Fix for null access support in example
AdaCore · Jan 17, 2025 · 1000ae9 · 1000ae9
2 parents d47dcbf + 524ad16
commit 1000ae9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/content/courses/advanced-ada/parts/resource_management/access_types.rst b/content/courses/advanced-ada/parts/resource_management/access_types.rst
@@ -4178,13 +4178,13 @@ Let's see an example:
          (if Obj /= null then Obj.all else "");
 
        function Copy (Obj : Info) return Info is
-         (To_Info (Obj.all));
+         (To_Info (To_String (Obj)));
 
        procedure Copy (To   : in out Info;
                        From :        Info) is
        begin
           Destroy (To);
-          To := To_Info (From.all);
+          To := Copy (From);
        end Copy;
 
        procedure Append (Obj : in out Info;