diff options
Diffstat (limited to 'packages/fcl-passrc/examples/parsepp.pp')
| -rw-r--r-- | packages/fcl-passrc/examples/parsepp.pp | 5 |
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. |