diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-17 10:57:24 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-17 10:57:24 (GMT) |
commit | 5dbf2681d7206b079a706e9db96e4cf3f43edb25 (patch) | |
tree | 30692de3b7cd3e9f047d1c37c3b09c97b14b73db /generic/tclInt.h | |
parent | 709c26db6735431a77f3509d28a5c6c6309709bd (diff) | |
download | tcl-5dbf2681d7206b079a706e9db96e4cf3f43edb25.zip tcl-5dbf2681d7206b079a706e9db96e4cf3f43edb25.tar.gz tcl-5dbf2681d7206b079a706e9db96e4cf3f43edb25.tar.bz2 |
If Tcl is compiled with -DTCL_NO_DEPRECATED, make sure that iPtr->(resultSpace|appendResult|appendAvl|appendUsed) are not used any more.
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 562e895..3845598 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -1862,6 +1862,7 @@ typedef struct Interp { * See Tcl_AppendResult code for details. */ +#ifndef TCL_NO_DEPRECATED char *appendResult; /* Storage space for results generated by * Tcl_AppendResult. Ckalloc-ed. NULL means * not yet allocated. */ @@ -1869,6 +1870,11 @@ typedef struct Interp { * partialResult. */ int appendUsed; /* Number of non-null bytes currently stored * at partialResult. */ +#else + char *appendResultDontUse; + int appendAvlDontUse; + int appendUsedDontUse; +#endif /* * Information about packages. Used only in tclPkg.c. @@ -1930,8 +1936,12 @@ typedef struct Interp { * string. Returned by Tcl_ObjSetVar2 when * variable traces change a variable in a * gross way. */ +#ifndef TCL_NO_DEPRECATED char resultSpace[TCL_RESULT_SIZE+1]; /* Static space holding small results. */ +#else + char resultSpaceDontUse[TCL_RESULT_SIZE+1]; +#endif Tcl_Obj *objResultPtr; /* If the last command returned an object * result, this points to it. Should not be * accessed directly; see comment above. */ |