Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | re-enable bcc-tailcall, after fixing an infinite loop in the TCL_COMPILE_DEBUG mode |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4ea681879b6dd88ce2db03c4997e730b |
| User & Date: | mig 2012-11-10 17:08:33 |
Context
|
2012-11-10
| ||
| 19:24 | added forgotten Changelog entry check-in: d5f32ab609 user: mig tags: trunk | |
| 17:08 | re-enable bcc-tailcall, after fixing an infinite loop in the TCL_COMPILE_DEBUG mode check-in: 4ea681879b user: mig tags: trunk | |
|
2012-11-09
| ||
| 12:11 | Flag USE_TCLOO_STUBS is not necessary any more for extensions: Stubs are the only way to access TclO... check-in: 06345d5b54 user: jan.nijtmans tags: trunk | |
Changes
Changes to generic/tclBasic.c.
| ︙ | ︙ | |||
243 244 245 246 247 248 249 |
{"rename", Tcl_RenameObjCmd, NULL, NULL, 1},
{"return", Tcl_ReturnObjCmd, TclCompileReturnCmd, NULL, 1},
{"scan", Tcl_ScanObjCmd, NULL, NULL, 1},
{"set", Tcl_SetObjCmd, TclCompileSetCmd, NULL, 1},
{"split", Tcl_SplitObjCmd, NULL, NULL, 1},
{"subst", Tcl_SubstObjCmd, TclCompileSubstCmd, TclNRSubstObjCmd, 1},
{"switch", Tcl_SwitchObjCmd, TclCompileSwitchCmd, TclNRSwitchObjCmd, 1},
| | | 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 |
{"rename", Tcl_RenameObjCmd, NULL, NULL, 1},
{"return", Tcl_ReturnObjCmd, TclCompileReturnCmd, NULL, 1},
{"scan", Tcl_ScanObjCmd, NULL, NULL, 1},
{"set", Tcl_SetObjCmd, TclCompileSetCmd, NULL, 1},
{"split", Tcl_SplitObjCmd, NULL, NULL, 1},
{"subst", Tcl_SubstObjCmd, TclCompileSubstCmd, TclNRSubstObjCmd, 1},
{"switch", Tcl_SwitchObjCmd, TclCompileSwitchCmd, TclNRSwitchObjCmd, 1},
{"tailcall", NULL, TclCompileTailcallCmd, TclNRTailcallObjCmd, 1},
{"throw", Tcl_ThrowObjCmd, TclCompileThrowCmd, NULL, 1},
{"trace", Tcl_TraceObjCmd, NULL, NULL, 1},
{"try", Tcl_TryObjCmd, TclCompileTryCmd, TclNRTryObjCmd, 1},
{"unset", Tcl_UnsetObjCmd, TclCompileUnsetCmd, NULL, 1},
{"uplevel", Tcl_UplevelObjCmd, NULL, TclNRUplevelObjCmd, 1},
{"upvar", Tcl_UpvarObjCmd, TclCompileUpvarCmd, NULL, 1},
{"variable", Tcl_VariableObjCmd, TclCompileVariableCmd, NULL, 1},
|
| ︙ | ︙ |
Changes to generic/tclExecute.c.
| ︙ | ︙ | |||
2389 2390 2391 2392 2393 2394 2395 |
}
#ifdef TCL_COMPILE_DEBUG
{
register int i;
TRACE(("%d [", opnd));
| | | 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401 2402 2403 |
}
#ifdef TCL_COMPILE_DEBUG
{
register int i;
TRACE(("%d [", opnd));
for (i=opnd-1 ; i>=0 ; i--) {
TRACE_APPEND(("\"%.30s\"", O2S(OBJ_AT_DEPTH(i))));
if (i > 0) {
TRACE_APPEND((" "));
}
}
TRACE_APPEND(("] => RETURN..."));
}
|
| ︙ | ︙ |