Browse Source

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

git-svn-id: trunk@26413 -
nickysn 11 years ago
parent
commit
ac177a445e
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/nadd.pas

+ 2 - 2
compiler/nadd.pas

@@ -2532,11 +2532,11 @@ implementation
         result := false;
         result := false;
         if ((left.nodetype = typeconvn) and
         if ((left.nodetype = typeconvn) and
             is_integer(ttypeconvnode(left).left.resultdef) 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 = ordconstn) and canbe32bitint(tordconstnode(right).value)) or
             ((right.nodetype = typeconvn) and
             ((right.nodetype = typeconvn) and
              is_integer(ttypeconvnode(right).left.resultdef) 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(left).left.resultdef) =
                is_signed(ttypeconvnode(right).left.resultdef)) or
                is_signed(ttypeconvnode(right).left.resultdef)) or
               (is_signed(ttypeconvnode(left).left.resultdef) and
               (is_signed(ttypeconvnode(left).left.resultdef) and