From 1bec226da04928c89517a51f6f012400671f5552 Mon Sep 17 00:00:00 2001 From: Martin Date: Sun, 3 Dec 2023 13:05:18 +0100 Subject: [PATCH] FpD: change breakpoints to TFpDbgBreakpoint --- components/fpdebug/app/fpd/fpdcommand.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/fpdebug/app/fpd/fpdcommand.pas b/components/fpdebug/app/fpd/fpdcommand.pas index a87be63cf3..bc46594489 100644 --- a/components/fpdebug/app/fpd/fpdcommand.pas +++ b/components/fpdebug/app/fpd/fpdcommand.pas @@ -59,7 +59,7 @@ uses type TFPDCommandHandler = procedure(AParams: String; out CallProcessLoop: boolean); - TBreakPointIdMap = class(specialize TFPGMapObject) + TBreakPointIdMap = class(specialize TFPGMapObject) 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