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

fpdebug: Pass parameters to the debuggee in the console-version

Browse Source 
git-svn-id: trunk@47519 -
This commit is contained in:
joost 2015-01-25 17:37:34 +00:00
parent 367f996fb8
commit a479c66ebe
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -163,6 +163,8 @@ begin
end;
procedure HandleRun(AParams: String; out CallProcessLoop: boolean);
var
AParamList: TStringList;
begin
CallProcessLoop:=false;
if Assigned(GController.MainProcess)
@ -177,6 +179,16 @@ begin
Exit;
end;
if AParams<>'' then begin
AParamList := TStringList.Create;
try
AParamList.Text:=AParams;
GController.Params.Assign(AParamList);
finally
AParamList.free;
end;
end;
if not GController.Run then
writeln('Failed to run '+GController.ExecutableFilename)
else
@ -866,7 +878,7 @@ begin
MCommands.AddCommand(['file', 'f'], @HandleFile, 'file <filename>: Loads the debuggee <filename>');
MCommands.AddCommand(['show', 's'], @HandleShow, 'show <info>: Enter show help for more info');
MCommands.AddCommand(['set'], @HandleSet, 'set param: Enter set help for more info');
MCommands.AddCommand(['run', 'r'], @HandleRun, 'run: Starts the loaded debuggee');
MCommands.AddCommand(['run', 'r'], @HandleRun, 'run [params]: Starts the loaded debuggee');
MCommands.AddCommand(['break', 'b'], @HandleBreak, 'break [-d] <adress>|<filename:line>: Set a breakpoint at <adress> or <filename:line>. -d removes');
MCommands.AddCommand(['continue', 'cont', 'c'], @HandleContinue, 'continue: Continues execution');
MCommands.AddCommand(['kill', 'k'], @HandleKill, 'kill: Stops execution of the debuggee');