fcl-passrc: examples: parsepp: fixed freeing module

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@36237 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 1 deletions

diff --git a/packages/fcl-passrc/examples/parsepp.pp b/packages/fcl-passrc/examples/parsepp.pp
index 5d80ec300e..3a6e3fbf4c 100644
--- a/packages/fcl-passrc/examples/parsepp.pp
+++ b/packages/fcl-passrc/examples/parsepp.pp
@@ -62,6 +62,7 @@ begin
   For I:=1 to ParamCount do
     CmdLine:=CmdLine+' '+Paramstr(i);
   E := TSimpleEngine.Create;
+  M := nil;
   try
     M := ParseSource(E, cmdline, 'linux', 'i386');
  
@@ -84,6 +85,8 @@ begin
           (TObject(Decls[I]) as TPasElement).Name);
     end;
  
+  finally
     FreeAndNil(M);
-  finally FreeAndNil(E) end;
+    FreeAndNil(E)
+  end;
 end.