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

FpDebug: REmoved unused BaseAddr and StartAdd for threads.

Browse Source 
git-svn-id: trunk@44622 -
This commit is contained in:
joost 2014-04-06 14:52:28 +00:00
parent aed7174382
commit 1c21a9a593
3 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpdebug/fpdbgclasses.pp
View File

@ -53,12 +53,10 @@ type
FProcess: TDbgProcess;
FID: Integer;
FHandle: THandle;
FBaseAddr: Pointer;
FStartAddr: Pointer;
FSingleStepping: Boolean;
protected
public
constructor Create(const AProcess: TDbgProcess; const AID: Integer; const AHandle: THandle; const ABase, AStart: Pointer); virtual;
constructor Create(const AProcess: TDbgProcess; const AID: Integer; const AHandle: THandle); virtual;
function ResetInstructionPointerAfterBreakpoint: boolean; virtual; abstract;
destructor Destroy; override;
function SingleStep: Boolean; virtual;
@ -514,12 +512,10 @@ end;
{ TDbgThread }
constructor TDbgThread.Create(const AProcess: TDbgProcess; const AID: Integer; const AHandle: THandle; const ABase, AStart: Pointer);
constructor TDbgThread.Create(const AProcess: TDbgProcess; const AID: Integer; const AHandle: THandle);
begin
FID := AID;
FHandle := AHandle;
FBaseAddr := ABase;
FStartAddr := AStart;
FProcess := AProcess;
inherited Create;

2
components/fpdebug/fpdbgdarwinclasses.pas
View File

@ -413,7 +413,7 @@ begin
begin
if not GetThread(act_list^[i], AThread) then
begin
AThread := TDbgDarwinThread.Create(Self, act_list^[i], act_list^[i], nil, nil);
AThread := TDbgDarwinThread.Create(Self, act_list^[i], act_list^[i]);
FThreadMap.Add(act_list^[i], AThread);
if FMainThread=nil then
FMainThread := AThread;

4
components/fpdebug/fpdbgwinclasses.pas
View File

@ -827,7 +827,7 @@ begin
if DbgInfo.HasInfo
then FSymInstances.Add(Self);
FMainThread := OSDbgClasses.DbgThreadClass.Create(Self, ThreadID, AInfo.hThread, AInfo.lpThreadLocalBase, AInfo.lpStartAddress);
FMainThread := OSDbgClasses.DbgThreadClass.Create(Self, ThreadID, AInfo.hThread);
FThreadMap.Add(ThreadID, FMainThread);
end;
@ -874,7 +874,7 @@ procedure TDbgWinProcess.AddThread(const AID: Integer; const AInfo: TCreateThrea
var
Thread: TDbgThread;
begin
Thread := OSDbgClasses.DbgThreadClass.Create(Self, AID, AInfo.hThread, AInfo.lpThreadLocalBase, AInfo.lpStartAddress);
Thread := OSDbgClasses.DbgThreadClass.Create(Self, AID, AInfo.hThread);
FThreadMap.Add(AID, Thread);
end;