summaryrefslogtreecommitdiffstats
path: root/generic/tclObj.c
diff options
context:
space:
mode:
authorJoe Mistachkin <joe@mistachkin.com>2015-05-22 23:26:29 (GMT)
committerJoe Mistachkin <joe@mistachkin.com>2015-05-22 23:26:29 (GMT)
commitfa3ea271d38aa3ba728701d6a921a06a8f313786 (patch)
tree9b8c5b94c4acbd1bc9d1c7f7616977f63e50cfb7 /generic/tclObj.c
parent5d239b617ecab1d8b54bdfed33cd12522c49938a (diff)
downloadtcl-fa3ea271d38aa3ba728701d6a921a06a8f313786.zip
tcl-fa3ea271d38aa3ba728701d6a921a06a8f313786.tar.gz
tcl-fa3ea271d38aa3ba728701d6a921a06a8f313786.tar.bz2
Minor compilation issue fix, make sure variable declaration (via macro) is first.aku_mem_debug_allow_regular
Diffstat (limited to 'generic/tclObj.c')
-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,