summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclObj.c13
1 files changed, 7 insertions, 6 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c
index 037bd76..36687fa 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -1315,6 +1315,13 @@ TclFreeObj(
register Tcl_Obj *objPtr) /* The object to be freed. */
{
register Tcl_ObjType *typePtr = objPtr->typePtr;
+
+ /*
+ * This macro declares a variable, so must come here...
+ */
+
+ ObjInitDeletionContext(context);
+
# ifdef TCL_THREADS
/*
* Check to make sure that the Tcl_Obj was allocated by the current
@@ -1349,12 +1356,6 @@ TclFreeObj(
# endif
/*
- * This macro declares a variable, so must come here...
- */
-
- ObjInitDeletionContext(context);
-
- /*
* Check for a double free of the same value. This is slightly tricky
* because it is customary to free a Tcl_Obj when its refcount falls
* either from 1 to 0, or from 0 to -1. Falling from -1 to -2, though,