diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-03-03 21:28:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-03-03 21:28:43 (GMT) |
| commit | 14e96246498e58819ba8b578648581e55bacb9f1 (patch) | |
| tree | a9a47dabac924e5befe7cc8444955eb0860ec6b6 | |
| parent | e5f6fcacf995750904478ff3be80014df5ef6906 (diff) | |
| download | tcl-14e96246498e58819ba8b578648581e55bacb9f1.zip tcl-14e96246498e58819ba8b578648581e55bacb9f1.tar.gz tcl-14e96246498e58819ba8b578648581e55bacb9f1.tar.bz2 | |
USE_DIRECT_INTERP_RESULT_ACCESS -> USE_INTERP_RESULT [TIP 330].
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | generic/tclResult.c | 4 |
2 files changed, 9 insertions, 2 deletions
@@ -1,3 +1,10 @@ +2010-11-04 Don Porter <dgp@users.sourceforge.net> + + * generic/tclResult.c (Tcl_AppendResultVA): Use the directive + USE_INTERP_RESULT [TIP 330] to force compat with interp->result + access, instead of the improvised hack USE_DIRECT_INTERP_RESULT_ACCESS + from releases past. + 2011-03-01 Miguel Sofer <msofer@users.sf.net> * generic/tclCompCmdsSZ.c (TclCompileThrowCmd) diff --git a/generic/tclResult.c b/generic/tclResult.c index 99942a9..f60ae26 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -648,14 +648,14 @@ Tcl_AppendResultVA( * calls to Tcl_GetStringResult() itself. [Patch 1041072 discussion] */ -#ifdef USE_DIRECT_INTERP_RESULT_ACCESS +#ifdef USE_INTERP_RESULT /* * Ensure that the interp->result is legal so old Tcl 7.* code still * works. There's still embarrasingly much of it about... */ (void) Tcl_GetStringResult(interp); -#endif /* USE_DIRECT_INTERP_RESULT_ACCESS */ +#endif /* USE_INTERP_RESULT */ } /* |