paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 20:59:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebugger (pure): Fixed compilation with fpc 2.6.4 on OS/X and Linux

Browse Source 
git-svn-id: trunk@45874 -
This commit is contained in:
joost 2014-07-15 06:35:46 +00:00
parent 681c6d7a8b
commit 636ffbe4da
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpdbgdarwinclasses.pas
View File

@ -125,7 +125,9 @@ type
FIsTerminating: boolean;
FExceptionSignal: PtrUInt;
function GetDebugAccessRights: boolean;
{$ifndef VER2_6}
procedure OnForkEvent(Sender : TObject);
{$endif}
protected
function InitializeLoader: TDbgImageLoader; override;
function CreateThread(AthreadIdentifier: THandle; out IsMainThread: boolean): TDbgThread; override;
@ -215,7 +217,11 @@ end;
{ TDbgDarwinThread }
{$ifndef VER2_6}
procedure TDbgDarwinProcess.OnForkEvent(Sender: TObject);
{$else}
procedure OnForkEvent;
{$endif VER2_6}
begin
fpPTrace(PTRACE_TRACEME, 0, nil, nil);
end;

6
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -244,7 +244,9 @@ type
FProcProcess: TProcess;
FIsTerminating: boolean;
FExceptionSignal: PtrUInt;
{$ifndef VER2_6}
procedure OnForkEvent(Sender : TObject);
{$endif}
protected
function InitializeLoader: TDbgImageLoader; override;
function CreateThread(AthreadIdentifier: THandle; out IsMainThread: boolean): TDbgThread; override;
@ -284,7 +286,11 @@ end;
{ TDbgLinuxThread }
{$ifndef VER2_6}
procedure TDbgLinuxProcess.OnForkEvent(Sender: TObject);
{$else}
procedure OnForkEvent;
{$endif VER2_6}
var
e: integer;
begin