Bladeren bron

* fixed memory leaks

git-svn-id: branches/jvmbackend@18598 -
Jonas Maebe 14 jaren geleden
bovenliggende
commit
f3f378496f
1 gewijzigde bestanden met toevoegingen van 6 en 2 verwijderingen
  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;