anchor.diff:    end;
   
     ICLPlatforms = interface(ICLBase)
  +    ['{3D99A624-5057-4B2F-AA27-9FB28A40C1E8}']
  +
       function GetCount: integer;
       function GetCLPlatform(const Index: integer): ICLPlatform;
   
  
positive.code:   PSize3D = ^TSize3D;
  
    ICLCommandQueue = interface(ICLBase)
      function GetHandle: TCLCommandQueueHandle;
      function GetProperties: TCL_command_queue_properties;
  
  
negative.code:   TCLEventCallback = procedure(const Event: ICLEvent; const CommandExecutionStatus: TCL_int; const UserData: pointer) of object;
  
    ICLEvent = interface(ICLBase)
      ['{A02E5460-D1A0-4AC8-B07E-DA0E24DF84EA}']
  
      function GetHandle: TCLEventHandle;
      function GetCommandType: TCL_command_type;
      function GetCommandExecutionStatus: TCL_int;
  