summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2019-05-09 15:32:51 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2019-05-09 15:32:51 (GMT)
commitd232a6d28e46259037f109b33e7c77afa3361bbe (patch)
tree4dfb8b9832dafca616f6c78b1d12c2a4298f901a
parent5419f8e0ba508cfedb5c68a88aee618e25e17983 (diff)
parentf218c1f1ebf34e6f5820d88789b16104c954a071 (diff)
downloadtcl-d232a6d28e46259037f109b33e7c77afa3361bbe.zip
tcl-d232a6d28e46259037f109b33e7c77afa3361bbe.tar.gz
tcl-d232a6d28e46259037f109b33e7c77afa3361bbe.tar.bz2
Minor compiler warning
-rw-r--r--generic/tclExecute.c2
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) {