From 687e9fb6dc2a0cbacaf3bb03477853488d043ffc Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 08:33:40 +0000
Subject: [PATCH]   * fixed fully qualified class names passed to
 JLClass.forName()     (components must be separated by '.', not '/')

git-svn-id: branches/jvmbackend@18761 -
---
 compiler/jvm/njvmcnv.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/jvm/njvmcnv.pas b/compiler/jvm/njvmcnv.pas
index 30958eaf3b..8034a3758f 100644
--- a/compiler/jvm/njvmcnv.pas
+++ b/compiler/jvm/njvmcnv.pas
@@ -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