{ Copyright (c) 20011 by Jonas Maebe JVM version of some node tree helper routines This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. **************************************************************************** } unit njvmutil; {$i fpcdefs.inc} interface uses node, ngenutil; type tjvmnodeutils = class(tnodeutils) class function initialize_data_node(p:tnode):tnode; override; class function finalize_data_node(p:tnode):tnode; override; end; implementation uses verbose,constexp, symconst,symtype,symdef,symsym,symbase,symtable,defutil, nbas,ncnv,ncon,nld, pass_1; class function tjvmnodeutils.initialize_data_node(p:tnode):tnode; begin if not assigned(p.resultdef) then typecheckpass(p); if ((p.resultdef.typ=stringdef) and not is_shortstring(p.resultdef) and not is_longstring(p.resultdef)) or is_dynamic_array(p.resultdef) then begin result:=cassignmentnode.create( ctypeconvnode.create_internal(p,voidpointertype), cnilnode.create ); end else { records/arrays/... are automatically initialised } result:=cnothingnode.create; end; class function tjvmnodeutils.finalize_data_node(p:tnode):tnode; begin // do nothing result:=cnothingnode.create; end; begin cnodeutils:=tjvmnodeutils; end.