[JVCL-Checkins] SF.net SVN: jvcl: [10628] trunk/jvcl/run/JvInterpreter.pas

[<iv...@us...>]

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.