diff options
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 6d5f96a..1930ad0 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -33,7 +33,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStringObj.c,v 1.74 2008/10/26 18:34:04 dkf Exp $ */ + * RCS: @(#) $Id: tclStringObj.c,v 1.75 2008/12/10 18:21:47 ferrieux Exp $ */ #include "tclInt.h" #include "tommath.h" @@ -1943,7 +1943,8 @@ Tcl_AppendFormatToObj( case 'd': case 'o': case 'x': - case 'X': { + case 'X': + case 'b': { short int s = 0; /* Silence compiler warning; only defined and * used when useShort is true. */ long l; @@ -2016,6 +2017,9 @@ Tcl_AppendFormatToObj( case 'X': Tcl_AppendToObj(segment, "0x", 2); break; + case 'b': + Tcl_AppendToObj(segment, "0b", 2); + break; } } @@ -2074,7 +2078,8 @@ Tcl_AppendFormatToObj( case 'u': case 'o': case 'x': - case 'X': { + case 'X': + case 'b': { Tcl_WideUInt bits = (Tcl_WideUInt)0; int length, numBits = 4, numDigits = 0, base = 16; int index = 0, shift = 0; @@ -2083,10 +2088,12 @@ Tcl_AppendFormatToObj( if (ch == 'u') { base = 10; - } - if (ch == 'o') { + } else if (ch == 'o') { base = 8; numBits = 3; + } else if (ch=='b') { + base = 2; + numBits = 1; } if (useShort) { unsigned short int us = (unsigned short int) s; |