diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-06 13:45:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-06 13:45:45 (GMT) |
| commit | bd9f2eb15d41619e95eab98976d8028c46c1065d (patch) | |
| tree | a8828c35af03647c74c50d40fd0bbb8b6e02777f /generic/tcl.h | |
| parent | 1dbb35b63b9a5a7652ae5a7dea98a9aaaacd90c9 (diff) | |
| parent | 0d3325864915214e2dbbbee8385a3b0350913bcd (diff) | |
| download | tcl-bd9f2eb15d41619e95eab98976d8028c46c1065d.zip tcl-bd9f2eb15d41619e95eab98976d8028c46c1065d.tar.gz tcl-bd9f2eb15d41619e95eab98976d8028c46c1065d.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 860cf2c..57a95f8 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -468,31 +468,9 @@ 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_GetStringResult/Tcl_SetResult"); - /* If the last command returned a string - * result, this points to it. */ - void (*freeProc) (char *blockPtr) - 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 - * with ckfree. Other values give the address - * of function to invoke to free the result. - * Tcl_Eval must free it before executing next - * command. */ -#else char *resultDontUse; /* Don't use in extensions! */ void (*freeProcDontUse) (char *); /* Don't use in extensions! */ -#endif -#ifdef USE_INTERP_ERRORLINE - int errorLine TCL_DEPRECATED_API("use Tcl_GetErrorLine/Tcl_SetErrorLine"); - /* When TCL_ERROR is returned, this gives the - * line number within the command where the - * error occurred (1 if first line). */ -#else int errorLineDontUse; /* Don't use in extensions! */ -#endif } #endif /* !TCL_NO_DEPRECATED */ Tcl_Interp; |