Преглед изворни кода

* fixed memory leaks

git-svn-id: branches/jvmbackend@18598 -
Jonas Maebe пре 14 година
родитељ
комит
f3f378496f
1 измењених фајлова са 6 додато и 2 уклоњено
  1. 6 2
      compiler/jvm/njvmutil.pas

+ 6 - 2
compiler/jvm/njvmutil.pas

@@ -86,14 +86,18 @@ implementation
               ccallparanode.create(p,nil)));
         end
       else
-        { records/arrays/... are automatically initialised }
-        result:=cnothingnode.create;
+        begin
+          p.free;
+          { records/arrays/... are automatically initialised }
+          result:=cnothingnode.create;
+        end;
     end;
 
 
   class function tjvmnodeutils.finalize_data_node(p:tnode):tnode;
     begin
       // do nothing
+      p.free;
       result:=cnothingnode.create;
     end;