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

FpDebug: update apps

Browse Source
This commit is contained in:
Martin 2024-01-14 19:28:34 +01:00
parent b7313df57d
commit f9e55734c6
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/app/fpd/fpdloop.pas
View File

@ -48,6 +48,7 @@ type
private
FLast: string;
FMemReader: TDbgMemReader;
FMemModel: TFpDbgMemModel;
FMemManager: TFpDbgMemManager;
FMemConvertor: TFpDbgMemConvertor;
procedure ShowDisas;
@ -263,9 +264,10 @@ procedure TFPDLoop.Initialize;
begin
inherited Initialize;
FMemReader := TPDDbgMemReader.Create;
FMemModel := TFpDbgMemModel.Create;
FMemConvertor := TFpDbgMemConvertorLittleEndian.Create;
FMemManager := TFpDbgMemManager.Create(FMemReader, FMemConvertor);
GController := TDbgController.Create(FMemManager);
FMemManager := TFpDbgMemManager.Create(FMemReader, FMemConvertor, FMemModel);
GController := TDbgController.Create(FMemManager, FMemModel);
if ParamCount > 0
then begin
@ -287,6 +289,7 @@ begin
FMemManager.Free;
FMemReader.Free;
FMemConvertor.Free;
FMemManager.Free;
GController.Free;
inherited Destroy;
end;

14
components/fpdebug/app/fpdserver/debugthread.pas
View File

@ -105,7 +105,7 @@ type
FBreakPointIdCnt: Integer;
FBreakPointIdMap: TBreakPointIdMap;
public
constructor Create(AMemManager: TFpDbgMemManager); override;
constructor Create(AMemManager: TFpDbgMemManager; AMemModel: TFpDbgMemModel); override;
destructor Destroy; override;
function AddInternalBreakPointToId(ABrkPoint: TFpDbgBreakpoint): Integer;
function GetInternalBreakPointFromId(AnId: Integer): TFpDbgBreakpoint;
@ -161,6 +161,7 @@ type
FListenerList: TThreadList;
FMemConverter: TFpDbgMemConvertorLittleEndian;
FMemReader: TDbgMemReader;
FMemModel: TFpDbgMemModel;
FMemManager: TFpDbgMemManager;
FConsoleOutputThread: TThread;
procedure FreeConsoleOutputThread;
@ -243,11 +244,11 @@ begin
Result := PPointer(Key1)^ - PPointer(Key1)^;
end;
constructor TFpServerDbgController.Create(AMemManager: TFpDbgMemManager);
constructor TFpServerDbgController.Create(AMemManager: TFpDbgMemManager; AMemModel: TFpDbgMemModel);
begin
FBreakPointIdMap := TBreakPointIdMap.Create;
FBreakPointIdMap.OnDataPtrCompare := @DoBreakPointCompare;
inherited Create(AMemManager);
inherited Create(AMemManager, MemModel);
end;
destructor TFpServerDbgController.Destroy;
@ -493,7 +494,7 @@ var
ARunLoop: boolean;
AnEvent: TFpDebugEvent;
begin
FController := TFpServerDbgController.Create(FMemManager);
FController := TFpServerDbgController.Create(FMemManager, FMemManager.MemModel);
FController.RedirectConsoleOutput:=true;
FController.OnCreateProcessEvent:=@FControllerCreateProcessEvent;
FController.OnProcessExitEvent:=@FControllerProcessExitEvent;
@ -568,10 +569,10 @@ begin
inherited create(false);
FCommandQueue := TFpDebugThreadCommandQueue.create(100, INFINITE, 100);
FListenerList:=TThreadList.Create;
FMemReader := TFpDbgMemReader.Create(self);
FMemModel := TFpDbgMemModel.Create;
FMemConverter := TFpDbgMemConvertorLittleEndian.Create;
FMemManager := TFpDbgMemManager.Create(FMemReader, FMemConverter);
FMemManager := TFpDbgMemManager.Create(FMemReader, FMemConverter, FMemModel);
end;
destructor TFpDebugThread.Destroy;
@ -583,6 +584,7 @@ begin
FMemManager.Free;
FMemConverter.Free;
FMemReader.Free;
FMemModel.Free;
end;
class function TFpDebugThread.Instance: TFpDebugThread;