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

FpD: change breakpoints to TFpDbgBreakpoint

Browse Source
This commit is contained in:
Martin 2023-12-03 13:05:18 +01:00
parent f11d2744db
commit 1bec226da0
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/app/fpd/fpdcommand.pas
View File

@ -59,7 +59,7 @@ uses
type
TFPDCommandHandler = procedure(AParams: String; out CallProcessLoop: boolean);
TBreakPointIdMap = class(specialize TFPGMapObject<Integer, TFpInternalBreakpoint>)
TBreakPointIdMap = class(specialize TFPGMapObject<Integer, TFpDbgBreakpoint>)
public
function DoBreakPointCompare(Key1, Key2: Pointer): Integer;
end;
@ -213,7 +213,7 @@ var
Address: TDbgPtr;
e, Id: Integer;
Line: Cardinal;
bp: TFpInternalBreakpoint;
bp: TFpDbgBreakpoint;
begin
CallProcessLoop:=false;
if GController.MainProcess = nil