memory leak

git-svn-id: http://code.remobjects.com/svn/pascalscript@64 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
2008-06-09 08:42:51 +00:00 · 2008-06-09 08:42:51 +00:00 · d695b925e9
commit d695b925e9
parent 2f11f10c3c
1 changed files with 1 additions and 0 deletions
--- a/Source/uPSCompiler.pas
+++ b/Source/uPSCompiler.pas
@ -6446,6 +6446,7 @@ function TPSPascalCompiler.ProcessSub(BlockInfo: TPSBlockInfo): Boolean;
                x := nil;
                exit;
              end;
+              x.Free;
              x := tmpn;
            end else
            begin