paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-11 09:53:03 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFPDServer: Handle all incoming data first, before waiting for user-commands, to improve performance

Browse Source 
git-svn-id: trunk@49179 -
This commit is contained in:
joost 2015-05-26 15:51:34 +00:00
parent 56ac4902c2
commit 985e9e66b1
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggers/lazdebuggerfpdserver/fpdserverdebugger.pas
View File

@ -739,6 +739,7 @@ begin
while not terminated do while not terminated do
begin begin
repeat
s:=ReadString; s:=ReadString;
if s<>'' then if s<>'' then
begin begin
@ -748,6 +749,10 @@ begin
else else
raise exception.CreateFmt('JSon-command %s is not a JSON-Object.',[s]); raise exception.CreateFmt('JSon-command %s is not a JSON-Object.',[s]);
end; end;
// When one string has been received, there is a large chance that there is more
// input waiting. Keep checking for input until the input-buffer is empty, before
// the thread starts waiting for new commands using FSendQueue.PopItem.
until s='';
if not terminated and (FSendQueue.PopItem(SendStr) = wrSignaled) then if not terminated and (FSendQueue.PopItem(SendStr) = wrSignaled) then
begin begin