anchor.diff:  
     {$ENDIF}
   
  -//type
  -  {$IFDEF CL_VERSION_1_0}
  +  {$IFDEF CL_VERSION_1_0}
  +{$IFNDEF DYNLINK}
  +type
  +{$ENDIF}
     TEnqueueUserProc = procedure (userdata: Pointer); extdecl;
     {$ENDIF}
   
  
positive.code: //********************************************************************************************************/
  
  {$IFNDEF DEFINE_REGION_NOT_IMPLEMENTED}{$REGION 'Types proceduress'}{$ENDIF}
  type
    (* Platform API *)
    {$IFDEF CL_VERSION_1_0}
    {$IFDEF DYNLINK}TclGetPlatformIDs = {$ENDIF}function {$IFNDEF DYNLINK}clGetPlatformIDs{$ENDIF}(
  
negative.code: 
  function oclGetProcAddress(ProcName: PAnsiChar; LibHandle: Pointer = nil): Pointer;
  function InitOpenCL(LibName: String = OpenCLLibName): Boolean;
  
  var
    OCL_LibHandle: Pointer = nil;
  {$ENDIF}
  
  function GetString(const Status: TCL_int): AnsiString;
  
  implementation
  
  