From f9809771f9c17fb8f791327b33815dfa776346c4 Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 3 Mar 2011 21:28:43 +0000 Subject: USE_DIRECT_INTERP_RESULT_ACCESS -> USE_INTERP_RESULT [TIP 330]. --- ChangeLog | 7 +++++++ generic/tclResult.c | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3976ccd..c37c226 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2010-11-04 Don Porter + + * 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 * 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 */ } /* -- cgit v0.12