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

IDE: made quoting command line parameters more unix friendly in an attempt to fix bug #11266)

Browse Source 
git-svn-id: trunk@15153 -
This commit is contained in:
vincents 2008-05-15 10:31:12 +00:00
parent b7864b218e
commit b27ca6a892
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/lazarusmanager.pas
View File

@ -161,14 +161,12 @@ begin
else else
FCmdLineParams.Add(Param); FCmdLineParams.Add(Param);
end; end;
// make sure that all the values of the command line parameters are still // make sure that command line parameters are still
// double quoted, if they contain spaces // double quoted, if they contain spaces
for i := 0 to FCmdLineParams.Count -1 do for i := 0 to FCmdLineParams.Count -1 do
begin begin
if pos(' ',FCmdLineParams.ValueFromIndex[i])>0 then if pos(' ',FCmdLineParams[i])>0 then
begin FCmdLineParams[i] := '"' + FCmdLineParams[i] + '"';
FCmdLineParams.ValueFromIndex[i] := '"' + FCmdLineParams.ValueFromIndex[i] + '"';
end;
end; end;
end; end;

2
ide/main.pp
View File

@ -9383,7 +9383,7 @@ procedure TMainIDE.DoRestart;
end; end;
StartLazProcess.CommandLine := ExeName StartLazProcess.CommandLine := ExeName
+' --lazarus-pid='+IntToStr(GetProcessID) +' --lazarus-pid='+IntToStr(GetProcessID)
+' --primary-config-path="'+GetPrimaryConfigPath+'"'; +' "--primary-config-path='+GetPrimaryConfigPath+'"';
StartLazProcess.Execute; StartLazProcess.Execute;
finally finally
StartLazProcess.Free; StartLazProcess.Free;