From f3f5448b0aa89dfc3c913d3f2e43e34e1c0c106c Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 8 Jun 2012 15:51:00 +0000
Subject: Work in progress fixing 3532959

---
 generic/tclBasic.c | 3 ++-
 generic/tclProc.c  | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 954b2b3..1d289f2 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -1388,7 +1388,8 @@ DeleteInterpProc(
 		hPtr != NULL;
 		hPtr = Tcl_NextHashEntry(&hSearch)) {
 	    CmdFrame *cfPtr = Tcl_GetHashValue(hPtr);
-
+	    Proc *procPtr = (Proc *) Tcl_GetHashKey(iPtr->linePBodyPtr, hPtr);
+	    procPtr->iPtr = NULL;
 	    if (cfPtr->type == TCL_LOCATION_SOURCE) {
 		Tcl_DecrRefCount(cfPtr->data.eval.path);
 	    }
diff --git a/generic/tclProc.c b/generic/tclProc.c
index 43e88c6..325506b 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -2198,7 +2198,7 @@ TclProcCleanupProc(
      * the same ProcPtr is overwritten with a new CmdFrame.
      */
 
-    if (!iPtr) {
+    if (iPtr == NULL || iPtr->linePBodyPtr == NULL) {
 	return;
     }
 
-- 
cgit v0.12