浏览代码

Use long pow for integral-only power. Fixes #542

Brucey 4 年之前
父节点
当前提交
8a8cfab015
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. 5 1
      expr.bmx

+ 5 - 1
expr.bmx

@@ -1909,7 +1909,11 @@ Type TBinaryMathExpr Extends TBinaryExpr
 				exprType=New TIntType
 			End If
 		Case "^"
-			exprType=New TDoubleType
+			If TIntegralType(lhs.exprType) And TIntegralType(rhs.exprType) Then
+				exprType=New TLongType
+			Else
+				exprType=New TDoubleType
+			End If
 		Default
 			exprType=BalanceTypes( lhs.exprType,rhs.exprType )
 			If TStringType( exprType )