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/tcl.h | |
| 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/tcl.h')
| -rw-r--r-- | generic/tcl.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 2556a9a..0f79e4b 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -504,11 +504,11 @@ typedef struct Tcl_Interp /* TIP #330: Strongly discourage extensions from using the string * result. */ #ifdef USE_INTERP_RESULT - char *result TCL_DEPRECATED_API("use Tcl_GetResult/Tcl_SetResult"); + char *result TCL_DEPRECATED_API("use Tcl_GetStringResult/Tcl_SetResult"); /* If the last command returned a string * result, this points to it. */ void (*freeProc) (char *blockPtr) - TCL_DEPRECATED_API("use Tcl_GetResult/Tcl_SetResult"); + TCL_DEPRECATED_API("use Tcl_GetStringResult/Tcl_SetResult"); /* Zero means the string result is statically * allocated. TCL_DYNAMIC means it was * allocated with ckalloc and should be freed |