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 | 17420ef9f04b1e785a91da0d8e10a36eed8a9079 (patch) | |
| tree | 9b8c5b94c4acbd1bc9d1c7f7616977f63e50cfb7 /generic | |
| parent | 907aebaab8fa670337c01ce70b784d5805e01f77 (diff) | |
| download | tcl-17420ef9f04b1e785a91da0d8e10a36eed8a9079.zip tcl-17420ef9f04b1e785a91da0d8e10a36eed8a9079.tar.gz tcl-17420ef9f04b1e785a91da0d8e10a36eed8a9079.tar.bz2 | |
Minor compilation issue fix, make sure variable declaration (via macro) is first.
Diffstat (limited to 'generic')
| -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, |