diff options
| author | Joe Mistachkin <joe@mistachkin.com> | 2015-05-22 23:26:29 (GMT) |
|---|---|---|
| committer | Joe Mistachkin <joe@mistachkin.com> | 2015-05-22 23:26:29 (GMT) |
| commit | fa3ea271d38aa3ba728701d6a921a06a8f313786 (patch) | |
| tree | 9b8c5b94c4acbd1bc9d1c7f7616977f63e50cfb7 /generic/tclObj.c | |
| parent | 5d239b617ecab1d8b54bdfed33cd12522c49938a (diff) | |
| download | tcl-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.c | 13 |
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, |