Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix indenting/eol-spacing |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk | main |
| Files: | files | file ages | folders |
| SHA3-256: |
40d70239582496f7b96a6024fa78bca4 |
| User & Date: | jan.nijtmans 2025-06-18 11:22:09.619 |
Context
|
2025-06-18
| ||
| 17:39 | Merge 9.0. Fix [4f338b91c1] - add missing Tcl_CloseEx docs check-in: ffda6aaff6 user: apnadkarni tags: trunk, main | |
| 15:55 | Merge trunk check-in: 413836816c user: apnadkarni tags: bug-c587295271-trycompile-leak | |
| 11:22 | Fix indenting/eol-spacing check-in: 40d7023958 user: jan.nijtmans tags: trunk, main | |
| 10:48 | tidy up some list related code; no functionality change check-in: 821c18641a user: dkf tags: trunk, main | |
Changes
Changes to generic/tclExecute.c.
| ︙ | ︙ | |||
4526 4527 4528 4529 4530 4531 4532 |
}
#endif
NEXT_INST_F0(jmpOffset[b], 1);
}
{
Tcl_HashEntry *hPtr;
| | | | 4526 4527 4528 4529 4530 4531 4532 4533 4534 4535 4536 4537 4538 4539 4540 4541 4542 4543 4544 4545 |
}
#endif
NEXT_INST_F0(jmpOffset[b], 1);
}
{
Tcl_HashEntry *hPtr;
/*
* Jump to location looked up in a hashtable; fall through to next
* instr if lookup fails. Lookup by string.
*/
case INST_JUMP_TABLE:
tblIdx = TclGetInt4AtPtr(pc + 1);
JumptableInfo *jtPtr = (JumptableInfo *)
codePtr->auxDataArrayPtr[tblIdx].clientData;
TRACE(("%u \"%.20s\" => ", tblIdx, O2S(OBJ_AT_TOS)));
hPtr = Tcl_FindHashEntry(&jtPtr->hashTable, TclGetString(OBJ_AT_TOS));
goto processJumpTableEntry;
|
| ︙ | ︙ | |||
4832 4833 4834 4835 4836 4837 4838 |
if (tclTraceExec >= TCL_TRACE_BYTECODE_EXEC_COMMANDS) {
if (traceInstructions) {
strncpy(cmdNameBuf, TclGetString(objv[0]), 20);
} else {
fprintf(stdout, "%" SIZEd ": (%" SIZEd ") invoking ",
iPtr->numLevels, PC_REL);
}
| | | 4832 4833 4834 4835 4836 4837 4838 4839 4840 4841 4842 4843 4844 4845 4846 |
if (tclTraceExec >= TCL_TRACE_BYTECODE_EXEC_COMMANDS) {
if (traceInstructions) {
strncpy(cmdNameBuf, TclGetString(objv[0]), 20);
} else {
fprintf(stdout, "%" SIZEd ": (%" SIZEd ") invoking ",
iPtr->numLevels, PC_REL);
}
PrintArgumentWords(numArgs, objv);
fprintf(stdout, "\n");
fflush(stdout);
}
#endif /*TCL_COMPILE_DEBUG*/
bcFramePtr->data.tebc.pc = (char *) pc;
iPtr->cmdFramePtr = bcFramePtr;
|
| ︙ | ︙ |
Changes to generic/tclIOCmd.c.
| ︙ | ︙ | |||
1023 1024 1025 1026 1027 1028 1029 |
/* Bug [0f1ddc0df7] - encoding errors - use replace profile */
if (Tcl_SetChannelOption(interp, chan, "-profile", "replace") != TCL_OK) {
goto errorWithOpenChannel;
}
/* TIP 716 */
if (encodingObj &&
| | | 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 |
/* Bug [0f1ddc0df7] - encoding errors - use replace profile */
if (Tcl_SetChannelOption(interp, chan, "-profile", "replace") != TCL_OK) {
goto errorWithOpenChannel;
}
/* TIP 716 */
if (encodingObj &&
Tcl_SetChannelOption(interp, chan, "-encoding",
Tcl_GetString(encodingObj)) != TCL_OK) {
goto errorWithOpenChannel;
}
TclNewObj(resultPtr);
if (Tcl_GetChannelHandle(chan, TCL_READABLE, NULL) == TCL_OK) {
if (Tcl_ReadChars(chan, resultPtr, -1, 0) == TCL_IO_FAILURE) {
|
| ︙ | ︙ |