paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +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; function GetDebugInfo: TDbgInfo;
procedure DoWatchFreed(Sender: TObject); procedure DoWatchFreed(Sender: TObject);
procedure ProcessASyncWatches(Data: PtrInt); procedure ProcessASyncWatches(Data: PtrInt);
procedure DoLog; procedure DoLog(Data: PtrInt);
protected protected
procedure ScheduleWatchValueEval(AWatchValue: TWatchValue); procedure ScheduleWatchValueEval(AWatchValue: TWatchValue);
function EvaluateExpression(AWatchValue: TWatchValue; function EvaluateExpression(AWatchValue: TWatchValue;
@ -1086,7 +1086,7 @@ begin
end; end;
end; end;
procedure TFpDebugDebugger.DoLog; procedure TFpDebugDebugger.DoLog(Data: PtrInt);
var var
AMessage: TFpDbgLogMessage; AMessage: TFpDbgLogMessage;
begin begin
@ -1368,7 +1368,7 @@ begin
finally finally
LeaveCriticalsection(FLogCritSection); LeaveCriticalsection(FLogCritSection);
end; end;
TThread.Queue(nil, @DoLog); Application.QueueAsyncCall(@DoLog, 0);
end; end;
procedure TFpDebugDebugger.ExecuteInDebugThread(AMethod: TFpDbgAsyncMethod); procedure TFpDebugDebugger.ExecuteInDebugThread(AMethod: TFpDbgAsyncMethod);