diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2006-03-30 01:03:24 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2006-03-30 01:03:24 (GMT) |
| commit | b9b45920ad059f50f37c6d076457fe17e6225e57 (patch) | |
| tree | f1f570da9f40c3a0227c3378fe1f5451db38e0b7 | |
| parent | 05b4cdd1912613766b7dfe0974122ba3876c07e7 (diff) | |
| download | tcl-b9b45920ad059f50f37c6d076457fe17e6225e57.zip tcl-b9b45920ad059f50f37c6d076457fe17e6225e57.tar.gz tcl-b9b45920ad059f50f37c6d076457fe17e6225e57.tar.bz2 | |
* generic/tclExecute.c: remove unused var and silence gcc warning
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | generic/tclExecute.c | 9 |
2 files changed, 10 insertions, 3 deletions
@@ -1,3 +1,7 @@ +2006-03-30 Miguel Sofer <msofer@users.sf.net> + + * generic/tclExecute.c: remove unused var and silence gcc warning + 2006-03-29 Jeff Hobbs <jeffh@ActiveState.com> * win/Makefile.in: convert _NATIVE paths to use / to avoid ".\" diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 58e771c..42976d2 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.235 2006/03/29 16:04:09 dgp Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.236 2006/03/30 01:03:24 msofer Exp $ */ #include "tclInt.h" @@ -3700,7 +3700,7 @@ TclExecuteByteCode( Tcl_Obj *valuePtr = *(tosPtr - 1); ClientData ptr1, ptr2; int invalid, shift, type1, type2; - long l1, l2; + long l1; result = GetNumberFromObj(NULL, valuePtr, &ptr1, &type1); if ((result != TCL_OK) @@ -3727,6 +3727,9 @@ TclExecuteByteCode( if (*pc == INST_MOD) { /* Following section assumes BIGNUM_AUTO_NARROW */ /* TODO: Attempts to re-use unshared operands on stack */ + + long l2 = 0; /* silence gcc warning */ + if (type2 == TCL_NUMBER_LONG) { l2 = *((CONST long *)ptr2); if (l2 == 0) { @@ -3772,7 +3775,7 @@ TclExecuteByteCode( */ #ifndef NO_WIDE_TYPE if (type2 == TCL_NUMBER_WIDE) { - Tcl_WideInt wResult, w2 = *((CONST Tcl_WideInt *)ptr2); + Tcl_WideInt w2 = *((CONST Tcl_WideInt *)ptr2); if ((l1 > 0) ^ (w2 > (Tcl_WideInt)0)) { /* Arguments are opposite sign; remainder is sum */ |