anchor.diff:      FIsOnlyOperationBlock := false;
     Finally
       try
  -      CalcProofOfWork(true,FOperationBlock.proof_of_work);
  +      Calc_Digest_Parts; // Does not need to recalc PoW
       finally
         Unlock;
       end;
  
positive.code:       FOperationBlock.operations_hash := FOperationsHashTree.HashTree;
      End;
    Finally
      CalcProofOfWork(true,FOperationBlock.proof_of_work);
      Unlock;
    End;
    if (n>0) then begin
  
negative.code:     end;
      FPreviousUpdatedBlocks.CopyFrom(Operations.FPreviousUpdatedBlocks);
      // Recalc all
      Calc_Digest_Parts; // Does not need to recalc PoW
    finally
      Unlock;
    end;
  