From d88ab4d4e3fee06039e0467e46b7805dafdf9140 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 8 Jul 2008 17:53:14 +0000 Subject: * generic/tclGet.c: Corrected out of date comments. --- ChangeLog | 4 ++++ generic/tclGet.c | 16 +++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index f51cb4b..b391741 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2008-07-08 Don Porter + + * generic/tclGet.c: Corrected out of date comments. + 2008-07-07 Andreas Kupries * generic/tclCmdIL.c (InfoFrameCmd): Fixed unsafe idiom of setting diff --git a/generic/tclGet.c b/generic/tclGet.c index ca93466..969a7bd 100644 --- a/generic/tclGet.c +++ b/generic/tclGet.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclGet.c,v 1.20 2007/12/13 15:23:17 dgp Exp $ + * RCS: @(#) $Id: tclGet.c,v 1.20.2.1 2008/07/08 17:53:14 dgp Exp $ */ #include "tclInt.h" @@ -39,7 +39,8 @@ int Tcl_GetInt( Tcl_Interp *interp, /* Interpreter to use for error reporting. */ CONST char *src, /* String containing a (possibly signed) - * integer in a form acceptable to strtoul. */ + * integer in a form acceptable to + * Tcl_GetIntFromObj(). */ int *intPtr) /* Place to store converted result. */ { Tcl_Obj obj; @@ -83,7 +84,8 @@ TclGetLong( Tcl_Interp *interp, /* Interpreter used for error reporting if not * NULL. */ CONST char *src, /* String containing a (possibly signed) long - * integer in a form acceptable to strtoul. */ + * integer in a form acceptable to + * Tcl_GetLongFromObj(). */ long *longPtr) /* Place to store converted long result. */ { Tcl_Obj obj; @@ -125,7 +127,8 @@ int Tcl_GetDouble( Tcl_Interp *interp, /* Interpreter used for error reporting. */ CONST char *src, /* String containing a floating-point number - * in a form acceptable to strtod. */ + * in a form acceptable to + * Tcl_GetDoubleFromObj(). */ double *doublePtr) /* Place to store converted result. */ { Tcl_Obj obj; @@ -166,9 +169,8 @@ Tcl_GetDouble( int Tcl_GetBoolean( Tcl_Interp *interp, /* Interpreter used for error reporting. */ - CONST char *src, /* String containing a boolean number - * specified either as 1/0 or true/false or - * yes/no. */ + CONST char *src, /* String containing one of the boolean values + * 1, 0, true, false, yes, no, on off. */ int *boolPtr) /* Place to store converted result, which will * be 0 or 1. */ { -- cgit v0.12