diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-04-19 12:41:06 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-04-19 12:41:06 (GMT) |
| commit | e76fa60cb994bd0ad5fce8614a682f88e65c2e8a (patch) | |
| tree | 5d40ae82829827c68e3e8ecccc529cdae8e8b52b /generic/tclStubLib.c | |
| parent | aa9a7997f65ea79e1228e2b42857e54856245275 (diff) | |
| download | tcl-e76fa60cb994bd0ad5fce8614a682f88e65c2e8a.zip tcl-e76fa60cb994bd0ad5fce8614a682f88e65c2e8a.tar.gz tcl-e76fa60cb994bd0ad5fce8614a682f88e65c2e8a.tar.bz2 | |
Clean version of changes; ifdef-free
Diffstat (limited to 'generic/tclStubLib.c')
| -rw-r--r-- | generic/tclStubLib.c | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c index 71933a0..b36627c 100644 --- a/generic/tclStubLib.c +++ b/generic/tclStubLib.c @@ -37,20 +37,16 @@ HasStubSupport( Tcl_Interp *interp) { Interp *iPtr = (Interp *) interp; + static Tcl_Obj errorMsg = { + 2, /* Stop anything from trying to deallocate this memory! */ + "This interpreter does not support stubs-enabled extensions.", + 59, NULL, {0} + }; 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; } |