From fe65a79d19b49f2cb167f72b3e422a71be69bead Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Tue, 28 Nov 2017 15:43:41 +0000
Subject: Minor refactoring of TclOO object reference count booking during
 object creation.

---
 generic/tclOO.c | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/generic/tclOO.c b/generic/tclOO.c
index 07a96a7..d7ae349 100644
--- a/generic/tclOO.c
+++ b/generic/tclOO.c
@@ -1678,11 +1678,6 @@ TclNRNewObjectInstance(
     Tcl_InterpState state;
     Object *oPtr;
 
-    /*
-     * Protect classPtr from getting cleaned up when the command is created.
-     */
-    AddRef(classPtr);
-
     oPtr = TclNewObjectInstanceCommon(interp, classPtr, nameStr, nsNameStr);
     if (oPtr == NULL) {return TCL_ERROR;}
 
@@ -1693,13 +1688,11 @@ TclNRNewObjectInstance(
 
     if (objc < 0) {
 	*objectPtr = (Tcl_Object) oPtr;
-	DelRef(classPtr);
 	return TCL_OK;
     }
     contextPtr = TclOOGetCallContext(oPtr, NULL, CONSTRUCTOR, NULL);
     if (contextPtr == NULL) {
 	*objectPtr = (Tcl_Object) oPtr;
-	DelRef(classPtr);
 	return TCL_OK;
     }
 
@@ -1723,7 +1716,6 @@ TclNRNewObjectInstance(
     TclNRAddCallback(interp, FinalizeAlloc, contextPtr, oPtr, state,
 	    objectPtr);
     TclPushTailcallPoint(interp);
-    DelRef(classPtr);
     return TclOOInvokeContext(contextPtr, interp, objc, objv);
 }
 
@@ -1755,7 +1747,15 @@ TclNewObjectInstanceCommon(
      * Create the object.
      */
 
+    /*
+     * The command for the object could have the same name as the command
+     * associated with classPtr, so protect the structure from deallocation
+     * here.
+     */
+    AddRef(classPtr);
+
     oPtr = AllocObject(interp, nameStr, nsNameStr);
+    DelRef(classPtr);
     oPtr->selfCls = classPtr;
     TclOOAddToInstances(oPtr, classPtr);
 
-- 
cgit v0.12