Quellcode durchsuchen

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

Brucey vor 4 Jahren
Ursprung
Commit
8a8cfab015
1 geänderte Dateien mit 5 neuen und 1 gelöschten Zeilen
  1. 5 1
      expr.bmx

+ 5 - 1
expr.bmx

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