diff options
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 897e2cd..17ad0bb 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -7798,7 +7798,7 @@ FinalizeOONextFilter( * Helper to calculate small powers of integers whose result is wide. */ static inline Tcl_WideInt -WidePwrSmallExpon(Tcl_WideInt w1, Tcl_WideInt exponent) { +WidePwrSmallExpon(Tcl_WideInt w1, long exponent) { Tcl_WideInt wResult; @@ -8359,7 +8359,7 @@ ExecuteExtendedBinaryMathOp( /* * Small powers of integers whose result is wide. */ - wResult = WidePwrSmallExpon(w1, w2); + wResult = WidePwrSmallExpon(w1, (long)w2); WIDE_RESULT(wResult); } |