summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-06-05 13:10:11 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-06-05 13:10:11 (GMT)
commit9d4f0b95ebcb92f94f3e4895af5014c458d68519 (patch)
treeda9fe86d2c5f774d274fa0c462e5c949861e564e /generic/tclTest.c
parent514638fd758486513ea7eb842bb8972fd854ca06 (diff)
downloadtcl-9d4f0b95ebcb92f94f3e4895af5014c458d68519.zip
tcl-9d4f0b95ebcb92f94f3e4895af5014c458d68519.tar.gz
tcl-9d4f0b95ebcb92f94f3e4895af5014c458d68519.tar.bz2
More of the same: Space before tab is extremely unlikely to be correct indentation pattern.
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c27
1 files changed, 13 insertions, 14 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 795310d..0bb09f6 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -2070,7 +2070,7 @@ static void SpecialFree(
* these functions (i/o command cannot test all combinations)
* The arguments at the script level are roughly those of the above
* functions:
- * encodingname srcbytes flags state dstlen ?srcreadvar? ?dstwrotevar? ?dstcharsvar?
+ * encodingname srcbytes flags state dstlen ?srcreadvar? ?dstwrotevar? ?dstcharsvar?
*
* Results:
* TCL_OK or TCL_ERROR. This any errors running the test, NOT the
@@ -3754,7 +3754,7 @@ TestlinkarrayCmd(
i++;
}
if (Tcl_GetIndexFromObj(interp, objv[i++], LinkType, "type", 0,
- &typeIndex) != TCL_OK) {
+ &typeIndex) != TCL_OK) {
return TCL_ERROR;
}
if (Tcl_GetIntFromObj(interp, objv[i++], &size) == TCL_ERROR) {
@@ -3769,7 +3769,7 @@ TestlinkarrayCmd(
if (i < objc) {
if (Tcl_GetWideIntFromObj(interp, objv[i], &addr) == TCL_ERROR) {
- Tcl_SetObjResult(interp, Tcl_NewStringObj(
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(
"wrong address value", -1));
return TCL_ERROR;
}
@@ -8531,15 +8531,15 @@ InterpCompiledVarResolver(
Tcl_ResolvedVarInfo **rPtr)
{
if (*name == 'T') {
- MyResolvedVarInfo *resVarInfo = (MyResolvedVarInfo *)Tcl_Alloc(sizeof(MyResolvedVarInfo));
-
- resVarInfo->vInfo.fetchProc = MyCompiledVarFetch;
- resVarInfo->vInfo.deleteProc = MyCompiledVarFree;
- resVarInfo->var = NULL;
- resVarInfo->nameObj = Tcl_NewStringObj(name, -1);
- Tcl_IncrRefCount(resVarInfo->nameObj);
- *rPtr = &resVarInfo->vInfo;
- return TCL_OK;
+ MyResolvedVarInfo *resVarInfo = (MyResolvedVarInfo *)Tcl_Alloc(sizeof(MyResolvedVarInfo));
+
+ resVarInfo->vInfo.fetchProc = MyCompiledVarFetch;
+ resVarInfo->vInfo.deleteProc = MyCompiledVarFree;
+ resVarInfo->var = NULL;
+ resVarInfo->nameObj = Tcl_NewStringObj(name, -1);
+ Tcl_IncrRefCount(resVarInfo->nameObj);
+ *rPtr = &resVarInfo->vInfo;
+ return TCL_OK;
}
return TCL_CONTINUE;
}
@@ -8656,8 +8656,7 @@ int TestApplyLambdaObjCmd (
* - The body of the lambda (lambdaObjs[1]) ALREADY has internal
* representation of ByteCode and thus will not be compiled again
*/
- evalObjs[1] = lambdaObj; /* lambdaObj already has a ref count so
- no need for IncrRef */
+ evalObjs[1] = lambdaObj; /* lambdaObj already has a ref count so no need for IncrRef */
result = Tcl_EvalObjv(interp, 2, evalObjs, TCL_EVAL_GLOBAL);
Tcl_DecrRefCount(evalObjs[0]);
Tcl_DecrRefCount(lambdaObj);