Ver Fonte

* fixed handling of currency in int_to_int conversions

git-svn-id: branches/jvmbackend@18741 -
Jonas Maebe há 14 anos atrás
pai
commit
af489b99de
1 ficheiros alterados com 2 adições e 1 exclusões
  1. 2 1
      compiler/jvm/njvmcnv.pas

+ 2 - 1
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)