Procházet zdrojové kódy

* fixed handling of currency in int_to_int conversions

git-svn-id: branches/jvmbackend@18741 -
Jonas Maebe před 14 roky
rodič
revize
af489b99de
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  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)