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

* Extract debug-info from real executable when debugging an application folder

Browse Source 
git-svn-id: trunk@47188 -
This commit is contained in:
joost 2014-12-13 09:15:26 +00:00
parent 3dcfa14f49
commit a3f3091a75
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgdarwinclasses.pas
View File

@ -128,6 +128,7 @@ type
FIsTerminating: boolean; FIsTerminating: boolean;
FExceptionSignal: PtrUInt; FExceptionSignal: PtrUInt;
FMasterPtyFd: cint; FMasterPtyFd: cint;
FExecutableFilename: string;
function GetDebugAccessRights: boolean; function GetDebugAccessRights: boolean;
{$ifndef VER2_6} {$ifndef VER2_6}
procedure OnForkEvent(Sender : TObject); procedure OnForkEvent(Sender : TObject);
@ -620,7 +621,7 @@ end;
function TDbgDarwinProcess.InitializeLoader: TDbgImageLoader; function TDbgDarwinProcess.InitializeLoader: TDbgImageLoader;
begin begin
result := TDbgImageLoader.Create(Name); result := TDbgImageLoader.Create(FExecutableFilename);
end; end;
function TDbgDarwinProcess.CreateThread(AthreadIdentifier: THandle; out IsMainThread: boolean): TDbgThread; function TDbgDarwinProcess.CreateThread(AthreadIdentifier: THandle; out IsMainThread: boolean): TDbgThread;
@ -747,6 +748,7 @@ begin
result := TDbgDarwinProcess.Create(AFileName, Pid, -1, AOnLog); result := TDbgDarwinProcess.Create(AFileName, Pid, -1, AOnLog);
TDbgDarwinProcess(result).FMasterPtyFd := GMasterPtyFd; TDbgDarwinProcess(result).FMasterPtyFd := GMasterPtyFd;
TDbgDarwinProcess(result).FProcProcess := AProcess; TDbgDarwinProcess(result).FProcProcess := AProcess;
TDbgDarwinProcess(result).FExecutableFilename := AnExecutabeFilename;
except except
on E: Exception do on E: Exception do
begin begin