diff options
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index a4a4646..2f547d4 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -8226,6 +8226,7 @@ FinalizeOONextFilter( * * Helpers to calculate small powers of integers whose result is long or wide. */ +#if (LONG_MAX == 0x7fffffff) static inline long LongPwrSmallExpon(long l1, long exponent) { @@ -8261,6 +8262,7 @@ LongPwrSmallExpon(long l1, long exponent) { } return lResult; } +#endif static inline Tcl_WideInt WidePwrSmallExpon(Tcl_WideInt w1, long exponent) { |