From af489b99debc7270d2f035282e6669cd0c87164a Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 08:31:12 +0000
Subject: [PATCH]   * fixed handling of currency in int_to_int conversions

git-svn-id: branches/jvmbackend@18741 -
---
 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 5082a5f5ef..aeabe78b17 100644
--- a/compiler/jvm/njvmcnv.pas
+++ b/compiler/jvm/njvmcnv.pas
@@ -222,7 +222,8 @@ implementation
 
     function tjvmtypeconvnode.first_int_to_real: tnode;
       begin
-        if not is_64bitint(left.resultdef) then
+        if not is_64bitint(left.resultdef) and
+           not is_currency(left.resultdef) then
           if is_signed(left.resultdef) or
              (left.resultdef.size<4) then
             inserttypeconv(left,s32inttype)