Tcl Source Code

Check-in [5df2ea1b62]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:just lost one MODULE_SCOPE in the merge
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5df2ea1b62f897659eb3ffdc0a4818d3f91b4a43
User & Date: jan.nijtmans 2012-12-07 22:14:26
Context
2012-12-08
17:13
Fix busyloop at exit under TCL_FINALIZE_ON_EXIT when there are unflushed nonblocking channels. Th... check-in: 3a000c424c user: ferrieux tags: trunk
2012-12-07
22:16
merge trunk check-in: a14ea8190e user: jan.nijtmans tags: novem
22:14
just lost one MODULE_SCOPE in the merge check-in: 5df2ea1b62 user: jan.nijtmans tags: trunk
21:36
only set tclStubsPtr if all version checks pass check-in: 54e473087a user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclStubLib.c.

60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 *
 * Side effects:
 *	Sets the stub table pointers.
 *
 *----------------------------------------------------------------------
 */
#undef Tcl_InitStubs
const char *
Tcl_InitStubs(
    Tcl_Interp *interp,
    const char *version,
    int exact)
{
    const char *actualVersion = NULL;
    const TclStubs *stubsPtr;







|







60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 *
 * Side effects:
 *	Sets the stub table pointers.
 *
 *----------------------------------------------------------------------
 */
#undef Tcl_InitStubs
MODULE_SCOPE const char *
Tcl_InitStubs(
    Tcl_Interp *interp,
    const char *version,
    int exact)
{
    const char *actualVersion = NULL;
    const TclStubs *stubsPtr;