From fd23cf7d02696b96f3f1efc8083ad259e08476b4 Mon Sep 17 00:00:00 2001 From: Martin Date: Mon, 10 Jan 2022 14:06:44 +0100 Subject: [PATCH] LazDebuggerFp: Check callback is assigned. (cherry picked from commit 2fa72c87554235e6bc04d29cd8ed8b73c440b21f) --- components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas index e89ef45edd..5cd45d282e 100644 --- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas +++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas @@ -3609,7 +3609,8 @@ begin else ResText := GetFpErrorHandler.ErrorAsString(FDbgController.LastError); DoDbgEvent(ecProcess, etProcessExit, ResText); // or ecDebugger? - OnFeedback(self, ResText, '', ftError, [frOk]); + if Assigned(OnFeedback) then + OnFeedback(self, ResText, '', ftError, [frOk]); Exit; end; // TODO: any step commond should run to "main" or "pascalmain"