Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

memory leak fix

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@17 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2006-10-17 09:26:54 +00:00
parent 9c76406f18
commit 003ad1ec9e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/uPSCompiler.pas
View File

@ -8602,6 +8602,7 @@ begin
if not ReadParameters(False, TPSValueProc(Result).Parameters) then
begin
FSelf.Free;
Result.Free;
Result := nil;
exit;
@ -8609,6 +8610,7 @@ begin
if not ValidateParameters(BlockInfo, TPSValueProc(Result).Parameters, Decl) then
begin
FSelf.Free;
Result.Free;
Result := nil;
exit;