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 | |
| 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')
| -rw-r--r-- | generic/tclExecute.c | 3 | ||||
| -rw-r--r-- | generic/tclInt.h | 4 |
2 files changed, 4 insertions, 3 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; diff --git a/generic/tclInt.h b/generic/tclInt.h index 117c25e..32ef3b0 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -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: tclInt.h,v 1.254 2005/10/10 18:00:10 dgp Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.255 2005/10/10 19:52:44 dgp Exp $ */ #ifndef _TCLINT @@ -22,7 +22,7 @@ * Some numerics configuration options */ -#define NO_WIDE_TYPE +#undef NO_WIDE_TYPE #undef ACCEPT_NAN /* |