anchor.diff:    FListOrderedByOpReference := TList.Create;
     FTotalAmount := 0;
     FTotalFee := 0;
  -  FHashTree := '';
  +  FHashTree := Nil;
     FMax0feeOperationsBySigner := -1; // Unlimited by default
     FHashTreeOperations := TPCThreadList.Create('TOperationsHashTree_HashTreeOperations');
   end;
  
positive.code:       FOperationBlock.block := 0;
        FOperationBlock.reward := TPascalCoinProtocol.GetRewardForNewLine(0);
        FOperationBlock.compact_target := CT_MinCompactTarget_v1;
        FOperationBlock.initial_safe_box_hash := TCrypto.DoSha256(CT_Genesis_Magic_String_For_Old_Block_Hash); // Nothing for first line
        FOperationBlock.protocol_version := CT_PROTOCOL_1;
        FOperationsHashTree.Max0feeOperationsBySigner := -1;
      end;
      FOperationBlock.operations_hash := FOperationsHashTree.HashTree;
      FOperationBlock.fee := 0;
      FOperationBlock.nonce := 0;
      FOperationBlock.proof_of_work := '';
      FOperationBlock.protocol_available := CT_BlockChain_Protocol_Available;
      FIsOnlyOperationBlock := false;
    Finally
  
negative.code:   FPrevious_Seller_updated_block := 0;
    FHasValidSignature := false;
    FUsedPubkeyForSignature:=CT_TECDSA_Public_Nul;
    FBufferedSha256 := Nil;
  end;
  
  procedure TPCOperation.FillOperationResume(Block: Cardinal; getInfoForAllAccounts : Boolean; Affected_account_number: Cardinal; var OperationResume: TOperationResume);
  