paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 10:51:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed memory leaks

Browse Source 
git-svn-id: branches/jvmbackend@18598 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:13:55 +00:00
parent ce88df680b
commit f3f378496f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/jvm/njvmutil.pas
View File

@ -86,14 +86,18 @@ implementation
ccallparanode.create(p,nil))); ccallparanode.create(p,nil)));
end end
else else
begin
p.free;
{ records/arrays/... are automatically initialised } { records/arrays/... are automatically initialised }
result:=cnothingnode.create; 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;