Fix cls function TAccountComp.EqualOperationBlocks

src/core/UAccounts.pas

@@ -1538,7 +1538,7 @@ end;
 
 class function TAccountComp.EqualOperationBlocks(const opBlock1, opBlock2: TOperationBlock): Boolean;
 begin
-  Result := (opBlock1.block = opBlock1.block)
+  Result := (opBlock1.block = opBlock2.block)
           And (EqualAccountKeys(opBlock1.account_key,opBlock2.account_key))
           And (opBlock1.reward = opBlock2.reward)
           And (opBlock1.fee = opBlock2.fee)

src/libraries/synapse/synautil.pas

@@ -1843,8 +1843,8 @@ begin
   if Dir = '' then
   begin
     SetLength(Path, MAX_PATH);
-	  x := GetTempPath(Length(Path), PChar(Path));
-  	SetLength(Path, x);
+    x := GetTempPath(Length(Path), PChar(Path));
+    SetLength(Path, x);
   end
   else
     Path := Dir;