paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-26 17:37:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed fully qualified class names passed to JLClass.forName()

Browse Source 
(components must be separated by '.', not '/')

git-svn-id: branches/jvmbackend@18761 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:33:40 +00:00
parent dd32efa9ff
commit 687e9fb6dc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/jvm/njvmcnv.pas
View File

@ -92,7 +92,7 @@ interface
implementation implementation
uses uses
verbose,globals,globtype,constexp, verbose,globals,globtype,constexp,cutils,
symbase,symconst,symdef,symsym,symtable,aasmbase,aasmdata, symbase,symconst,symdef,symsym,symtable,aasmbase,aasmdata,
defutil,defcmp,jvmdef, defutil,defcmp,jvmdef,
cgbase,cgutils,pass_1,pass_2, cgbase,cgutils,pass_1,pass_2,
@ -413,6 +413,7 @@ implementation
encodedtype:=jvmencodetype(pvs.vardef,false); encodedtype:=jvmencodetype(pvs.vardef,false);
if pushaddr then if pushaddr then
encodedtype:='['+encodedtype; encodedtype:='['+encodedtype;
replace(encodedtype,'/','.');
newpara:=ccallnode.createinternmethod(cloadvmtaddrnode.create(ctypenode.create(jlclass)),'FORNAME', newpara:=ccallnode.createinternmethod(cloadvmtaddrnode.create(ctypenode.create(jlclass)),'FORNAME',
ccallparanode.create(cstringconstnode.createstr(encodedtype),nil)); ccallparanode.create(cstringconstnode.createstr(encodedtype),nil));
end end