M agpl-generic_handle.ads

mosteo · Jul 4, 2006 · b1b6908 · b1b6908
1 parent 9dfadc1
commit b1b6908
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/agpl-generic_handle.ads b/agpl-generic_handle.ads
@@ -42,6 +42,8 @@ package Agpl.Generic_Handle is
 
    type Object is tagged private;
 
+   Null_Object : constant Object;
+
    function Set (This : in Item) return Object;
    function "+" (This : in Item) return Object renames Set;
    --  Creation
@@ -79,4 +81,7 @@ private
    procedure Adjust   (This : in out Object);
    procedure Finalize (This : in out Object);
 
+   Null_Object : constant Object :=
+                   (Ada.Finalization.Controlled with Data => null);
+
 end Agpl.Generic_Handle;