From 580048e97c52e7a57822d869c6e087fe1eff2e96 Mon Sep 17 00:00:00 2001
From: joost <joost@lazarus-ide.org>
Date: Wed, 30 Apr 2014 20:59:12 +0000
Subject: [PATCH] FpDebug: Do not continue the process after an invalid command

git-svn-id: trunk@44863 -
---
 components/fpdebug/app/fpd/fpdcommand.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/fpdebug/app/fpd/fpdcommand.pas b/components/fpdebug/app/fpd/fpdcommand.pas
index 761602afc5..c3dffffe92 100644
--- a/components/fpdebug/app/fpd/fpdcommand.pas
+++ b/components/fpdebug/app/fpd/fpdcommand.pas
@@ -754,7 +754,11 @@ begin
   S := GetPart([], [' ', #9], ACommand);
   cmd := FindCommand(S);
   if cmd = nil
-  then WriteLN('Unknown command: "', S, '"')
+  then
+  begin
+    WriteLN('Unknown command: "', S, '"');
+    CallProcessLoop:=false;
+  end
   else cmd.Handler(Trim(ACommand), CallProcessLoop);
 end;