diff options
| author | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-05-19 14:21:46 (GMT) |
|---|---|---|
| committer | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-05-19 14:21:46 (GMT) |
| commit | 4e6e68ad12b560fd6b201d043653fe8b62ee82a6 (patch) | |
| tree | 0ecadc7670565f4bc737af36ad771748889a13aa | |
| parent | ec28ad63ee76f1827bd000aecc3506d25c484776 (diff) | |
| download | tcl-4e6e68ad12b560fd6b201d043653fe8b62ee82a6.zip tcl-4e6e68ad12b560fd6b201d043653fe8b62ee82a6.tar.gz tcl-4e6e68ad12b560fd6b201d043653fe8b62ee82a6.tar.bz2 | |
fix build failure with TCL_MEM_DEBUG introduced by [8b717dc06a3e3d49]
| -rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 2938074..7b582c0 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4766,9 +4766,9 @@ MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; #define TclSmallFreeEx(interp, memPtr) \ do { \ Tcl_Obj *_objPtr = (Tcl_Obj *) memPtr; \ - objPtr->bytes = NULL; \ - objPtr->typePtr = NULL; \ - objPtr->refCount = 1; \ + _objPtr->bytes = NULL; \ + _objPtr->typePtr = NULL; \ + _objPtr->refCount = 1; \ TclDecrRefCount(_objPtr); \ } while (0) #endif /* TCL_MEM_DEBUG */ |