From: <iv...@us...> - 2006-05-30 13:23:27
|
Revision: 10628 Author: ivan_ra Date: 2006-05-30 06:23:14 -0700 (Tue, 30 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10628&view=rev Log Message: ----------- memory leak when used array/record datatype in script (Mantis #0003730) Modified Paths: -------------- trunk/jvcl/run/JvInterpreter.pas Modified: trunk/jvcl/run/JvInterpreter.pas =================================================================== --- trunk/jvcl/run/JvInterpreter.pas 2006-05-30 10:16:03 UTC (rev 10627) +++ trunk/jvcl/run/JvInterpreter.pas 2006-05-30 13:23:14 UTC (rev 10628) @@ -2512,7 +2512,10 @@ procedure JvInterpreterVarCopy(var Dest: Variant; const Source: Variant); begin if (TVarData(Source).VType = varArray) or (TVarData(Source).VType = varRecord) then + begin + VarClear(Dest); TVarData(Dest) := TVarData(Source) + end else Dest := Source; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |