diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclObj.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index ce29a7a..60dcf8e 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.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: tclObj.c,v 1.85 2005/05/18 15:43:38 dgp Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.86 2005/06/06 20:54:18 kennykb Exp $ */ #include "tclInt.h" @@ -1420,19 +1420,19 @@ SetBooleanFromAny(interp, objPtr) } if (objPtr->typePtr == &tclIntType) { switch (objPtr->internalRep.longValue) { - case 0: case 1: + case 0L: case 1L: return TCL_OK; } goto badBoolean; } if (objPtr->typePtr == &tclWideIntType) { Tcl_WideInt w = objPtr->internalRep.wideValue; - switch (w) { - case 0: case 1: - newBool = (int)w; - goto numericBoolean; + if ( w == 0 || w == 1 ) { + newBool = (int)w; + goto numericBoolean; + } else { + goto badBoolean; } - goto badBoolean; } } @@ -2996,7 +2996,7 @@ SetBignumFromAny( interp, objPtr ) * is called. */ -void +static void UpdateStringOfBignum( Tcl_Obj* objPtr ) { mp_int bignumVal; |