diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-04-18 18:42:54 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-04-18 18:42:54 (GMT) |
| commit | 88574b7bc539d00b6477f8d9bbe7f25158b57662 (patch) | |
| tree | 4399ca38b73edfafc667956c4bb05e731d0dc862 /generic/tclStubLib.c | |
| parent | e5ced1c96d6213766cd6263eddcab12ba1a916a9 (diff) | |
| download | tcl-88574b7bc539d00b6477f8d9bbe7f25158b57662.zip tcl-88574b7bc539d00b6477f8d9bbe7f25158b57662.tar.gz tcl-88574b7bc539d00b6477f8d9bbe7f25158b57662.tar.bz2 | |
Experimental branch where the interp->result field and related are removed
and all simplifications that makes possible are done. Seems this can at best
be a Tcl 9 reform.
Diffstat (limited to 'generic/tclStubLib.c')
| -rw-r--r-- | generic/tclStubLib.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c index f569820..71933a0 100644 --- a/generic/tclStubLib.c +++ b/generic/tclStubLib.c @@ -41,10 +41,16 @@ HasStubSupport( if (iPtr->stubTable && (iPtr->stubTable->magic == TCL_STUB_MAGIC)) { return iPtr->stubTable; } - +#if 0 iPtr->result = (char *)"This interpreter does not support stubs-enabled extensions."; iPtr->freeProc = TCL_STATIC; +#else + Tcl_Obj errorMsg = {2, + "This interpreter does not support stubs-enabled extensions.", + 59, NULL, {0}}; + iPtr->objResultPtr = &errorMsg; +#endif return NULL; } |