summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2011-01-15 19:01:31 (GMT)
committerKevin B Kenny <kennykb@acm.org>2011-01-15 19:01:31 (GMT)
commitf1e18bf51337c961ce3f57362d0fc1a6584af378 (patch)
tree0ab0387ae49ad442a676cb29b6a29ae52feb552a /generic
parent3aded4ee3f9fa66143b3b8b4be6b021243515cf1 (diff)
downloadtcl-f1e18bf51337c961ce3f57362d0fc1a6584af378.zip
tcl-f1e18bf51337c961ce3f57362d0fc1a6584af378.tar.gz
tcl-f1e18bf51337c961ce3f57362d0fc1a6584af378.tar.bz2
Removed code that suppressed zeroes in a context where zeroes cannot appear.
Diffstat (limited to 'generic')
-rwxr-xr-xgeneric/tclStrToD.c7
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index 53ffedd..67c797f 100755
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.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: tclStrToD.c,v 1.53 2011/01/15 18:10:19 kennykb Exp $
+ * RCS: @(#) $Id: tclStrToD.c,v 1.54 2011/01/15 19:01:31 kennykb Exp $
*/
#include "tclInt.h"
@@ -3335,11 +3335,6 @@ ShorteningBignumConversionPowD(
*s++ = '9';
s = BumpUp(s, retval, &k);
break;
- } else if (mp_iszero(&b)) {
- while (*--s == '0') {
- /* do nothing */
- }
- ++s;
}
}