Tcl Source Code

Check-in [9cdc082a63]
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-4-branch
Files: files | file ages | folders
SHA1: 9cdc082a6355744b410bbd82a0e391d9ae220a0a
User & Date: dgp 2012-11-29 14:47:12
Context
2012-12-03
19:14
Disable the legacy configuration setting from $::argv only when a setting call to [configure] is mad... check-in: 32bc4bc388 user: dgp tags: core-8-4-branch
2012-11-29
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:45
Fix bug reported by Brian Griffin:

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

check-in: b8a089f6e4 user: jan.nijtmans tags: core-8-4-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclStubLib.c.

43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
    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;
}

/*
 *----------------------------------------------------------------------







|







43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
    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;
}

/*
 *----------------------------------------------------------------------