Differences From Artifact [2c848ee25b]:

• File generic/tclCompExpr.c — part of check-in [627781a6db] at 2024-08-28 16:33:30 on branch unchained — Merge [3a60363aa10ef993]: Clean up a lot of whitespace issues. (user: pooryorick size: 86056) [more...]

To Artifact [74828d28d7]:

• File generic/tclCompExpr.c — part of check-in [f34f26f893] at 2024-08-28 22:08:53 on branch unchained — Merge [b0caf377fc292002]: Another round of sentinel improvements. (user: pooryorick size: 86056) [more...]

1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500

	numBytes = parsePtr->end - parsePtr->string;
	Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf(
		"\n    (parsing expression \"%.*s%s\")",
		(numBytes < limit) ? (int)numBytes : (int)limit - 3,
		parsePtr->string, (numBytes < limit) ? "" : "..."));
	if (errCode) {
	    Tcl_SetErrorCode(interp, "TCL", "PARSE", "EXPR", errCode,
		    subErrCode, (void *)NULL);
	}
    }

    return TCL_ERROR;
}

/*

|

1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500

	numBytes = parsePtr->end - parsePtr->string;
	Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf(
		"\n    (parsing expression \"%.*s%s\")",
		(numBytes < limit) ? (int)numBytes : (int)limit - 3,
		parsePtr->string, (numBytes < limit) ? "" : "..."));
	if (errCode) {
	    Tcl_SetErrorCode(interp, "TCL", "PARSE", "EXPR", errCode,
		    subErrCode, (char *)NULL);
	}
    }

    return TCL_ERROR;
}

/*