diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2005-06-06 20:54:09 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2005-06-06 20:54:09 (GMT) |
| commit | 6580b2352407aa1b0f314552899f301558bc3113 (patch) | |
| tree | 49699ded2cef84afdcc20be391bea9b95f1dcaf7 /generic/tclObj.c | |
| parent | abc82372fd122d714d3c5f3156072479f1a77c45 (diff) | |
| download | tcl-6580b2352407aa1b0f314552899f301558bc3113.zip tcl-6580b2352407aa1b0f314552899f301558bc3113.tar.gz tcl-6580b2352407aa1b0f314552899f301558bc3113.tar.bz2 | |
Correct crash in stack.test on gcc/win32; fix compile errors in tclObj.c on hpux/native cc
Diffstat (limited to 'generic/tclObj.c')
| -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; |