diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-15 13:01:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-15 13:01:43 (GMT) |
| commit | e1bfb4b3a06ef2a5199b7587116f35242d185e98 (patch) | |
| tree | 8d457751baabd7840d15061acf0648e391baba39 /generic/tclLoadNone.c | |
| parent | 49d6f7665369c30b02e1abe548c335ef72ece203 (diff) | |
| download | tcl-e1bfb4b3a06ef2a5199b7587116f35242d185e98.zip tcl-e1bfb4b3a06ef2a5199b7587116f35242d185e98.tar.gz tcl-e1bfb4b3a06ef2a5199b7587116f35242d185e98.tar.bz2 | |
Eliminate last use of Tcl_SetResult (except the use in the Test suite)
Fix depreciation message in tcl.h
Diffstat (limited to 'generic/tclLoadNone.c')
| -rw-r--r-- | generic/tclLoadNone.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclLoadNone.c b/generic/tclLoadNone.c index 5a2dc53..c22c4c4 100644 --- a/generic/tclLoadNone.c +++ b/generic/tclLoadNone.c @@ -107,8 +107,8 @@ TclpLoadMemory( Tcl_FSUnloadFileProc **unloadProcPtr) /* Dummy: unused by this implementation */ { - Tcl_SetResult(interp, "dynamic loading from memory is not available " - "on this system", TCL_STATIC); + Tcl_SetObjResult(interp, Tcl_NewStringObj("dynamic loading from memory " + "is not available on this system", -1)); return TCL_ERROR; } |