From 75e259e4269334ec92c02677ff4b27b754e762ba Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 08:20:18 +0000
Subject: [PATCH]   * ifdef'ed jvmdef/pjvm usage for jvm target

git-svn-id: branches/jvmbackend@18638 -
---
 compiler/symdef.pas | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 608d7d5a51..71e55ab4c6 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -640,7 +640,9 @@ interface
           function  defaultmangledname: TSymStr;
           function  cplusplusmangledname : TSymStr;
           function  objcmangledname : TSymStr;
+{$ifdef jvm}
           function  jvmmangledbasename(signature: boolean): TSymStr;
+{$endif}
           function  is_methodpointer:boolean;override;
           function  is_addressonly:boolean;override;
           procedure make_external;
@@ -936,7 +938,10 @@ implementation
       { target }
       systems,aasmcpu,paramgr,
       { symtable }
-      symsym,symtable,symutil,defutil,objcdef,jvmdef,
+      symsym,symtable,symutil,defutil,objcdef,
+{$ifdef jvm}
+      jvmdef,
+{$endif}
       { module }
       fmodule,
       { other }
@@ -4570,7 +4575,7 @@ implementation
         result:=result+' '+messageinf.str^+']"';
       end;
 
-
+{$ifdef jvm}
     function tprocdef.jvmmangledbasename(signature: boolean): TSymStr;
       var
         vs: tparavarsym;
@@ -4664,7 +4669,7 @@ implementation
           tmpresult:='<error>';
         result:=tmpresult;
       end;
-
+{$endif jvm}
 
     procedure tprocdef.setmangledname(const s : TSymStr);
       begin