diff options
| author | msofer <msofer@noemail.net> | 2002-07-31 14:57:09 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2002-07-31 14:57:09 (GMT) |
| commit | c28343f60908ac783fb87e1d51a608d7f615125a (patch) | |
| tree | ecd3e90ebc4c28e00b5800450da0f2cdff67e25a /generic/tclInt.h | |
| parent | b3d2f070297aeebc9f77b010e596df8a28618e0c (diff) | |
| download | tcl-c28343f60908ac783fb87e1d51a608d7f615125a.zip tcl-c28343f60908ac783fb87e1d51a608d7f615125a.tar.gz tcl-c28343f60908ac783fb87e1d51a608d7f615125a.tar.bz2 | |
TclDecrRefCount under USE_THREAD_ALLOC: free intRep first, then string
rep [Bug 524802]
FossilOrigin-Name: a00ae5c2d66dc159ede6aaa6942524b6dd3e402f
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 8fad788..9632bdd 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.108 2002/07/22 16:51:48 vincentdarley Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.109 2002/07/31 14:57:09 msofer Exp $ */ #ifndef _TCLINT @@ -2200,14 +2200,14 @@ EXTERN void TclThreadFreeObj _ANSI_ARGS_((Tcl_Obj *)); # define TclDecrRefCount(objPtr) \ if (--(objPtr)->refCount <= 0) { \ - if (((objPtr)->bytes != NULL) \ - && ((objPtr)->bytes != tclEmptyStringRep)) { \ - ckfree((char *) (objPtr)->bytes); \ - } \ if (((objPtr)->typePtr != NULL) \ && ((objPtr)->typePtr->freeIntRepProc != NULL)) { \ (objPtr)->typePtr->freeIntRepProc(objPtr); \ } \ + if (((objPtr)->bytes != NULL) \ + && ((objPtr)->bytes != tclEmptyStringRep)) { \ + ckfree((char *) (objPtr)->bytes); \ + } \ TclThreadFreeObj((objPtr)); \ } |