paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 02:39:23 +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 var
aKernResult: kern_return_t; aKernResult: kern_return_t;
begin begin
inherited Create(AName, AProcessID, AThreadID, AnOsClasses{$IF FPC_FULLVERSION<30100}, AMemManager{$ENDIF}); inherited Create(AName, AProcessID, AThreadID, AnOsClasses, AMemManager);
GetDebugAccessRights; 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 if aKernResult <> KERN_SUCCESS then
begin begin
debugln(DBG_WARNINGS, 'Failed to get task for process '+IntToStr(AProcessID)+'. Probably insufficient rights to debug applications. Mach error: '+mach_error_string(aKernResult)); debugln(DBG_WARNINGS, 'Failed to get task for process '+IntToStr(AProcessID)+'. Probably insufficient rights to debug applications. Mach error: '+mach_error_string(aKernResult));