summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-03-23 14:24:57 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-03-23 14:24:57 (GMT)
commit9938bcf95bddbf783985f1991d2d4dac143fda3b (patch)
treea451d990846ab6fa0e7cc46e92a25735b21a1542
parent501e2bafe78e6e4df568ccd9d2c6861df10d2111 (diff)
downloadtcl-9938bcf95bddbf783985f1991d2d4dac143fda3b.zip
tcl-9938bcf95bddbf783985f1991d2d4dac143fda3b.tar.gz
tcl-9938bcf95bddbf783985f1991d2d4dac143fda3b.tar.bz2
comment adjustment
-rw-r--r--generic/tclCmdAH.c3
-rw-r--r--generic/tclStringObj.c3
2 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index ce50da4..8f301f6 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdAH.c,v 1.72 2006/02/08 21:41:27 dgp Exp $
+ * RCS: @(#) $Id: tclCmdAH.c,v 1.73 2006/03/23 14:24:57 dgp Exp $
*/
#include "tclInt.h"
@@ -2234,7 +2234,6 @@ Tcl_FormatObjCmd(dummy, interp, objc, objv)
case 'G':
if (Tcl_GetDoubleFromObj(interp, /* INTL: Tcl source. */
objv[objIndex], &doubleValue) != TCL_OK) {
- /*TODO: figure out ACCEPT_NAN */
goto fmtError;
}
whichValue = DOUBLE_VALUE;
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index a1c5bd3..d119176 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.52 2006/01/23 11:18:52 msofer Exp $ */
+ * RCS: @(#) $Id: tclStringObj.c,v 1.53 2006/03/23 14:24:57 dgp Exp $ */
#include "tclInt.h"
#include "tommath.h"
@@ -2194,6 +2194,7 @@ TclAppendFormattedObjs(
char *bytes;
if (Tcl_GetDoubleFromObj(interp, segment, &d) != TCL_OK) {
+ /* TODO: Figure out ACCEPT_NAN here */
goto error;
}
*p++ = '%';