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

Docs: improved build_lcl_docs robustness when working with TProcess, patch from Reinier Olislagers, bug #22000

Browse Source 
git-svn-id: trunk@37267 -
This commit is contained in:
maxim 2012-05-13 14:34:17 +00:00
parent 91ec03f100
commit 9dfbd1029e
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
docs/html/build_lcl_docs.lpi
View File

@ -38,19 +38,13 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<UseAnsiStrings Value="False"/> <UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsAuto"/>
</Debugging>
</Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>

26
docs/html/build_lcl_docs.lpr
View File

@ -236,7 +236,7 @@ begin
if WarningsCount >= 0 then if WarningsCount >= 0 then
WriteLn('Warning! No corresponding xml file for unit ' + FileList[I]) WriteLn('Warning! No corresponding xml file for unit ' + FileList[I])
else else
Dec(WarningsCount); Dec(WarningsCount);
end; end;
end; end;
FileList.Free; FileList.Free;
@ -263,13 +263,23 @@ begin
Halt(1); Halt(1);
end; end;
Process := TProcess.Create(nil); Process := TProcess.Create(nil);
Process.Options := Process.Options + [poWaitOnExit]; try
Process.CurrentDirectory := GetCurrentDir+PathDelim+PackageName; Process.Options := Process.Options + [poWaitOnExit];
Process.CommandLine := CmdLine; Process.CurrentDirectory := GetCurrentDir+PathDelim+PackageName;
Process.Execute; Process.CommandLine := CmdLine;
if WarningsCount < -1 then try
WriteLn(abs(WarningsCount+1), ' Warnings hidden. Use --warnings to see them all.') ; Process.Execute;
Process.Free; except
if WarningsCount >= 0 then
WriteLn('Error running fpdoc, command line: '+CmdLine)
else
Dec(WarningsCount);
end;
if WarningsCount < -1 then
WriteLn(abs(WarningsCount+1), ' Warnings hidden. Use --warnings to see them all.');
finally
Process.Free;
end;
end; end;
begin begin