paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 07:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp (pure): do not crash with -gtt

Browse Source 
git-svn-id: trunk@44634 -
This commit is contained in:
martin 2014-04-07 16:49:40 +00:00
parent ae8c35b16e
commit f3e4622b30
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fpdbgclasses.pp
View File

@ -536,6 +536,7 @@ function TDbgProcess.GetThread(const AID: Integer; out AThread: TDbgThread): Boo
var
Thread: TDbgThread;
begin
AThread := nil;
Result := FThreadMap.GetData(AID, Thread) and (Thread <> nil);
if Result
then AThread := Thread