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

fcl-passrc: examples: parsepp: fixed freeing module

Browse Source 
git-svn-id: trunk@36237 -
This commit is contained in:
Mattias Gaertner 2017-05-17 22:57:36 +00:00
parent 0464f1f68c
commit e7442b811e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-passrc/examples/parsepp.pp
View File

@ -62,6 +62,7 @@ begin
For I:=1 to ParamCount do For I:=1 to ParamCount do
CmdLine:=CmdLine+' '+Paramstr(i); CmdLine:=CmdLine+' '+Paramstr(i);
E := TSimpleEngine.Create; E := TSimpleEngine.Create;
M := nil;
try try
M := ParseSource(E, cmdline, 'linux', 'i386'); M := ParseSource(E, cmdline, 'linux', 'i386');
@ -84,6 +85,8 @@ begin
(TObject(Decls[I]) as TPasElement).Name); (TObject(Decls[I]) as TPasElement).Name);
end; end;
finally
FreeAndNil(M); FreeAndNil(M);
finally FreeAndNil(E) end; FreeAndNil(E)
end;
end. end.