diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-25 14:51:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-25 14:51:08 (GMT) |
| commit | 9239177b80db42313a5ed79e4fabaa64dff4474b (patch) | |
| tree | e2e39fd181af321f717fb88745129bc4b140517c /generic/tclResult.c | |
| parent | 4e0f8d28b55248c40d3e0b894ea5a327c20957ec (diff) | |
| download | tcl-9239177b80db42313a5ed79e4fabaa64dff4474b.zip tcl-9239177b80db42313a5ed79e4fabaa64dff4474b.tar.gz tcl-9239177b80db42313a5ed79e4fabaa64dff4474b.tar.bz2 | |
TIP #559 follow-up: Make sure that if Tcl_FreeResult() is used in an extension compiled with -DTCL_NO_DEPRECATED, this results in a link error.
Do the same with deprecated funcions from other TIP's.
Diffstat (limited to 'generic/tclResult.c')
| -rw-r--r-- | generic/tclResult.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c index 5c2a81f..29c5aac 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -853,7 +853,6 @@ SetupAppendBuffer( Tcl_FreeResult((Tcl_Interp *) iPtr); iPtr->result = iPtr->appendResult; } -#endif /* !TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- @@ -883,7 +882,6 @@ Tcl_FreeResult( { Interp *iPtr = (Interp *) interp; -#ifndef TCL_NO_DEPRECATED if (iPtr->freeProc != NULL) { if (iPtr->freeProc == TCL_DYNAMIC) { ckfree(iPtr->result); @@ -893,10 +891,10 @@ Tcl_FreeResult( iPtr->freeProc = 0; } -#endif /* !TCL_NO_DEPRECATED */ ResetObjResult(iPtr); } - +#endif /* !TCL_NO_DEPRECATED */ + /* *---------------------------------------------------------------------- * |