소스 검색

* 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)));
               ccallparanode.create(p,nil)));
         end
         end
       else
       else
-        { records/arrays/... are automatically initialised }
-        result:=cnothingnode.create;
+        begin
+          p.free;
+          { records/arrays/... are automatically initialised }
+          result:=cnothingnode.create;
+        end;
     end;
     end;
 
 
 
 
   class function tjvmnodeutils.finalize_data_node(p:tnode):tnode;
   class function tjvmnodeutils.finalize_data_node(p:tnode):tnode;
     begin
     begin
       // do nothing
       // do nothing
+      p.free;
       result:=cnothingnode.create;
       result:=cnothingnode.create;
     end;
     end;