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

fpdebug: clean up

Browse Source 
git-svn-id: trunk@60111 -
This commit is contained in:
mattias 2019-01-19 17:37:30 +00:00
parent be59e0738e
commit ace1df908b
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -883,8 +883,6 @@ function TDbgLinuxProcess.Continue(AProcess: TDbgProcess; AThread: TDbgThread; S
end; end;
var var
e: integer;
Iterator: TMapIterator;
ThreadToContinue: TDbgLinuxThread; ThreadToContinue: TDbgLinuxThread;
begin begin
// If the thread is at a breakpoint, then it must be singlestepped now, so the breakpoint can be restored // If the thread is at a breakpoint, then it must be singlestepped now, so the breakpoint can be restored
@ -993,7 +991,6 @@ function TDbgLinuxProcess.AnalyseDebugEvent(AThread: TDbgThread): TFPDEvent;
//var //var
// NewThreadID: culong; // NewThreadID: culong;
var var
Iterator: TMapIterator;
ThreadToPause: TDbgLinuxThread; ThreadToPause: TDbgLinuxThread;
PauseWaitCount: Integer; PauseWaitCount: Integer;
PID: THandle; PID: THandle;