paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 03:40:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp (pure): Exception handling on OS/X

Browse Source 
git-svn-id: trunk@44978 -
This commit is contained in:
joost 2014-05-08 19:13:29 +00:00
parent 7731842232
commit 7ba1fd42b7
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/fpdebug/fpdbgdarwinclasses.pas
View File

@ -63,6 +63,7 @@ type
FTaskPort: mach_port_name_t;
FProcProcess: TProcess;
FIsTerminating: boolean;
FExceptionSignal: PtrUInt;
function GetDebugAccessRights: boolean;
procedure OnForkEvent(Sender : TObject);
protected
@ -414,11 +415,11 @@ begin
{$endif linux}
{$ifdef darwin}
if (AThread.SingleStepping) or assigned(FCurrentBreakpoint) then
fpPTrace(PTRACE_SINGLESTEP, ProcessID, pointer(1), nil)
fpPTrace(PTRACE_SINGLESTEP, ProcessID, pointer(1), pointer(FExceptionSignal))
else if FIsTerminating then
fpPTrace(PTRACE_KILL, ProcessID, pointer(1), nil)
else
fpPTrace(PTRACE_CONT, ProcessID, pointer(1), nil);
fpPTrace(PTRACE_CONT, ProcessID, pointer(1), pointer(FExceptionSignal));
{$endif darwin}
e := fpgeterrno;
if e <> 0 then
@ -473,6 +474,7 @@ var
ExceptionAddr: TDBGPtr;
begin
FExceptionSignal:=0;
if wifexited(FStatus) or wifsignaled(FStatus) then
begin
SetExitCode(wexitStatus(FStatus));
@ -520,28 +522,42 @@ begin
end;
SIGBUS:
begin
writeln('Received SIGBUS');
ExceptionClass:='SIGBUS';
FExceptionSignal:=SIGBUS;
result := deException;
end;
SIGINT:
begin
writeln('Received SIGINT');
ExceptionClass:='SIGINT';
FExceptionSignal:=SIGINT;
result := deException;
end;
SIGSEGV:
begin
writeln('Received SIGSEGV');
ExceptionClass:='SIGSEGV';
FExceptionSignal:=SIGSEGV;
result := deException;
end;
SIGKILL:
begin
writeln('Received SIGKILL');
if FIsTerminating then
result := deInternalContinue
else
begin
ExceptionClass:='SIGKILL';
FExceptionSignal:=SIGKILL;
result := deException;
end;
end;
else
begin
ExceptionClass:='Unknown exception code '+inttostr(wstopsig(FStatus));
FExceptionSignal:=wstopsig(FStatus);
result := deException;
end;
end; {case}
if result=deException then
ExceptionClass:='External: '+ExceptionClass;
end
else
raise exception.CreateFmt('Received unknown status %d from process with pid=%d',[FStatus, ProcessID]);