anchor.diff:  
   function oclGetProcAddress(ProcName: PAnsiChar; LibHandle: Pointer = nil): Pointer;
   function InitOpenCL(LibName: String = OpenCLLibName): Boolean;
  -function GetString(const Status: TCL_int): AnsiString;
   
   var
     OCL_LibHandle: Pointer = nil;
  +{$ENDIF}
  +
  +function GetString(const Status: TCL_int): AnsiString;
   
   implementation
   
  
positive.code: 
  
    {$IFDEF CL_VERSION_1_1}
    TclEventNotify = procedure(event: PCL_event; cl_int: TCL_int; p: Pointer); extdecl;
    {$ENDIF}
  
  
negative.code:   end;
  end;
  {$IFNDEF DEFINE_REGION_NOT_IMPLEMENTED}{$ENDREGION}{$ENDIF}
  {$ENDIF}
  
  {$IFNDEF DEFINE_REGION_NOT_IMPLEMENTED}{$REGION 'GetString'}{$ENDIF}
  function GetString(const Status: TCL_int): AnsiString;
  