paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed leading space in compiler options

Browse Source 
git-svn-id: trunk@59897 -
This commit is contained in:
mattias 2018-12-23 15:26:03 +00:00
parent 458181e005
commit 9e8af3629d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/compileroptions.pp
View File

@ -957,7 +957,8 @@ begin
inc(EndPos); inc(EndPos);
end; end;
if EndPos>StartPos then begin if EndPos>StartPos then begin
Result:=Result+' '+Switch+copy(OptionStr,StartPos,EndPos-StartPos); if Result<>'' then Result:=Result+' ';
Result:=Result+Switch+copy(OptionStr,StartPos,EndPos-StartPos);
end; end;
StartPos:=EndPos; StartPos:=EndPos;
end; end;
@ -2867,6 +2868,7 @@ begin
if ccloAddCompilerPath in Flags then if ccloAddCompilerPath in Flags then
switches:=ConvertOptionsToCmdLine('',RealCompilerFilename); switches:=ConvertOptionsToCmdLine('',RealCompilerFilename);
//writeln('TBaseCompilerOptions.MakeOptionsString RealCompilerFilename="',RealCompilerFilename,'" switches="',switches,'"');
CurTargetOS:=''; CurTargetOS:='';
CurTargetCPU:=''; CurTargetCPU:='';