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

FpDebug: fix darwin, issue #0037234

Browse Source 
git-svn-id: trunk@63425 -
This commit is contained in:
martin 2020-06-23 12:45:34 +00:00
parent e569548620
commit 1f395d4f2b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgdarwinclasses.pas
View File

@ -625,10 +625,10 @@ constructor TDbgDarwinProcess.Create(const AName: string; const AProcessID,
var
aKernResult: kern_return_t;
begin
inherited Create(AName, AProcessID, AThreadID, AnOsClasses{$IF FPC_FULLVERSION<30100}, AMemManager{$ENDIF});
inherited Create(AName, AProcessID, AThreadID, AnOsClasses, AMemManager);
GetDebugAccessRights;
aKernResult:=task_for_pid(mach_task_self, AProcessID, FTaskPort{$IF FPC_FULLVERSION>30100}, AMemmanager{$ENDIF});
aKernResult:=task_for_pid(mach_task_self, AProcessID, FTaskPort);
if aKernResult <> KERN_SUCCESS then
begin
debugln(DBG_WARNINGS, 'Failed to get task for process '+IntToStr(AProcessID)+'. Probably insufficient rights to debug applications. Mach error: '+mach_error_string(aKernResult));