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 | |
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.
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | generic/tclExecute.c | 3 | ||||
-rw-r--r-- | generic/tclInt.h | 4 |
3 files changed, 6 insertions, 7 deletions
@@ -1,9 +1,7 @@ 2005-10-10 Don Porter <dgp@users.sourceforge.net> - * generic/tclExecute.c: Corrections to the NO_WIDE_TYPE build. - * generic/tclInt.h: Restored HEAD to the NO_WIDE_TYPE - configuration until some breakage in the #undef NO_WIDE_TYPE - configuration is corrected. + * generic/tclExecute.c: Corrections to the NO_WIDE_TYPE build. Also + added missing "break" to a switch that broke wide XOR operations. 2005-10-10 Donal K. Fellows <donal.k.fellows@man.ac.uk> 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 /* |