diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 2 | ||||
| -rw-r--r-- | generic/tclInt.h | 2 | ||||
| -rw-r--r-- | generic/tclListObj.c | 14 | ||||
| -rw-r--r-- | generic/tclObj.c | 2 | ||||
| -rw-r--r-- | generic/tclPkg.c | 6 | ||||
| -rw-r--r-- | generic/tclUtil.c | 12 |
6 files changed, 19 insertions, 19 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 93e0ef9..0206fa4 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -7634,7 +7634,7 @@ ExprRandFunc( iPtr->flags |= RAND_SEED_INITIALIZED; /* - * To ensure different seeds in different threads (bug #416643), + * To ensure different seeds in different threads (bug #416643), * take into consideration the thread this interp is running in. */ diff --git a/generic/tclInt.h b/generic/tclInt.h index d166137..97b85de 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2876,7 +2876,7 @@ MODULE_SCOPE int TclFindDictElement(Tcl_Interp *interp, const char *dict, int dictLength, const char **elementPtr, const char **nextPtr, int *sizePtr, int *literalPtr); -/* TIP #280 - Modified token based evulation, with line information. */ +/* TIP #280 - Modified token based evaluation, with line information. */ MODULE_SCOPE int TclEvalEx(Tcl_Interp *interp, const char *script, int numBytes, int flags, int line, int *clNextOuter, const char *outerScript); diff --git a/generic/tclListObj.c b/generic/tclListObj.c index b8f0b74..9f18837 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -136,8 +136,8 @@ NewListIntRep( * * AttemptNewList -- * - * Like NewListIntRep, but additionally sets an error message on failure. - * + * Like NewListIntRep, but additionally sets an error message on failure. + * *---------------------------------------------------------------------- */ @@ -234,12 +234,12 @@ Tcl_NewListObj( *---------------------------------------------------------------------- * * Tcl_DbNewListObj -- - * + * * Like 'Tcl_NewListObj', but it calls Tcl_DbCkalloc directly with the * file name and line number from its caller. This simplifies debugging * since the [memory active] command will report the correct file * name and line number when reporting objects that haven't been freed. - * + * * When TCL_MEM_DEBUG is not defined, 'Tcl_NewListObj' is called instead. * *---------------------------------------------------------------------- @@ -695,7 +695,7 @@ Tcl_ListObjAppendElement( * object should be treated as readonly and its 'refCount' is _not_ * incremented. The caller must do that if it holds on to the * reference. - * + * * TCL_ERROR * * 'listPtr' is not a valid list. An an error message is left in the @@ -1337,9 +1337,9 @@ TclLsetList( * reference. The caller is expected to store the result in the * variable and decrement its reference count. (INST_STORE_* does * exactly this.) - * + * * NULL - * + * * An error occurred. If 'listPtr' was duplicated, the reference * count on the duplicate is decremented so that it is 0, causing any * memory allocated by this function to be freed. diff --git a/generic/tclObj.c b/generic/tclObj.c index fdbc89a..ab259c2 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2477,7 +2477,7 @@ Tcl_SetIntObj( * Success. * * TCL_ERROR - * + * * An error occurred during conversion or the integral value can not * be represented as an integer (it might be too large). An error * message is left in the interpreter's result if 'interp' is not diff --git a/generic/tclPkg.c b/generic/tclPkg.c index ea95320..fb721a0 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -480,7 +480,7 @@ PkgRequireCore( continue; } - + /* Check satisfaction of requirements before considering the current version further. */ if (reqc > 0) { satisfies = SomeRequirementSatisfied(availVersion, reqc, reqv); @@ -490,7 +490,7 @@ PkgRequireCore( continue; } } - + if (bestPtr != NULL) { int res = CompareVersions(availVersion, bestVersion, NULL); @@ -547,7 +547,7 @@ PkgRequireCore( /* * Clean up memorized internal reps, if any. */ - + if (bestVersion != NULL) { ckfree(bestVersion); bestVersion = NULL; diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 0c3f9ac..8ab68d9 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -3470,21 +3470,21 @@ TclFormatInt( * * Value * TCL_OK - * + * * The index is stored at the address given by by 'indexPtr'. If * 'objPtr' has the value "end", the value stored is 'endValue'. - * + * * TCL_ERROR - * + * * The value of 'objPtr' does not have one of the expected formats. If * 'interp' is non-NULL, an error message is left in the interpreter's * result object. - * + * * Effect - * + * * The object referenced by 'objPtr' is converted, as needed, to an * integer, wide integer, or end-based-index object. - * + * *---------------------------------------------------------------------- */ |