Jelajahi Sumber

* fixed handling of currency in int_to_int conversions

git-svn-id: branches/jvmbackend@18741 -
Jonas Maebe 14 tahun lalu
induk
melakukan
af489b99de
1 mengubah file dengan 2 tambahan dan 1 penghapusan
  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)