Changed: new blockchain update request awaiting logic

PascalLite · Mar 14, 2017 · 88be326 · 88be326
1 parent 07b17af
commit 88be326
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Units/PascalCoin/UNetProtocol.pas b/Units/PascalCoin/UNetProtocol.pas
@@ -3016,10 +3016,10 @@ procedure TThreadGetNewBlockChainFromClient.BCExecute;
 begin
 
   while true do begin;
-    repeat
+    while InterLockedExchange(TNetData.NetData.FBlockChainUpdateRequests, 0) = 0 do begin
       RTLeventWaitFor(TNetData.NetData.FBlockChainUpdateEvent);
       RTLeventResetEvent(TNetData.NetData.FBlockChainUpdateEvent);
-    until InterLockedExchange(TNetData.NetData.FBlockChainUpdateRequests, 0) <> 0;
+    end;
 
     if Terminated then begin
       break;