diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2005-10-21 20:52:16 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2005-10-21 20:52:16 (GMT) |
| commit | a9ded9174baa0f8acdc1d5b4d3c0a3e39ede0357 (patch) | |
| tree | 86f3ce7a6cdac5e90982e36ff7169a75d98500fb /generic/tclStrToD.c | |
| parent | 688d2b20e2a285aee7c83ab607a0bdf28ae1e94e (diff) | |
| download | tcl-a9ded9174baa0f8acdc1d5b4d3c0a3e39ede0357.zip tcl-a9ded9174baa0f8acdc1d5b4d3c0a3e39ede0357.tar.gz tcl-a9ded9174baa0f8acdc1d5b4d3c0a3e39ede0357.tar.bz2 | |
remove C++ comments
Diffstat (limited to 'generic/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 398d33d..039fbed 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -14,7 +14,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.13 2005/10/21 20:30:43 kennykb Exp $ + * RCS: @(#) $Id: tclStrToD.c,v 1.14 2005/10/21 20:52:16 kennykb Exp $ * *---------------------------------------------------------------------- */ @@ -1616,8 +1616,8 @@ RefineApproximation( */ if (mp_cmp_mag(&twoMd, &twoMv) == MP_LT) { - mp_clear(&twoMd); //EPM - mp_clear(&twoMv); //EPM + mp_clear(&twoMd); + mp_clear(&twoMv); return approxResult; } @@ -2082,7 +2082,7 @@ TclInitDoubleConversion(void) maxpow10_wide = (int) floor(sizeof(Tcl_WideUInt) * CHAR_BIT * log(2.) / log(10.)); pow10_wide = (Tcl_WideUInt *) - ckalloc((maxpow10_wide + 1) * sizeof(Tcl_WideUInt)); //EPM NETKIT + ckalloc((maxpow10_wide + 1) * sizeof(Tcl_WideUInt)); u = 1; for (i = 0; i < maxpow10_wide; ++i) { pow10_wide[i] = u; |