anchor.diff:      Function GetMinimumAvailableSnapshotBlock : Integer;
       Function HasSnapshotForBlock(block_number : Cardinal) : Boolean;
       Property OrderedAccountKeysList : TOrderedAccountKeysList read FOrderedAccountKeysList;
  +    property BufferBlocksHash: TBytesBuffer read FBufferBlocksHash; // Warning: For testing purposes, do not use this property! TODO delete or put in protected mode
     End;
   
   
  
positive.code:     Class Procedure CalcProofOfWork(const operationBlock : TOperationBlock; out PoW : TRawBytes);
      Class Function IsValidMinerBlockPayload(const newBlockPayload : TRawBytes) : Boolean;
      class procedure GetRewardDistributionForNewBlock(const OperationBlock : TOperationBlock; out acc_0_miner_reward, acc_4_dev_reward : Int64; out acc_4_for_dev : Boolean);
    end;
  
    TAccount = Record
  
negative.code: begin
    StartThreadSafe;
    try
      Result := TPascalCoinProtocol.CalcSafeBoxHash(FBufferBlocksHash,CurrentProtocol);
    finally
      EndThreadSave;
    end;
  