Make your own free website on

File :

with OCI.Lib,
package OCI.Task_Error is

   use OCI.Lib,Task_Environment;
   package RF renames Reference_Finalization;
   type Thread_Error is new RF.Controlled_Reference with record
      Error       : OCIError := OCIError(Empty_Handle);
      Environment : Thread_Environment := Init_Environment;
   end record;
   function Create(Env : Thread_Environment) return Thread_Error;
   procedure Destroy   (Object : in out Thread_Error);
   Init_Error : constant Thread_Error := 
       (RF.Controlled_Reference with 
            Error       => OCIError(Empty_Handle),
            Environment => Init_Environment);

end OCI.Task_Error