anchor.diff:    end;
   
     ICLUserEvent = interface(ICLEvent)
  +    ['{B281D220-B6E5-4C3B-9F74-BA8EEC046655}']
  +
       procedure SetCommandExecutionStatus(const Value: TCL_int);
   
       property CommandExecutionStatus: TCL_int read GetCommandExecutionStatus write SetCommandExecutionStatus;
  
positive.code:   TCLBinaries = TArray<TBytes>;
  
    ICLProgram = interface(ICLBase)
      function Build(const Devices: TArray<ICLDevice>; const Defines: array of string; const Options: string = ''): boolean;
  
      function GetBinaries: TCLBinaries;
  
negative.code:   end;
  
    ICLPlatforms = interface(ICLBase)
      ['{3D99A624-5057-4B2F-AA27-9FB28A40C1E8}']
  
      function GetCount: integer;
      function GetCLPlatform(const Index: integer): ICLPlatform;
  
  