Explorar o código

* fixed memory leaks

git-svn-id: branches/jvmbackend@18598 -
Jonas Maebe %!s(int64=14) %!d(string=hai) anos
pai
achega
f3f378496f
Modificáronse 1 ficheiros con 6 adicións e 2 borrados
  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;