diff options
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 5a85c33..129a044 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2502,9 +2502,9 @@ EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); */ # define Tcl_DecrRefCount(objPtr) \ do { \ - Tcl_Obj *obj = (objPtr); \ - if ((obj)->refCount-- < 2) { \ - TclFreeObj(obj); \ + Tcl_Obj *_objPtr = (objPtr); \ + if (_objPtr->refCount-- < 2) { \ + TclFreeObj(_objPtr); \ } \ } while(0) # define Tcl_IsShared(objPtr) \ |