paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 07:59:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: TCompilerOptReader formatting.

Browse Source 
git-svn-id: trunk@46764 -
This commit is contained in:
juha 2014-11-06 19:29:29 +00:00
parent 25b93e4ca7
commit 1ea6528b88
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/compiler.pp
View File

@ -1128,8 +1128,7 @@ begin
end;
end;
function TCompilerOptReader.ParseOptions(OutputI, OutputH: TStringList
): TModalResult;
function TCompilerOptReader.ParseOptions(OutputI, OutputH: TStringList): TModalResult;
begin
OptionIdCounter := 0;
fErrorMsg := '';
@ -1140,11 +1139,11 @@ begin
Result := ParseH(OutputH);
end;
procedure TCompilerOptReader.ReadCompiler(CompPath, Params: string; out
OutputI, OutputH: TStringList);
procedure TCompilerOptReader.ReadCompiler(CompPath, Params: string;
out OutputI, OutputH: TStringList);
begin
OutputH:=nil;
OutputI:=nil;
OutputH:=nil;
if CompPath = '' then
CompPath := 'fpc'; // Let's hope "fpc" is found in PATH.
// FPC with option -i