Make your own free website on Tripod.com

File : oci-task_error.ads


with OCI.Lib,
   Reference_Finalization,
   OCI.Task_Environment;
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