Tcl Source Code

Check-in [115032dc74]
Login

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

Overview
Comment:3588687 When detecting incompatibility during stubs initialization, the error message has always assumed a stubs-disabled 8.0 interp to be the cause. That's no longer a good assumption. More suitable error message committed.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 115032dc743fcb022eed9787dcaee601603f9071
User & Date: dgp 2012-11-29 14:54:51
Context
2012-11-30
09:16
Inform the HTML builder about the TDBC drivers. check-in: 4a4695ca27 user: dkf tags: trunk
2012-11-29
15:58
merge trunk check-in: b4566ed5f7 user: dgp tags: novem
15:24
Revise TclInitStubs() so that it checks for consistent values of both TCL_MAJOR_VERSION and TCL_STUB... check-in: b170487915 user: dgp tags: bug-3588687
14:54
3588687 When detecting incompatibility during stubs initialization, the error message has always ass... check-in: 115032dc74 user: dgp tags: trunk
14:50
3588687 When detecting incompatibility during stubs initialization, the error message has always ass... check-in: 8f79454347 user: dgp tags: core-8-5-branch
13:15
silence compiler warning check-in: b447c19b77 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclStubLib.c.

37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
    Tcl_Interp *interp)
{
    Interp *iPtr = (Interp *) interp;

    if (iPtr->stubTable && (iPtr->stubTable->magic == TCL_STUB_MAGIC)) {
	return iPtr->stubTable;
    }

    iPtr->result =
	    (char *)"This interpreter does not support stubs-enabled extensions.";
    iPtr->freeProc = TCL_STATIC;
    return NULL;
}

/*
 * Use our own isdigit to avoid linking to libc on windows
 */







<
|
<







37
38
39
40
41
42
43

44

45
46
47
48
49
50
51
    Tcl_Interp *interp)
{
    Interp *iPtr = (Interp *) interp;

    if (iPtr->stubTable && (iPtr->stubTable->magic == TCL_STUB_MAGIC)) {
	return iPtr->stubTable;
    }

    iPtr->result = (char *) "interpreter uses an incompatible stubs mechanism";

    iPtr->freeProc = TCL_STATIC;
    return NULL;
}

/*
 * Use our own isdigit to avoid linking to libc on windows
 */