paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:55:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebugger (pure): Avoid usage of TThread.Queue, because it is not available in fpc 2.6.4

Browse Source 
git-svn-id: trunk@45879 -
This commit is contained in:
joost 2014-07-15 16:33:30 +00:00
parent 8d3f97d41e
commit d349c421e3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -89,7 +89,7 @@ type
function GetDebugInfo: TDbgInfo;
procedure DoWatchFreed(Sender: TObject);
procedure ProcessASyncWatches(Data: PtrInt);
procedure DoLog;
procedure DoLog(Data: PtrInt);
protected
procedure ScheduleWatchValueEval(AWatchValue: TWatchValue);
function EvaluateExpression(AWatchValue: TWatchValue;
@ -1086,7 +1086,7 @@ begin
end;
end;
procedure TFpDebugDebugger.DoLog;
procedure TFpDebugDebugger.DoLog(Data: PtrInt);
var
AMessage: TFpDbgLogMessage;
begin
@ -1368,7 +1368,7 @@ begin
finally
LeaveCriticalsection(FLogCritSection);
end;
TThread.Queue(nil, @DoLog);
Application.QueueAsyncCall(@DoLog, 0);
end;
procedure TFpDebugDebugger.ExecuteInDebugThread(AMethod: TFpDbgAsyncMethod);