diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-10-10 19:52:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-10-10 19:52:43 (GMT) |
| commit | 0dce4fa5b68010813737f31033012ad6d4cb5bc3 (patch) | |
| tree | eb550b53c77c043fc0c7debdce2a23c2ca21711b /generic/tclExecute.c | |
| parent | 6678ee462153f79ea3258c65a6e3902f6aa68de1 (diff) | |
| download | tcl-0dce4fa5b68010813737f31033012ad6d4cb5bc3.zip tcl-0dce4fa5b68010813737f31033012ad6d4cb5bc3.tar.gz tcl-0dce4fa5b68010813737f31033012ad6d4cb5bc3.tar.bz2 | |
* generic/tclExecute.c: Corrections to the NO_WIDE_TYPE build. Also
added missing "break" to a switch that broke wide XOR operations.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 12ca59d..67f2615 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.206 2005/10/10 18:00:10 dgp Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.207 2005/10/10 19:52:43 dgp Exp $ */ #include "tclInt.h" @@ -4084,6 +4084,7 @@ TclExecuteByteCode(interp, codePtr) break; case INST_BITXOR: wResult = w1 ^ w2; + break; default: /* Unused, here to silence compiler warning. */ wResult = 0; |