paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 22:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix from Graeme Geldenhuys to avoid memleaks by early exit

Browse Source 
git-svn-id: trunk@37054 -
This commit is contained in:
michael 2017-08-24 14:53:33 +00:00
parent 4f6b0feda3
commit f6918dac3e
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-report/demos/fcldemo.lpi
View File

@ -105,7 +105,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="polygon;../units/$(TargetCPU)-$(TargetOS)"/>
<OtherUnitFiles Value="polygon;../src"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>

7
packages/fcl-report/demos/udapp.pp
View File

@ -331,8 +331,7 @@ begin
Writeln('');
Writeln('Known demos for this binary: ');
ListReports(True);
Free;
Halt(Ord(Msg<>''));
ExitCode:=Ord(Msg<>'')
end;
procedure TReportDemoApplication.ListReports(AWithIndentation: boolean);
@ -421,7 +420,11 @@ begin
OnGetApplicationName:=@GetReportAppName;
S:=CheckOptions('lj::hf:r:d:',['list','json::','help','format:','runtime:','demo:']);
if (S<>'') or HasOption('h','help') then
begin
Usage(S);
Terminate;
exit;
end;
if HasOption('l','list') then
begin
ListReports;