Ver Fonte

* use is_64bit() in taddnode.try_make_mul32to64() for better readability

git-svn-id: trunk@26413 -
nickysn há 11 anos atrás
pai
commit
ac177a445e
1 ficheiros alterados com 2 adições e 2 exclusões
  1. 2 2
      compiler/nadd.pas

+ 2 - 2
compiler/nadd.pas

@@ -2532,11 +2532,11 @@ implementation
         result := false;
         if ((left.nodetype = typeconvn) and
             is_integer(ttypeconvnode(left).left.resultdef) and
-            (not(torddef(ttypeconvnode(left).left.resultdef).ordtype in [u64bit,s64bit,scurrency])) and
+            not is_64bit(ttypeconvnode(left).left.resultdef) and
            (((right.nodetype = ordconstn) and canbe32bitint(tordconstnode(right).value)) or
             ((right.nodetype = typeconvn) and
              is_integer(ttypeconvnode(right).left.resultdef) and
-             not(torddef(ttypeconvnode(right).left.resultdef).ordtype in [u64bit,s64bit,scurrency])) and
+             not is_64bit(ttypeconvnode(right).left.resultdef)) and
              ((is_signed(ttypeconvnode(left).left.resultdef) =
                is_signed(ttypeconvnode(right).left.resultdef)) or
               (is_signed(ttypeconvnode(left).left.resultdef) and