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

debugger: reusing the code of stopping the initialization process

Browse Source 
git-svn-id: trunk@61773 -
This commit is contained in:
dmitry 2019-08-28 03:09:52 +00:00
parent 962dcfc053
commit 50b2c4921c
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazdebuggergdbmi/gdbmiserverdebugger.pas
View File

@ -240,11 +240,7 @@ begin
if ipkeep then begin if ipkeep then begin
srv := TGDBMIServerDebugger(FTheDebugger); srv := TGDBMIServerDebugger(FTheDebugger);
if Assigned(srv.InitProc) then begin srv.StopInitProc;
srv.InitProc.Terminate(0);
srv.InitProc.Free;
srv.InitProc := nil;
end;
srv.InitProc := ip srv.InitProc := ip
end else end else
ip.Free; ip.Free;

BIN
ide/lazarus.res
View File

Binary file not shown.