From edcdd9afe15d3f68c2b185a324dce8ee369b7b07 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 6 Jan 2020 18:07:43 +0000
Subject: Missing bit of interp->result deprecation.

---
 generic/tclBasic.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index ac290b6..b216e05 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -1866,8 +1866,10 @@ DeleteInterpProc(
      * could have transferred ownership of the result string to Tcl.
      */
 
+#ifndef TCL_NO_DEPRECATED
     Tcl_FreeResult(interp);
     iPtr->result = NULL;
+#endif
     Tcl_DecrRefCount(iPtr->objResultPtr);
     iPtr->objResultPtr = NULL;
     Tcl_DecrRefCount(iPtr->ecVar);
-- 
cgit v0.12