|
@@ -2113,7 +2113,7 @@ Var raw: TRawBytes;
|
|
|
begin
|
|
begin
|
|
|
ms := TMemoryStream.Create;
|
|
ms := TMemoryStream.Create;
|
|
|
try
|
|
try
|
|
|
- If (Not current_protocol<CT_PROTOCOL_2) then begin
|
|
|
|
|
|
|
+ If (current_protocol<CT_PROTOCOL_2) then begin
|
|
|
// PROTOCOL 1 BlockHash calculation
|
|
// PROTOCOL 1 BlockHash calculation
|
|
|
ms.Write(block.blockchainInfo.block,4); // Little endian
|
|
ms.Write(block.blockchainInfo.block,4); // Little endian
|
|
|
for i := Low(block.accounts) to High(block.accounts) do begin
|
|
for i := Low(block.accounts) to High(block.accounts) do begin
|
PascalCoin