From 9d183921c98e6c400a421618f9e077069380ba34 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 2 Apr 2019 18:21:09 +0000
Subject: Fix gcc warning on 32-bit platforms

---
 generic/tclExecute.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 189832f..4c36123 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -8734,7 +8734,9 @@ ExecuteExtendedBinaryMathOp(
 	switch (type2) {
 	case TCL_NUMBER_LONG:
 	    l2 = *((const long *) ptr2);
+#ifndef TCL_WIDE_INT_IS_LONG
     pwrLongExpon:
+#endif
 	    if (l2 == 0) {
 		/*
 		 * Anything to the zero power is 1.
@@ -8776,7 +8778,9 @@ ExecuteExtendedBinaryMathOp(
 	switch (type1) {
 	case TCL_NUMBER_LONG:
 	    l1 = *((const long *)ptr1);
+#ifndef TCL_WIDE_INT_IS_LONG
     pwrLongBase:
+#endif
 	    switch (l1) {
 	    case 0:
 		/*
-- 
cgit v0.12