paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 00:28:23 +02: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
uses
verbose,globals,globtype,constexp,
verbose,globals,globtype,constexp,cutils,
symbase,symconst,symdef,symsym,symtable,aasmbase,aasmdata,
defutil,defcmp,jvmdef,
cgbase,cgutils,pass_1,pass_2,
@ -413,6 +413,7 @@ implementation
encodedtype:=jvmencodetype(pvs.vardef,false);
if pushaddr then
encodedtype:='['+encodedtype;
replace(encodedtype,'/','.');
newpara:=ccallnode.createinternmethod(cloadvmtaddrnode.create(ctypenode.create(jlclass)),'FORNAME',
ccallparanode.create(cstringconstnode.createstr(encodedtype),nil));
end