diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-04-02 18:21:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-04-02 18:21:09 (GMT) |
| commit | 9d183921c98e6c400a421618f9e077069380ba34 (patch) | |
| tree | 12be49ecfe7aa09f679bc18ddb50da6f8a49860c /generic/tclExecute.c | |
| parent | b938ddd055607f4839824061f4b03daf737a1a52 (diff) | |
| download | tcl-9d183921c98e6c400a421618f9e077069380ba34.zip tcl-9d183921c98e6c400a421618f9e077069380ba34.tar.gz tcl-9d183921c98e6c400a421618f9e077069380ba34.tar.bz2 | |
Fix gcc warning on 32-bit platforms
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 4 insertions, 0 deletions
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: /* |