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

FpDebug: Linux, removed unused code

Browse Source 
git-svn-id: trunk@61831 -
This commit is contained in:
martin 2019-09-08 18:52:38 +00:00
parent 1ab353e555
commit aa85ec85ed
1 changed files with 0 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -243,7 +243,6 @@ type
function ReadThreadState: boolean; function ReadThreadState: boolean;
function RequestInternalPause: Boolean; function RequestInternalPause: Boolean;
procedure CheckSignalWaiting(ANoHang: Boolean);
procedure CheckStatusReceived(AWaitedStatus: cint); procedure CheckStatusReceived(AWaitedStatus: cint);
procedure ResetPauseStates; procedure ResetPauseStates;
public public
@ -441,33 +440,6 @@ begin
FInternalPauseRequested := True; FInternalPauseRequested := True;
end; end;
procedure TDbgLinuxThread.CheckSignalWaiting(ANoHang: Boolean);
var
Opts, WaitStatus: cint;
PID: THandle;
begin
Opts := __WALL;
if ANoHang then
Opts := Opts or WNOHANG;
PID:=FpWaitPid(ID, WaitStatus, Opts);
if (PID = 0) then begin
if not ANoHang then DebugLn(DBG_WARNINGS, ['Thread ', ID, ' did not get a signal in WaitPid']);
exit;
end;
if (PID = -1) then begin
// TODO: errChld -> remove thread
DebugLn(DBG_WARNINGS, ['Thread ', ID, ' did get an error in WaitPid ', errno]);
exit;
end;
if (PID <> ID) then begin
DebugLn(DBG_WARNINGS, ['Thread ', ID, ' did get wrong PID in WaitPid ', PID]);
exit;
end;
CheckStatusReceived(WaitStatus);
end;
procedure TDbgLinuxThread.CheckStatusReceived(AWaitedStatus: cint); procedure TDbgLinuxThread.CheckStatusReceived(AWaitedStatus: cint);
begin begin
Assert(not FIsPaused, 'Got WaitStatus while already paused'); Assert(not FIsPaused, 'Got WaitStatus while already paused');