anchor.diff:    end;
   
     ICLBuffer = interface(ICLBase)
  +    ['{7F1BE993-D1EF-4DB5-91FF-A8A41CBCD977}']
  +
       function GetHandle: TCLBufferHandle;
       function GetFlags: TCL_mem_flags;
       function GetSize: UInt64;
  
positive.code: 
    ICLDevice = interface(ICLBase)
      ['{087B4A38-774B-4DA8-8301-AABF8FF5DBE8}']
      function GetDeviceID: TCLDeviceID;
      function GetName: string;
      function GetIsAvailable: boolean;
  
negative.code:   PSize3D = ^TSize3D;
  
    ICLCommandQueue = interface(ICLBase)
      ['{9D624027-7F96-45E9-BD3C-7DF4C62BBD44}']
  
      function GetHandle: TCLCommandQueueHandle;
      function GetProperties: TCL_command_queue_properties;
  
  