paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 02:59:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Do not continue the process after an invalid command

Browse Source 
git-svn-id: trunk@44863 -
This commit is contained in:
joost 2014-04-30 20:59:12 +00:00
parent e7779bd476
commit 580048e97c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/app/fpd/fpdcommand.pas
View File

@ -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;