Browse Source

Azz Feedback

- Removed accidental dll files,
- config back to production
- upped number of max accounts to recover
- Changed int64 to int
kapytanhook 3 years ago
parent
commit
eb45c61e45
5 changed files with 5 additions and 5 deletions
  1. 2 2
      src/config.inc
  2. 1 1
      src/core/UPoolMining.pas
  3. 2 2
      src/gui-classic/UGridUtils.pas
  4. BIN
      src/libssl-1_1-x64.dll
  5. BIN
      src/libssl-1_1.dll

+ 2 - 2
src/config.inc

@@ -30,8 +30,8 @@
   
 }
 
-  {.$DEFINE PRODUCTION}
-  {$DEFINE TESTNET}
+  {$DEFINE PRODUCTION}
+  {.$DEFINE TESTNET}
 
   // Activate to define CryptoLib4Pascal by default on all compilations
   {.$DEFINE Use_CryptoLib4Pascal}

+ 1 - 1
src/core/UPoolMining.pas

@@ -964,7 +964,7 @@ begin
       LAccount := CT_Account_NUL;
       if LAccOrd.First(LIndexKey) then begin
         LRecIndex := 0;
-        while (LRecIndex < 100) do begin // Will recover at most 100 accounts per mined block
+        while (LRecIndex < 500) do begin // Will recover at most 500 accounts per mined block (unrealistic to have more, fewer TAccountComp.AccountCanRecover checks required)
           LAccount := FNodeNotifyEvents.Node.GetMempoolAccount(LIndexKey);
           if(TAccountComp.AccountCanRecover(LAccount, nbOperations.OperationBlock.block)) then begin // does the AccountCanRecover check, !locked, old enough, etc
             LRecoverAccounts.Add(LAccount);

+ 2 - 2
src/gui-classic/UGridUtils.pas

@@ -298,7 +298,7 @@ Var
   LApplyfilter : Boolean;
   LAccount : TAccount;
   LNode : TNode;
-  LAccountsList : TList<Int64>;
+  LAccountsList : TList<Integer>;
 begin
   LApplyfilter := ((FAccountsGridFilter.MinBalance>0) Or ((FAccountsGridFilter.MaxBalance>=0) And (FAccountsGridFilter.MaxBalance<CT_MaxWalletAmount)));
   FBalance := 0;
@@ -321,7 +321,7 @@ begin
             LAccountsNumbersList := FAccountsGridFilter.OrderedAccountsKeyList.AccountKeyList[i];
             if Assigned(LAccountsNumbersList) then begin
 
-              LAccountsList := TList<Int64>.Create;
+              LAccountsList := TList<Integer>.Create;
               Try
                 LAccountsNumbersList.FillList(j_min,500,LAccountsList);
                 for j := 0 to LAccountsList.Count - 1 do begin

BIN
src/libssl-1_1-x64.dll


BIN
src/libssl-1_1.dll