diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-02-15 13:01:43 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-02-15 13:01:43 (GMT) |
| commit | 982e675f8196b6c6f05f35692f036f1c8284d578 (patch) | |
| tree | 8d457751baabd7840d15061acf0648e391baba39 /generic/tclLoadNone.c | |
| parent | 95dcb2807804e26e831993cdf793fedaec7da0c5 (diff) | |
| download | tcl-982e675f8196b6c6f05f35692f036f1c8284d578.zip tcl-982e675f8196b6c6f05f35692f036f1c8284d578.tar.gz tcl-982e675f8196b6c6f05f35692f036f1c8284d578.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; } |