Tcl Source Code

Check-in [8f79454347]
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 | core-8-5-branch
Files: files | file ages | folders
SHA1: 8f794543473c91e59a66ea1b54a8a7b98c4e4a8f
User & Date: dgp 2012-11-29 14:50:08
Context
2012-12-03
14:33
Post-header reform (long long ago now) Tcl headers take care of their own protection from EXTERN def... check-in: c0335ac55d user: dgp tags: core-8-5-branch
2012-11-29
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
14:47
3588687 When detecting incompatibility during stubs initialization, the error message has always ass... check-in: 9cdc082a63 user: dgp tags: core-8-4-branch
2012-11-22
08:47
Fix bug reported by Brian Griffin:

http://code.activestate.com/lists/tcl-core/12524/

check-in: 6509c9b571 user: jan.nijtmans tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclStubLib.c.

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

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

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







<
|
<







40
41
42
43
44
45
46

47

48
49
50
51
52
53
54
    Tcl_Interp *interp)
{
    Interp *iPtr = (Interp *) interp;

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

    interp->result = "interpreter uses an incompatible stubs mechanism";

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