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 | f9809771f9c17fb8f791327b33815dfa776346c4 (patch) | |
| tree | a9a47dabac924e5befe7cc8444955eb0860ec6b6 | |
| parent | 812c5af46bd0df3e49f288c3f26960d5139b4a50 (diff) | |
| download | tcl-f9809771f9c17fb8f791327b33815dfa776346c4.zip tcl-f9809771f9c17fb8f791327b33815dfa776346c4.tar.gz tcl-f9809771f9c17fb8f791327b33815dfa776346c4.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 */ } /* |