diff options
| -rw-r--r-- | generic/tclBasic.c | 2 | ||||
| -rw-r--r-- | generic/tclCmdIL.c | 2 | ||||
| -rw-r--r-- | generic/tclCmdMZ.c | 4 | ||||
| -rw-r--r-- | generic/tclExecute.c | 4 | ||||
| -rw-r--r-- | generic/tclListObj.c | 14 | ||||
| -rw-r--r-- | generic/tclObj.c | 2 | ||||
| -rw-r--r-- | generic/tclPkg.c | 2 | ||||
| -rw-r--r-- | generic/tclStringObj.c | 2 | ||||
| -rw-r--r-- | generic/tclTest.c | 2 | ||||
| -rw-r--r-- | generic/tclUtil.c | 20 |
10 files changed, 27 insertions, 27 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 1a48f44..31fa279 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -7767,7 +7767,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/tclCmdIL.c b/generic/tclCmdIL.c index 10fbd3f..61e5b03 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -3937,7 +3937,7 @@ Tcl_LsortObjCmd( /* * Do not shrink the actual memory block used; that doesn't * work with TclStackAlloc-allocated memory. [Bug 2918962] - * + * * TODO: Consider a pointer increment to replace this * array shift. */ diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 183db0b..06b6058 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -4513,7 +4513,7 @@ Tcl_TimeRateObjCmd( } codePtr = TclCompileObj(interp, objPtr, NULL, 0); TclPreserveByteCode(codePtr); - /* + /* * Replace last compiled done instruction with continue: it's a part of * iteration, this way evaluation will be more similar to a cycle (also * avoids extra overhead to set result to interp, etc.) @@ -4689,7 +4689,7 @@ Tcl_TimeRateObjCmd( Tcl_WideUInt usec, val; int digits; - /* + /* * Absolute execution time in microseconds or in wide clicks. */ usec = (Tcl_WideUInt)(middle - start); diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 2f547d4..877a62c 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5247,7 +5247,7 @@ TEBCresume( /* Decode index value operands. */ - /* + /* assert ( toIdx != TCL_INDEX_AFTER); * * Extra safety for legacy bytecodes: @@ -8260,7 +8260,7 @@ LongPwrSmallExpon(long l1, long exponent) { lResult *= lResult; /* b**8 */ break; } - return lResult; + return lResult; } #endif static inline Tcl_WideInt diff --git a/generic/tclListObj.c b/generic/tclListObj.c index e42567e..6eb6780 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 @@ -1331,9 +1331,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 9eaf1ee..255614a 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2476,7 +2476,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 c1e2078..06d6ade 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -510,7 +510,7 @@ SelectPackage(ClientData data[], Tcl_Interp *interp, int result) { PkgAvail *availPtr, *bestPtr, *bestStablePtr; char *availVersion, *bestVersion, *bestStableVersion; /* Internal rep. of versions */ - int availStable, satisfies; + int availStable, satisfies; Require *reqPtr = data[0]; int reqc = PTR2INT(data[1]); Tcl_Obj **const reqv = data[2]; diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 222e529..c44444d 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -503,7 +503,7 @@ TclCheckEmptyString ( Tcl_DictObjSize(NULL, objPtr, &length); return length == 0; } - + if (objPtr->bytes == NULL) { return TCL_EMPTYSTRING_UNKNOWN; } diff --git a/generic/tclTest.c b/generic/tclTest.c index 1e2a6da..1a4d7bf 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -4971,7 +4971,7 @@ NoopObjCmd( * without type and with internal representation containing NULL's. * * If no argument supplied it returns empty object with tclEmptyStringRep, - * otherwise it returns this as pure bytes object with bytes value equal + * otherwise it returns this as pure bytes object with bytes value equal * string. * * Results: diff --git a/generic/tclUtil.c b/generic/tclUtil.c index c801b83..fc5a2ac 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -1686,7 +1686,7 @@ UtfWellFormedEnd( if (Tcl_UtfCharComplete(p, l - p)) { return bytes; } - /* + /* * Malformed utf-8 end, be sure we've NTS to safe compare of end-character, * avoid segfault by access violation out of range. */ @@ -3667,21 +3667,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. - * + * *---------------------------------------------------------------------- */ @@ -3839,7 +3839,7 @@ GetEndOffsetFromObj( return TCL_OK; } - + /* *---------------------------------------------------------------------- * @@ -4017,12 +4017,12 @@ TclIndexEncode( /* usual case, the absolute index value encodes itself */ } else if (TCL_OK == GetEndOffsetFromObj(objPtr, 0, &idx)) { /* - * We parsed an end+offset index value. + * We parsed an end+offset index value. * idx holds the offset value in the range INT_MIN...INT_MAX. */ if (idx > 0) { /* - * All end+postive or end-negative expressions + * All end+postive or end-negative expressions * always indicate "after the end". */ idx = after; |