From 730f75ed9674b23456c12d77d914b7ed11574279 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 07:50:29 +0000
Subject: [PATCH]   * use current_module.realmodulename^ (= unit name as
 declared in its main     source) instead of the filename of a unit's source
 as its Java class name

git-svn-id: branches/jvmbackend@18352 -
---
 compiler/agjasmin.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/agjasmin.pas b/compiler/agjasmin.pas
index 22dfb5628c..1f32c34e7d 100644
--- a/compiler/agjasmin.pas
+++ b/compiler/agjasmin.pas
@@ -411,7 +411,7 @@ implementation
           begin
             { fake class type for unit -> name=unitname and
               superclass=java.lang.object }
-            AsmWriteLn('.class '+ChangeFileExt(ExtractFileName(n),''));
+            AsmWriteLn('.class '+current_module.realmodulename^);
             AsmWriteLn('.super java/lang/Object');
           end
         else